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

Diff of /gcl/h/object.h

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

revision 1.49 by camm, Thu Oct 6 20:30:08 2005 UTC revision 1.50 by camm, Fri Oct 7 18:19:45 2005 UTC
# Line 1266  EXTER unsigned plong signals_allowed, si Line 1266  EXTER unsigned plong signals_allowed, si
1266  /* #define proper_list(a) (type_of(a)==t_cons || (a)==Cnil) */  /* #define proper_list(a) (type_of(a)==t_cons || (a)==Cnil) */
1267  /* #define fix_dot(a) ((a) == Dotnil ? Cnil : (type_of(a)==t_cons && (a)->c.c_cdr==Dotnil ? (a)->c.c_car : (a)))  */  /* #define fix_dot(a) ((a) == Dotnil ? Cnil : (type_of(a)==t_cons && (a)->c.c_cdr==Dotnil ? (a)->c.c_car : (a)))  */
1268    
1269  #define endp(a) (type_of(a)==t_cons ? FALSE : ((a)==Cnil ? TRUE : ({TYPE_ERROR((a),sLlist);FALSE;})))  #define endp(a) (consp(a) ? FALSE : ((a)==Cnil ? TRUE : ({TYPE_ERROR((a),sLlist);FALSE;})))
1270    
1271    
1272  #define eql(a_,b_)    ({register object _a=(a_);register object _b=(b_);_a==_b || eql1(_a,_b);})  #define eql(a_,b_)    ({register object _a=(a_);register object _b=(b_);_a==_b || eql1(_a,_b);})

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

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