/[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.16 by camm, Wed Jun 29 04:20:08 2005 UTC revision 1.17 by camm, Fri Jul 8 06:02:47 2005 UTC
# Line 1016  type_of(#0)==t_bitvector") Line 1016  type_of(#0)==t_bitvector")
1016     (get 'null 'inline-always))     (get 'null 'inline-always))
1017    
1018  ;;NUMBERP  ;;NUMBERP
1019   (push '((t) boolean #.(flags)   (push '((t) boolean #.(flags)"@0;numberp(#0)")
   "@0;({enum type _numberp=type_of(#0); _numberp>=t_fixnum && _numberp <= t_complex;})")  
1020     (get 'numberp 'inline-always))     (get 'numberp 'inline-always))
1021    
1022  ;;EQL-IS-EQ  ;;EQL-IS-EQ
1023   (push '((t) boolean #.(flags)   (push '((t) boolean #.(flags)"@0;eql_is_eq(#0)")
   "@0;(is_imm_fixnum(#0) || ({enum type _tp=type_of(#0); _tp==t_cons || _tp > t_character;}))")  
1024     (get 'eql-is-eq 'inline-always))     (get 'eql-is-eq 'inline-always))
1025   (push '((fixnum) boolean #.(flags)   (push '((fixnum) boolean #.(flags)
1026    "@0;(is_imm_fix(#0))")    "@0;(is_imm_fix(#0))")

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

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