PDP-10 Archive: decus/20-0039/macros.l2 from decus_20tap2

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)