/[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.15 by camm, Mon May 9 19:12:38 2005 UTC revision 1.16 by camm, Wed Jun 29 04:20:08 2005 UTC
# Line 1017  type_of(#0)==t_bitvector") Line 1017  type_of(#0)==t_bitvector")
1017    
1018  ;;NUMBERP  ;;NUMBERP
1019   (push '((t) boolean #.(flags)   (push '((t) boolean #.(flags)
1020    "@0;type_of(#0)==t_fixnum||    "@0;({enum type _numberp=type_of(#0); _numberp>=t_fixnum && _numberp <= t_complex;})")
 type_of(#0)==t_bignum||  
 type_of(#0)==t_ratio||  
 type_of(#0)==t_shortfloat||  
 type_of(#0)==t_longfloat||  
 type_of(#0)==t_complex")  
1021     (get 'numberp 'inline-always))     (get 'numberp 'inline-always))
1022    
1023    ;;EQL-IS-EQ
1024     (push '((t) boolean #.(flags)
1025      "@0;(is_imm_fixnum(#0) || ({enum type _tp=type_of(#0); _tp==t_cons || _tp > t_character;}))")
1026       (get 'eql-is-eq 'inline-always))
1027     (push '((fixnum) boolean #.(flags)
1028      "@0;(is_imm_fix(#0))")
1029       (get 'eql-is-eq 'inline-always))
1030     (push '((#.+ift+) boolean #.(flags)
1031      "@0;Ct")
1032       (get 'eql-is-eq 'inline-always))
1033    
1034  ;;PLUSP  ;;PLUSP
1035   (push '((t) boolean #.(flags)"number_compare(small_fixnum(0),#0)<0")   (push '((t) boolean #.(flags)"number_compare(small_fixnum(0),#0)<0")
1036     (get 'plusp 'inline-always))     (get 'plusp 'inline-always))

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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