Unsafe pair access macros

Macros for fast - but unsafe - pair access. More...

Macros
#define	caaaar(x)   (car(car(car(car(x)))))
#define	caaadr(x)   (car(car(car(cdr(x)))))
#define	caaar(x)   (car(car(car(x))))
#define	caadar(x)   (car(car(cdr(car(x)))))
#define	caaddr(x)   (car(car(cdr(cdr(x)))))
#define	caadr(x)   (car(car(cdr(x))))
#define	caar(x)   (car(car(x)))
#define	cadaar(x)   (car(cdr(car(car(x)))))
#define	cadadr(x)   (car(cdr(car(cdr(x)))))
#define	cadar(x)   (car(cdr(car(x))))
#define	caddar(x)   (car(cdr(cdr(car(x)))))
#define	cadddr(x)   (car(cdr(cdr(cdr(x)))))
#define	caddr(x)   (car(cdr(cdr(x))))
#define	cadr(x)   (car(cdr(x)))
#define	car(x)   (((pair_type *) x)->pair_car)
#define	cdaaar(x)   (cdr(car(car(car(x)))))
#define	cdaadr(x)   (cdr(car(car(cdr(x)))))
#define	cdaar(x)   (cdr(car(car(x))))
#define	cdadar(x)   (cdr(car(cdr(car(x)))))
#define	cdaddr(x)   (cdr(car(cdr(cdr(x)))))
#define	cdadr(x)   (cdr(car(cdr(x))))
#define	cdar(x)   (cdr(car(x)))
#define	cddaar(x)   (cdr(cdr(car(car(x)))))
#define	cddadr(x)   (cdr(cdr(car(cdr(x)))))
#define	cddar(x)   (cdr(cdr(car(x))))
#define	cdddar(x)   (cdr(cdr(cdr(car(x)))))
#define	cddddr(x)   (cdr(cdr(cdr(cdr(x)))))
#define	cdddr(x)   (cdr(cdr(cdr(x))))
#define	cddr(x)   (cdr(cdr(x)))
#define	cdr(x)   (((pair_type *) x)->pair_cdr)

Detailed Description

Macros for fast - but unsafe - pair access.