(DEFPROP MOREFNS
 (MOREFNS *MIN *MAX FIX+ FILELST D CONDEVAL COLLECT (SETQ CURRENTFILE NIL))
VALUE)

(DEFPROP *MIN
 (LAMBDA (A B) (COND ((GREATERP A B) B) (T A)))
EXPR)

(DEFPROP *MAX
 (LAMBDA (A B) (COND ((GREATERP B A) B) (T A)))
EXPR)

(DEFPROP FIX+
 (LAMBDA (N) (FIX (PLUS N 0.99999899)))
EXPR)

(DEFPROP FILELST
 (NIL FOO
      MORE
      FORSM
      DUMMY
      INIT
      FORLSP
      CYCPRE
      CYCOMA
      CYCOMB
      CYCOMD
      CYCOME
      CYCOMF
      CYCOMG
      CYCOMH
      CYCDRA
      CYCDRB
      CYCDRC
      CYCDRD
      CYCDRE
      CYCDRF
      CYCDRG
      CYCDRH
      CYCDRI
      CYCDRJ
      CYCMR1
      CYCCAT
      CYCMR2
      CYCFRM
      CYCXGP)
VALUE)

(DEFPROP D
 (LAMBDA(DEFL)
  (PROG1 (SETQ LASTWORD (SETQ DEFL (EVAL (CONS (QUOTE DE) DEFL))))
	 (AND CURRENTFILE (SET (FILEFNS CURRENTFILE) (CONS DEFL (CONDEVAL (FILEFNS CURRENTFILE)))))))
FEXPR)

(DEFPROP CONDEVAL
 (LAMBDA (VAR) (CDR (OR# (GET VAR (QUOTE VALUE)) (QUOTE (NIL)))))
EXPR)

(DEFPROP COLLECT
 (LAMBDA (FIL) (SETQ CURRENTFILE FIL) (AND FIL (SETQ FILELST (CONS FIL (DREMOVE FIL FILELST)))))
EXPR)

(SETQ CURRENTFILE NIL)