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)") |
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)) |