perm filename MORE.LSP[4,LMM] blob
sn#044058 filedate 1973-05-19 generic text, type T, neo UTF8
(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
(FILELST FORSM
DUMMY
INIT
FORLSP
MORE
CYCPRE
CYCOMA
CYCOMB
CYCOMD
CYCOME
CYCOMF
CYCOMG
CYCOMH
CYCMR1
CYCCAT
CYCMR2
EXPAND
STRGEN
CYCDRJ
CRESOR
CRECYC
CRELAP)
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)