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

Diff of /gcl/cmpnew/cmpopt.lsp

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

revision 1.3 by wfs, Tue May 15 05:58:27 2001 UTC revision 1.4 by camm, Mon Jul 29 22:50:54 2002 UTC
# Line 868  type_of(#0)==t_bitvector") Line 868  type_of(#0)==t_bitvector")
868   (push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) | (#1))")   (push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) | (#1))")
869     (get 'logior 'inline-always))     (get 'logior 'inline-always))
870    
871    ;;LOGXOR
872     (push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) ^ (#1))")
873       (get 'logxor 'inline-always))
874    
875  ;;LOGNOT  ;;LOGNOT
876   (push '((fixnum) fixnum #.(flags rfa)"(~(#0))")   (push '((fixnum) fixnum #.(flags rfa)"(~(#0))")
877     (get 'lognot 'inline-always))     (get 'lognot 'inline-always))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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