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