(DEFPROP CRESORFNS
 (CRESORFNS (SETQ LOADING NIL)
	    (DE DECIMAL NIL (SETQ BASE (SETQ IBASE (PLUS 5. 5.))))
	    (DSKIN (FORSM . LSP)
		   (DUMMY . LSP)
		   (INIT . LSP)
		   (FORLSP . LSP)
		   (MORE . LSP)
		   (CYCPRE . LSP)
		   (CYCOMA . LSP)
		   (CYCOMB . LSP)
		   (CYCOMD . LSP)
		   (CYCOME . LSP)
		   (CYCOMF . LSP)
		   (CYCOMG . LSP)
		   (CYCOMH . LSP)
		   (EXPAND . LSP)
		   ARGLISTS
		   (STRGEN . LSP)
		   (CYCDRJ . LSP)
		   CATALIST)
	    FILELST
	    CRELAPFNS
	    CRECYCFNS
	    CREDENFNS)
VALUE)

(SETQ LOADING NIL)

(DE DECIMAL NIL (SETQ BASE (SETQ IBASE (PLUS 5. 5.))))

(DSKIN (FORSM . LSP)
       (DUMMY . LSP)
       (INIT . LSP)
       (FORLSP . LSP)
       (MORE . LSP)
       (CYCPRE . LSP)
       (CYCOMA . LSP)
       (CYCOMB . LSP)
       (CYCOMD . LSP)
       (CYCOME . LSP)
       (CYCOMF . LSP)
       (CYCOMG . LSP)
       (CYCOMH . LSP)
       (EXPAND . LSP)
       ARGLISTS
       (STRGEN . LSP)
       (CYCDRJ . LSP)
       CATALI)

(DEFPROP FILELST
 (FILELST FORSM
	  DUMMY
	  INIT
	  FORLSP
	  MORE
	  CYCPRE
	  CYCOMA
	  CYCOMB
	  CYCOMD
	  CYCOME
	  CATALIST
	  CYCOMF
	  CYCOMG
	  CYCOMH
	  EXPAND
	  STRGEN
	  CYCDRJ
	  CRESOR
	  CRECYC
	  CRELAP
	  ARGLISTS
	  FOROUT)
VALUE)

(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 (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)))
VALUE)

(DEFPROP CRECYCFNS
 (CRECYCFNS (SETQ LOADING T)
	    (DE DECIMAL NIL (SETQ BASE (SETQ IBASE (PLUS 5. 5.))))
	    (DSKIN (FORSM . LSP)
		   (DUMMY . LAP)
		   (INIT . LAP)
		   (FORLSP . LAP)
		   (MORE . LAP)
		   (CYCPRE . LSP)
		   (CYCOMA . LAP)
		   (CYCOMB . LAP)
		   (CYCOMD . LAP)
		   (CYCOME . LAP)
		   (CYCOMF . LAP)
		   (CYCOMG . LAP)
		   (CYCOMH . LAP)
		   (EXPAND . LSP)
		   ARGLISTS
		   (STRGEN . LSP)
		   (CYCDRJ . LAP)
		   CATALI)
	    (STARTUP))
VALUE)

(DEFPROP CREDENFNS
 (CREDENFNS (SETQ LOADING T)
	    (DE DECIMAL NIL (SETQ BASE (SETQ IBASE (PLUS 5. 5.))))
	    (DSKIN (FORSM . LSP)
		   (DUMMY . LAP)
		   (INIT . LAP)
		   (MORE . LAP)
		   (FORLSP . LAP)
		   (CYCPRE . LSP)
		   (CYCOMA . LAP)
		   (CYCOMB . LAP)
		   (CYCOMD . LAP)
		   (CYCOME . LAP)
		   (CYCOMF . LAP)
		   (CYCOMG . LAP)
		   (CYCOMH . LAP)
		   (CYCCAT . LAP)
		   (CYCFRM . LSP)
		   (FOROUT . LSP)
		   ARGLISTS
		   CATALI))
VALUE)