/[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.5 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.6 by camm, Sat Feb 15 00:38:27 2003 UTC
# Line 1105  type_of(#0)==t_bitvector") Line 1105  type_of(#0)==t_bitvector")
1105  (push '((fixnum-float) boolean #.(flags)"(#0)==0")  (push '((fixnum-float) boolean #.(flags)"(#0)==0")
1106     (get 'zerop 'inline-always))     (get 'zerop 'inline-always))
1107    
1108    ;;CMOD
1109     (push '((t) t #.(flags) "cmod(#0)")
1110       (get 'system:cmod 'inline-always))
1111    
1112    ;;CTIMES
1113     (push '((t t) t #.(flags) "ctimes(#0,#1)")
1114       (get 'system:ctimes 'inline-always))
1115    
1116    ;;CPLUS
1117     (push '((t t) t #.(flags) "cplus(#0,#1)")
1118       (get 'system:cplus 'inline-always))
1119    
1120    ;;CDIFFERENCE
1121     (push '((t t) t #.(flags) "cdifference(#0,#1)")
1122       (get 'system:cdifference 'inline-always))
1123    

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

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