Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0039/macros.l2
There are 2 other files named macros.l2 in the archive. Click here to see a list.
(DEFPROP Q (LAMBDA (L) (CONS (QUOTE QUOTE) (CDR L))) MACRO) 
 
(DEFPROP MCONS 
	 (LAMBDA (L) 
		 (COND ((NULL (CDDR L)) (CADR L)) 
		       (T (LIST (Q CONS) (CADR L) (CONS (CAR L) (CDDR L)))))) 
	 MACRO)

(DEFPROP ONEP 
(LAMBDA (X) (MCONS (Q EQ) 1 (CDR X)))
 MACRO)


(DEFPROP ZEROP
(LAMBDA(X)(MCONS (Q EQ)0 (CDR X)))
MACRO)