/[gcl]/gcl/h/enum.h
ViewVC logotype

Diff of /gcl/h/enum.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:02 1999 UTC revision 1.2 by camm, Fri Jul 8 06:09:16 2005 UTC
# Line 12  enum type { Line 12  enum type {
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,
# Line 39  enum type { Line 39  enum type {
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,

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26