/[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.4 by camm, Mon Oct 13 15:10:28 2003 UTC revision 1.5 by camm, Mon Oct 13 15:24:15 2003 UTC
# Line 908  type_of(#0)==t_bitvector") Line 908  type_of(#0)==t_bitvector")
908  ;;MOD  ;;MOD
909  ; (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;(#0>=0&&(#1)>0?(#0)%(#1):imod(#0,#1))")  ; (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;(#0>=0&&(#1)>0?(#0)%(#1):imod(#0,#1))")
910  ;   (get 'mod 'inline-always))  ;   (get 'mod 'inline-always))
911   (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;({fixnum _t=(#0)-((#0)/(#1))*(#1);((#1)<0 && _t<=0) || ((#1)>0 && _t>=0) ? _t : _t + (#1);})")   (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;({fixnum _t=(#0)%(#1);((#1)<0 && _t<=0) || ((#1)>0 && _t>=0) ? _t : _t + (#1);})")
912     (get 'mod 'inline-always))     (get 'mod 'inline-always))
913    
914  ;;NCONC  ;;NCONC

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

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