/[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.7 by camm, Sat Mar 20 17:42:13 2004 UTC revision 1.8 by camm, Thu Sep 16 21:08:18 2004 UTC
# Line 634  type_of(#0)==t_bitvector") Line 634  type_of(#0)==t_bitvector")
634     (get 'char-code 'inline-always))     (get 'char-code 'inline-always))
635    
636  ;;CHAR/=  ;;CHAR/=
  (push '((character character) boolean #.(flags)"(#0)!=(#1)")  
    (get 'char/= 'inline-always))  
637  (push '((t t) boolean #.(flags)"!eql(#0,#1)")  (push '((t t) boolean #.(flags)"!eql(#0,#1)")
638     (get 'char/= 'inline-unsafe))     (get 'char/= 'inline-unsafe))
639  (push '((t t) boolean #.(flags)"char_code(#0)!=char_code(#1)")  (push '((t t) boolean #.(flags)"char_code(#0)!=char_code(#1)")
640     (get 'char/= 'inline-unsafe))     (get 'char/= 'inline-unsafe))
641    (push '((character character) boolean #.(flags)"(#0)!=(#1)")
642       (get 'char/= 'inline-unsafe))
643    
644  ;;CHAR<  ;;CHAR<
645   (push '((character character) boolean #.(flags)"(#0)<(#1)")   (push '((character character) boolean #.(flags)"(#0)<(#1)")
# Line 1138  type_of(#0)==t_bitvector") Line 1138  type_of(#0)==t_bitvector")
1138   (push '((t t) t #.(flags) "cdifference(#0,#1)")   (push '((t t) t #.(flags) "cdifference(#0,#1)")
1139     (get 'system:cdifference 'inline-always))     (get 'system:cdifference 'inline-always))
1140    
1141    ;;GETHASH
1142    (push '((t t *) (values t t) #.(flags)(lambda (key hash &optional default)
1143                                    (let ((*value-to-go* (or
1144                                                          (pop *values-to-go*)
1145                                                          (and (member *value-to-go* '(top return) :test (function eq))
1146                                                               (list 'vs (vs-push)))
1147                                                          'trash)))
1148                                        (wt "({struct htent *_t=gethash(" key "," hash "); _t->hte_key==OBJNULL ? ({")
1149                                        (set-loc nil)
1150                                        (wt default ";}) : ({")
1151                                        (set-loc t)
1152                                        (wt "_t->hte_value;});})"))))
1153          (get 'gethash 'inline-unsafe))
1154    
1155    
1156    ;;si::HASH-SET
1157    (push '((t t t) t #.(flags set) "(sethash(#0,#1,#2),#2)") (get 'si::hash-set 'inline-unsafe))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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