(DEFPROP MOREFNS (MOREFNS *MIN *MAX FIX+ FILELST) VALUE) 

(LAP *MIN SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (CALL 2. (E *GREAT) S) 
       (JUMPE 1. TAG2) 
       (MOVE 1. 0. P) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 1. -1. P) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP *MAX SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (CALL 2. (E *LESS) S) 
       (JUMPE 1. TAG2) 
       (MOVE 1. 0. P) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 1. -1. P) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP FIX+ SUBR) 
       (MOVEI 2. (QUOTE 0.99999899) S) 
       (CALL 2. (E *PLUS) S) 
       (JCALL 1. (E FIX) S) 
       NIL 

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