12 |
t_doublefloat, |
t_doublefloat, |
13 |
t_complex, |
t_complex, |
14 |
t_character, |
t_character, |
15 |
t_symbol, |
t_pathname, |
|
t_package, |
|
|
t_hashtable, |
|
|
t_array, |
|
|
t_vector, |
|
16 |
t_string, |
t_string, |
17 |
t_bitvector, |
t_bitvector, |
18 |
|
t_vector, |
19 |
|
t_array, |
20 |
|
t_hashtable, |
21 |
t_structure, |
t_structure, |
22 |
|
t_symbol, |
23 |
|
t_package, |
24 |
t_stream, |
t_stream, |
25 |
t_random, |
t_random, |
26 |
t_readtable, |
t_readtable, |
|
t_pathname, |
|
27 |
t_cfun, |
t_cfun, |
28 |
t_cclosure, |
t_cclosure, |
29 |
t_sfun, |
t_sfun, |
39 |
t_other |
t_other |
40 |
}; |
}; |
41 |
|
|
42 |
|
#define realp(a_) ({enum type _tp=type_of(a_); _tp >= t_fixnum && _tp < t_complex;}) |
43 |
|
#define numberp(a_) ({enum type _tp=type_of(a_); _tp >= t_fixnum && _tp <= t_complex;}) |
44 |
|
#define eql_is_eq(a_) (is_imm_fixnum(a_) || ({enum type _tp=type_of(a_); _tp == t_cons && _tp > t_character;})) |
45 |
|
#define equal_is_eq(a_) (is_imm_fixnum(a_) || type_of(a_)>t_bitvector) |
46 |
|
#define equalp_is_eq(a_) (type_of(a_)>t_structure) |
47 |
|
|
48 |
enum signals_allowed_values { |
enum signals_allowed_values { |
49 |
sig_none, |
sig_none, |