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