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);}) |