42 |
|
|
43 |
#define realp(a_) ({enum type _tp=type_of(a_); _tp >= t_fixnum && _tp < t_complex;}) |
#define realp(a_) ({enum type _tp=type_of(a_); _tp >= t_fixnum && _tp < t_complex;}) |
44 |
#define numberp(a_) ({enum type _tp=type_of(a_); _tp >= t_fixnum && _tp <= t_complex;}) |
#define numberp(a_) ({enum type _tp=type_of(a_); _tp >= t_fixnum && _tp <= t_complex;}) |
45 |
#define eql_is_eq(a_) (is_imm_fixnum(a_) || ({enum type _tp=type_of(a_); _tp == t_cons && _tp > t_character;})) |
#define eql_is_eq(a_) (is_imm_fixnum(a_) || ({enum type _tp=type_of(a_); _tp == t_cons || _tp > t_character;})) |
46 |
#define equal_is_eq(a_) (is_imm_fixnum(a_) || type_of(a_)>t_bitvector) |
#define equal_is_eq(a_) (is_imm_fixnum(a_) || type_of(a_)>t_bitvector) |
47 |
#define equalp_is_eq(a_) (type_of(a_)>t_structure) |
#define equalp_is_eq(a_) (type_of(a_)>t_structure) |
48 |
|
|