/[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.4 by camm, Sun Sep 18 02:02:00 2005 UTC revision 1.5 by camm, Mon Sep 26 16:46:50 2005 UTC
# Line 42  enum type { Line 42  enum type {
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    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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