/[gcl]/gcl/cmpnew/gcl_cmpopt.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpopt.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by camm, Thu Oct 6 20:30:06 2005 UTC revision 1.24 by camm, Tue Nov 1 12:17:04 2005 UTC
# Line 960  Line 960 
960   (push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) & (#1))")   (push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) & (#1))")
961     (get 'logand 'inline-always))     (get 'logand 'inline-always))
962    
963    ;;LOGANDC1
964     (push '((fixnum fixnum) fixnum #.(flags rfa)"(~(#0) & (#1))")
965       (get 'logandc1 'inline-always))
966    
967    ;;LOGANDC2
968     (push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) & ~(#1))")
969       (get 'logandc2 'inline-always))
970    
971  ;;LOGIOR  ;;LOGIOR
972   (push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) | (#1))")   (push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) | (#1))")
973     (get 'logior 'inline-always))     (get 'logior 'inline-always))

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26