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

Trailing-Edge - PDP-10 Archives - decuslib20-02 - 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)