perm filename CRELAP[DEN,LMM] blob sn#044069 filedate 1973-05-19 generic text, type T, neo UTF8
(DEFPROP CRELAPFNS
 (CRELAPFNS (REMPROP (QUOTE PROGN) (QUOTE P1))
	    (REMPROP (QUOTE PROGN) (QUOTE P2VAL))
	    (DEFPROP PROGN (LAMBDA (X) (LIST (QUOTE COND) (CONS T (CDR X)))) INMACRO)
	    (DSKIN (INIT . LSP) (FORLSP . LSP) (CYCPRE . LSP) (DUMMY . LSP))
	    (COMPL (DUMMY . LSP)
		   (INIT . LSP)
		   (FORLSP . LSP)
		   (MORE . LSP)
		   (CYCOMA . LSP)
		   (CYCOMB . LSP)
		   (CYCOMD . LSP)
		   (CYCOME . LSP)
		   (CYCOMF . LSP)
		   (CYCOMG . LSP)
		   (CYCOMH . LSP)
		   (CYCCAT . LSP)
		   (CYCDRJ . LSP)))
VALUE)

(REMPROP (QUOTE PROGN) (QUOTE P1))

(REMPROP (QUOTE PROGN) (QUOTE P2VAL))

(DEFPROP PROGN (LAMBDA (X) (LIST (QUOTE COND) (CONS T (CDR X)))) INMACRO)

(DSKIN (INIT . LSP) (FORLSP . LSP) (CYCPRE . LSP) (DUMMY . LSP))

(COMPL (INIT . LSP)
       (FORLSP . LSP)
       (MORE . LSP)
       (DUMMY . LSP)
       (CYCOMA . LSP)
       (CYCOMB . LSP)
       (CYCOMD . LSP)
       (CYCOME . LSP)
       (CYCOMF . LSP)
       (CYCOMG . LSP)
       (CYCOMH . LSP)
       (CYCCAT . LSP)
       (CYCDRJ . LSP))