Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50216/macros.l2
Click 43,50216/macros.l2 to see without markup as text/plain
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)