| … | |
… | |
| 376 | { |
376 | { |
| 377 | return type (p) == T_PAIR; |
377 | return type (p) == T_PAIR; |
| 378 | } |
378 | } |
| 379 | |
379 | |
| 380 | #define car(p) ((p)->object.cons.car + 0) |
380 | #define car(p) ((p)->object.cons.car + 0) |
| 381 | #define cdr(p) ((p)->object.cons.cdr) /* find_consecutive_cells uses &cdr */ |
381 | #define cdr(p) ((p)->object.cons.cdr + 0) |
| 382 | |
382 | |
| 383 | #define caar(p) car (car (p)) |
383 | #define caar(p) car (car (p)) |
| 384 | #define cadr(p) car (cdr (p)) |
384 | #define cadr(p) car (cdr (p)) |
| 385 | #define cdar(p) cdr (car (p)) |
385 | #define cdar(p) cdr (car (p)) |
| 386 | #define cddr(p) cdr (cdr (p)) |
386 | #define cddr(p) cdr (cdr (p)) |
