/[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.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Wed Oct 8 23:08:19 2003 UTC
# Line 887  type_of(#0)==t_bitvector") Line 887  type_of(#0)==t_bitvector")
887  ;;MAX  ;;MAX
888   (push '((t t) t #.(flags)"@01;(number_compare(#0,#1)>=0?(#0):#1)")   (push '((t t) t #.(flags)"@01;(number_compare(#0,#1)>=0?(#0):#1)")
889     (get 'max 'inline-always))     (get 'max 'inline-always))
890  (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;(#0)>=(#1)?(#0):#1")  (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;((#0)>=(#1)?(#0):#1)")
891     (get 'max 'inline-always))     (get 'max 'inline-always))
892    
893  ;;MIN  ;;MIN
894   (push '((t t) t #.(flags)"@01;(number_compare(#0,#1)<=0?(#0):#1)")   (push '((t t) t #.(flags)"@01;(number_compare(#0,#1)<=0?(#0):#1)")
895     (get 'min 'inline-always))     (get 'min 'inline-always))
896  (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;(#0)<=(#1)?(#0):#1")  (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;((#0)<=(#1)?(#0):#1)")
897     (get 'min 'inline-always))     (get 'min 'inline-always))
898    
899  ;;MINUSP  ;;MINUSP

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

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