CL-USER 102 > (*tt* (PRE-TEMPLATE (T NULL 200 0 (PRE-TEMPLATE NIL ((INCSP 1) (LOD 0) (LODNIL 0) (EQ 0) (STO 2) (INCSP 1) (RET 0))) 4 ATOM (PRE-TEMPLATE (NOT CONSP) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (CALLCLOS 2) (STO 2) (INCSP 1) (RET 0))) NOT (PRE-TEMPLATE (NULL T) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8395) (LITIDX 1) (%SYMBOL-VALUE 0) (JMP #:G8396) (LABEL #:G8395) (LITIDX 1) (%SYMBOL-VALUE 0) (JNIL #:G8397) (LODNIL 0) (JMP #:G8398) (LABEL #:G8397) (LODNIL 0) (LABEL #:G8398) (LABEL #:G8396) (STO 2) (INCSP 1) (RET 0))) CONS (PRE-TEMPLATE (%ALLOCATE-SPACE 8 0 4 1) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (CALLCLOS 2) (LOD 0) (LITIDX 2) (LOD 4) (SET-WORD 0) (INCSP 1) (LOD 0) (LITIDX 3) (LOD 3) (SET-WORD 0) (INCSP 1) (LOD 0) (LITIDX 4) (TAG-SET 0) (LOD 0) (STO 2) (INCSP 1) (LOD 0) (STO 1) (INCSP 0) (STO 3) (INCSP 2) (RET 0))) CAR (PRE-TEMPLATE (NULL 0) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8399) (LODNIL 0) (JMP #:G8400) (LABEL #:G8399) (LOD 0) (LITIDX 1) (GET-WORD 0) (LABEL #:G8400) (STO 2) (INCSP 1) (RET 0))) CDR (PRE-TEMPLATE (NULL 4) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8401) (LODNIL 0) (JMP #:G8402) (LABEL #:G8401) (LOD 0) (LITIDX 1) (GET-WORD 0) (LABEL #:G8402) (STO 2) (INCSP 1) (RET 0))) SET-CAR (PRE-TEMPLATE (0) ((INCSP 1) (LOD 1) (LITIDX 0) (LOD 2) (SET-WORD 0) (STO 3) (INCSP 2) (RET 0))) SET-CDR (PRE-TEMPLATE (4) ((INCSP 1) (LOD 1) (LITIDX 0) (LOD 2) (SET-WORD 0) (STO 3) (INCSP 2) (RET 0))) *CONS-TAG* 1 CONSP (PRE-TEMPLATE (*CONS-TAG*) ((INCSP 1) (LOD 0) (LITIDX 0) (%SYMBOL-VALUE 0) (TAG-EQ 0) (STO 2) (INCSP 1) (RET 0))) LISTP (PRE-TEMPLATE (NULL CONSP) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (JNIL #:G8403) (LOD 0) (JMP #:G8404) (LABEL #:G8403) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LABEL #:G8404) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) *STRING-HEAD-TAG* 2 *STRING-TAG* MAKE-STRING (PRE-TEMPLATE (%ALIGN 2 4 8 3 %ALLOCATE-SPACE 0 1 *STRING-HEAD-TAG* SET-CHAR CODE-CHAR *STRING-TAG*) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 1) (CALLCLOS 3) (LITIDX 2) (%DIV 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 2) (%* 0) (LITIDX 3) (%+ 0) (LITIDX 4) (CALLCLOS 3) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LITIDX 6) (LOD 3) (LITIDX 1) (P-SHIFTL 0) (LITIDX 7) (ADDR-IOR 0) (LITIDX 8) (%SYMBOL-VALUE 0) (TAG-SET 0) (SET-WORD 0) (INCSP 1) (LOD 1) (LITIDX 2) (LOD 6) (SET-WORD 0) (INCSP 1) (LITIDX 6) (LABEL #:G8405) (LOD 0) (LOD 6) (%>= 0) (JNIL #:G8406) (LODNIL 0) (JMP #:G8407) (LABEL #:G8406) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 2) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LITIDX 6) (CALLCLOS 2) (CALLCLOS 4) (INCSP 1) (LOD 0) (LITIDX 7) (%+ 0) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8405) (LABEL #:G8407) (STO 1) (INCSP 0) (INCSP 1) (LOD 1) (LITIDX 11) (%SYMBOL-VALUE 0) (TAG-SET 0) (LOD 0) (STO 3) (INCSP 1) (LOD 1) (STO 1) (INCSP 0) (STO 1) (INCSP 0) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) CHAR (PRE-TEMPLATE (8 CODE-CHAR) ((INCSP 1) (LOD 1) (LOD 1) (LITIDX 0) (%+ 0) (GET-BYTE 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (STO 1) (INCSP 0) (STO 3) (INCSP 2) (RET 0))) SET-CHAR (PRE-TEMPLATE (CHAR-CODE 8) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 3) (LOD 3) (LITIDX 1) (%+ 0) (LOD 2) (SET-BYTE 0) (STO 1) (INCSP 0) (STO 4) (INCSP 3) (RET 0))) STRINGP (PRE-TEMPLATE (*STRING-TAG* 0 2 *STRING-HEAD-TAG*) ((INCSP 1) (LOD 0) (LITIDX 0) (%SYMBOL-VALUE 0) (TAG-EQ 0) (JNIL #:G8408) (LOD 0) (LITIDX 1) (GET-WORD 0) (LOD 0) (LITIDX 2) (ADDR-AND 0) (LITIDX 1) (ADDR-EQI 0) (JNIL #:G8410) (LOD 0) (LITIDX 3) (%SYMBOL-VALUE 0) (TAG-EQ 0) (JMP #:G8411) (LABEL #:G8410) (LODNIL 0) (LABEL #:G8411) (STO 1) (INCSP 0) (JMP #:G8409) (LABEL #:G8408) (LODNIL 0) (LABEL #:G8409) (STO 2) (INCSP 1) (RET 0))) LENGTH (PRE-TEMPLATE (STRINGP ARRAYP 4 -1) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (JNIL #:G8414) (LOD 0) (JMP #:G8415) (LABEL #:G8414) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LABEL #:G8415) (STO 1) (INCSP 0) (JNIL #:G8412) (LOD 0) (LITIDX 2) (GET-WORD 0) (JMP #:G8413) (LABEL #:G8412) (LITIDX 3) (LABEL #:G8413) (STO 2) (INCSP 1) (RET 0))) STRING< (PRE-TEMPLATE NIL ((INCSP 1) (STO 3) (INCSP 2) (RET 0))) STRING> (PRE-TEMPLATE NIL ((INCSP 1) (STO 3) (INCSP 2) (RET 0))) STRING= (PRE-TEMPLATE NIL ((INCSP 1) (STO 3) (INCSP 2) (RET 0))) STRING-CMP-CODE (PRE-TEMPLATE (LENGTH 0 CHAR-CODE CHAR -1 1) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 1) (LITIDX 1) (LABEL #:G8416) (LOD 0) (LOD 4) (%>= 0) (LOD 0) (JNIL #:G8419) (LOD 0) (JMP #:G8420) (LABEL #:G8419) (LOD 1) (LOD 4) (%>= 0) (LOD 0) (JNIL #:G8421) (LOD 0) (JMP #:G8422) (LABEL #:G8421) (LOD 3) (LITIDX 1) (%/= 0) (LABEL #:G8422) (STO 1) (INCSP 0) (LABEL #:G8420) (STO 1) (INCSP 0) (JNIL #:G8417) (LOD 1) (JMP #:G8418) (LABEL #:G8417) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 7) (LOD 3) (CALLCLOS 3) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 7) (LOD 4) (CALLCLOS 3) (CALLCLOS 2) (LOD 1) (LOD 1) (%< 0) (JNIL #:G8423) (LITIDX 4) (LOD 0) (STO 5) (JMP #:G8424) (LABEL #:G8423) (LOD 1) (LOD 1) (%> 0) (JNIL #:G8425) (LITIDX 5) (LOD 0) (STO 5) (JMP #:G8426) (LABEL #:G8425) (LODNIL 0) (LABEL #:G8426) (LABEL #:G8424) (STO 2) (INCSP 1) (INCSP 1) (LOD 0) (LITIDX 5) (%+ 0) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8416) (LABEL #:G8418) (STO 1) (INCSP 0) (INCSP 1) (LOD 0) (LITIDX 1) (%= 0) (JNIL #:G8427) (LOD 2) (LOD 2) (%< 0) (JNIL #:G8429) (LITIDX 4) (JMP #:G8430) (LABEL #:G8429) (LOD 2) (LOD 2) (%= 0) (JNIL #:G8431) (LITIDX 1) (JMP #:G8432) (LABEL #:G8431) (LOD 2) (LOD 2) (%> 0) (JNIL #:G8433) (LITIDX 5) (JMP #:G8434) (LABEL #:G8433) (LODNIL 0) (LABEL #:G8434) (LABEL #:G8432) (LABEL #:G8430) (JMP #:G8428) (LABEL #:G8427) (LOD 0) (LABEL #:G8428) (STO 3) (INCSP 2) (STO 3) (INCSP 2) (RET 0))) GET-HASH (PRE-TEMPLATE (LENGTH 2 0 1 CHAR-CODE CHAR 256) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 1) (LITIDX 2) (LABEL #:G8435) (LOD 0) (LOD 3) (LITIDX 3) (%- 0) (%>= 0) (JNIL #:G8436) (LOD 1) (LOD 4) (%REM 0) (JMP #:G8437) (LABEL #:G8436) (LOD 1) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 7) (LOD 4) (CALLCLOS 3) (CALLCLOS 2) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 8) (LOD 5) (LITIDX 3) (%+ 0) (CALLCLOS 3) (CALLCLOS 2) (LITIDX 6) (%* 0) (%+ 0) (%+ 0) (LOD 4) (%REM 0) (LOD 0) (STO 3) (INCSP 1) (LOD 0) (LITIDX 1) (%+ 0) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8435) (LABEL #:G8437) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (STO 3) (INCSP 2) (RET 0))) *ARRAY-HEAD-TAG* *ARRAY-TAG* *ARRAY-LEAD* 12 MAKE-VECTOR (PRE-TEMPLATE (%ALIGN 4 *ARRAY-LEAD* 3 %ALLOCATE-SPACE 0 2 1 *ARRAY-HEAD-TAG* 8 SET-SVREF *ARRAY-TAG*) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (LOD 2) (%* 0) (LITIDX 2) (%SYMBOL-VALUE 0) (%+ 0) (LITIDX 3) (CALLCLOS 3) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LITIDX 5) (LOD 3) (LITIDX 6) (P-SHIFTL 0) (LITIDX 7) (ADDR-IOR 0) (LITIDX 8) (%SYMBOL-VALUE 0) (TAG-SET 0) (SET-WORD 0) (INCSP 1) (LOD 1) (LITIDX 1) (LOD 5) (SET-WORD 0) (INCSP 1) (LOD 1) (LITIDX 9) (LITIDX 5) (SET-WORD 0) (INCSP 1) (LITIDX 5) (LABEL #:G8438) (LOD 0) (LOD 5) (%>= 0) (JNIL #:G8439) (LODNIL 0) (JMP #:G8440) (LABEL #:G8439) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 2) (LODNIL 0) (CALLCLOS 4) (INCSP 1) (LOD 0) (LITIDX 7) (%+ 0) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8438) (LABEL #:G8440) (STO 1) (INCSP 0) (INCSP 1) (LOD 1) (LITIDX 11) (%SYMBOL-VALUE 0) (TAG-SET 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) SVREF (PRE-TEMPLATE (4 *ARRAY-LEAD*) ((INCSP 1) (LOD 1) (LOD 1) (LITIDX 0) (%* 0) (LITIDX 1) (%SYMBOL-VALUE 0) (%+ 0) (GET-WORD 0) (STO 3) (INCSP 2) (RET 0))) SET-SVREF (PRE-TEMPLATE (4 *ARRAY-LEAD*) ((INCSP 1) (LOD 2) (LOD 2) (LITIDX 0) (%* 0) (LITIDX 1) (%SYMBOL-VALUE 0) (%+ 0) (LOD 2) (SET-WORD 0) (STO 4) (INCSP 3) (RET 0))) ARRAYP (PRE-TEMPLATE (*ARRAY-TAG* 0 2 *ARRAY-HEAD-TAG*) ((INCSP 1) (LOD 0) (LITIDX 0) (%SYMBOL-VALUE 0) (TAG-EQ 0) (JNIL #:G8441) (LOD 0) (LITIDX 1) (GET-WORD 0) (LOD 0) (LITIDX 2) (ADDR-AND 0) (LITIDX 1) (ADDR-EQI 0) (JNIL #:G8443) (LOD 0) (LITIDX 3) (%SYMBOL-VALUE 0) (TAG-EQ 0) (JMP #:G8444) (LABEL #:G8443) (LODNIL 0) (LABEL #:G8444) (STO 1) (INCSP 0) (JMP #:G8442) (LABEL #:G8441) (LODNIL 0) (LABEL #:G8442) (STO 2) (INCSP 1) (RET 0))) *CHAR-MARK* *CHAR-TAG* 3 CHAR-CODE (PRE-TEMPLATE (14) ((INCSP 1) (LOD 0) (LITIDX 0) (P-SHIFTR 0) (STO 2) (INCSP 1) (RET 0))) CODE-CHAR (PRE-TEMPLATE (14 *CHAR-TAG*) ((INCSP 1) (LOD 0) (LITIDX 0) (P-SHIFTL 0) (LITIDX 1) (%SYMBOL-VALUE 0) (TAG-SET 0) (STO 2) (INCSP 1) (RET 0))) CHARACTERP (PRE-TEMPLATE (*CHAR-TAG*) ((INCSP 1) (LOD 0) (LITIDX 0) (%SYMBOL-VALUE 0) (TAG-EQ 0) (STO 2) (INCSP 1) (RET 0))) *SYMBOL-HEAD-ADDR* *SYMBOL-HEAD-TAG* *SYMBOL-TAG* MAKE-SYMBOL (PRE-TEMPLATE (%ALLOCATE-SPACE 24 0 *SYMBOL-HEAD-ADDR* *SYMBOL-HEAD-TAG* 4 8 12 16 20 *SYMBOL-TAG*) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (CALLCLOS 2) (LOD 0) (LITIDX 2) (LITIDX 3) (%SYMBOL-VALUE 0) (LITIDX 4) (%SYMBOL-VALUE 0) (TAG-SET 0) (SET-WORD 0) (INCSP 1) (LOD 0) (LITIDX 5) (LOD 3) (SET-WORD 0) (INCSP 1) (LOD 0) (LITIDX 6) (LODNIL 0) (SET-WORD 0) (INCSP 1) (LOD 0) (LITIDX 7) (LODNIL 0) (SET-WORD 0) (INCSP 1) (LOD 0) (LITIDX 8) (LODNIL 0) (SET-WORD 0) (INCSP 1) (LOD 0) (LITIDX 9) (LODNIL 0) (SET-WORD 0) (INCSP 1) (LOD 0) (LITIDX 10) (%SYMBOL-VALUE 0) (TAG-SET 0) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) INTERN (PRE-TEMPLATE (GET-HASH *BASE-PKG-LEN* SVREF *BASE-PKG* -1 NULL 0 STRING-CMP-CODE SYMBOL-NAME CAR CDR MAKE-SYMBOL CONS SET-SYMBOL-PACKAGE SET-SVREF SET-CDR) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 1) (%SYMBOL-VALUE 0) (CALLCLOS 3) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-VALUE 0) (LOD 2) (CALLCLOS 3) (LODNIL 0) (LODNIL 0) (LITIDX 4) (LOD 5) (LOD 4) (LABEL #:G8445) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (JNIL #:G8448) (LOD 0) (JMP #:G8449) (LABEL #:G8448) (LOD 3) (LITIDX 6) (%>= 0) (LABEL #:G8449) (STO 1) (INCSP 0) (JNIL #:G8446) (LODNIL 0) (JMP #:G8447) (LABEL #:G8446) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 8) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (CALLCLOS 2) (CALLCLOS 3) (LOD 0) (STO 4) (INCSP 1) (LOD 3) (LOD 0) (STO 6) (INCSP 1) (LOD 0) (LOD 0) (STO 5) (INCSP 1) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8445) (LABEL #:G8447) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 6) (LOD 2) (%= 0) (JNIL #:G8450) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (JMP #:G8451) (LABEL #:G8450) (LOD 1) (LITIDX 6) (%>= 0) (JNIL #:G8452) (LITIDX 11) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (LITIDX 12) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 5) (CALLCLOS 3) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LOD 2) (LITIDX 3) (%SYMBOL-VALUE 0) (CALLCLOS 3) (INCSP 1) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (JNIL #:G8454) (LITIDX 14) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-VALUE 0) (LOD 9) (LOD 3) (CALLCLOS 4) (JMP #:G8455) (LABEL #:G8454) (LITIDX 15) (%SYMBOL-FUNCTION 0) (LOD 6) (LOD 2) (CALLCLOS 3) (LABEL #:G8455) (INCSP 1) (LOD 1) (STO 1) (INCSP 0) (STO 1) (INCSP 0) (JMP #:G8453) (LABEL #:G8452) (LOD 1) (LITIDX 6) (%< 0) (JNIL #:G8456) (LITIDX 11) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (LITIDX 12) (%SYMBOL-FUNCTION 0) (LOD 1) (LODNIL 0) (CALLCLOS 3) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LOD 2) (LITIDX 3) (%SYMBOL-VALUE 0) (CALLCLOS 3) (INCSP 1) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (JNIL #:G8458) (LITIDX 14) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-VALUE 0) (LOD 9) (LOD 3) (CALLCLOS 4) (JMP #:G8459) (LABEL #:G8458) (LITIDX 15) (%SYMBOL-FUNCTION 0) (LOD 5) (LOD 2) (CALLCLOS 3) (LABEL #:G8459) (INCSP 1) (LOD 1) (STO 1) (INCSP 0) (STO 1) (INCSP 0) (JMP #:G8457) (LABEL #:G8456) (LODNIL 0) (LABEL #:G8457) (LABEL #:G8453) (LABEL #:G8451) (STO 5) (INCSP 4) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) SYMBOL-NAME (PRE-TEMPLATE (4) ((INCSP 1) (LOD 0) (LITIDX 0) (GET-WORD 0) (STO 2) (INCSP 1) (RET 0))) SYMBOL-VALUE (PRE-TEMPLATE (8) ((INCSP 1) (LOD 0) (LITIDX 0) (GET-WORD 0) (STO 2) (INCSP 1) (RET 0))) SYMBOL-FUNCTION (PRE-TEMPLATE (12) ((INCSP 1) (LOD 0) (LITIDX 0) (GET-WORD 0) (STO 2) (INCSP 1) (RET 0))) SYMBOL-PLIST (PRE-TEMPLATE (16) ((INCSP 1) (LOD 0) (LITIDX 0) (GET-WORD 0) (STO 2) (INCSP 1) (RET 0))) SYMBOL-PACKAGE (PRE-TEMPLATE (20) ((INCSP 1) (LOD 0) (LITIDX 0) (GET-WORD 0) (STO 2) (INCSP 1) (RET 0))) SET-SYMBOL-VALUE (PRE-TEMPLATE (8) ((INCSP 1) (LOD 1) (LITIDX 0) (LOD 2) (SET-WORD 0) (STO 3) (INCSP 2) (RET 0))) SET-SYMBOL-FUNCTION (PRE-TEMPLATE (12) ((INCSP 1) (LOD 1) (LITIDX 0) (LOD 2) (SET-WORD 0) (STO 3) (INCSP 2) (RET 0))) SET-SYMBOL-PLIST (PRE-TEMPLATE (16) ((INCSP 1) (LOD 1) (LITIDX 0) (LOD 2) (SET-WORD 0) (STO 3) (INCSP 2) (RET 0))) SET-SYMBOL-PACKAGE (PRE-TEMPLATE (20) ((INCSP 1) (LOD 1) (LITIDX 0) (LOD 2) (SET-WORD 0) (STO 3) (INCSP 2) (RET 0))) SYMBOLP (PRE-TEMPLATE (*SYMBOL-TAG* 0 2 *SYMBOL-HEAD-TAG*) ((INCSP 1) (LOD 0) (LITIDX 0) (%SYMBOL-VALUE 0) (TAG-EQ 0) (JNIL #:G8460) (LOD 0) (LITIDX 1) (GET-WORD 0) (LOD 0) (LITIDX 2) (ADDR-AND 0) (LITIDX 2) (ADDR-EQI 0) (JNIL #:G8462) (LOD 0) (LITIDX 3) (%SYMBOL-VALUE 0) (TAG-EQ 0) (JMP #:G8463) (LABEL #:G8462) (LODNIL 0) (LABEL #:G8463) (STO 1) (INCSP 0) (JMP #:G8461) (LABEL #:G8460) (LODNIL 0) (LABEL #:G8461) (STO 2) (INCSP 1) (RET 0))) *FIXNUM-TAG* NUMBERP (PRE-TEMPLATE (*FIXNUM-TAG*) ((INCSP 1) (LOD 0) (LITIDX 0) (%SYMBOL-VALUE 0) (TAG-EQ 0) (STO 2) (INCSP 1) (RET 0))) %ALIGN (PRE-TEMPLATE (P-ALIGN 2) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (LITIDX 1) (P-SHIFTR 0) (LOD 3) (CALLCLOS 3) (LITIDX 1) (P-SHIFTL 0) (STO 3) (INCSP 2) (RET 0))) *CLOSURE-HEAD-ADDR* *CLOSURE-HEAD-TAG* *CLOSURE-TAG* *CLOSURE-SLOTS* MAKE-CLOSURE (PRE-TEMPLATE (%ALLOCATE-SPACE *CLOSURE-SLOTS* 4 8 0 *CLOSURE-HEAD-ADDR* *CLOSURE-HEAD-TAG* SET-CLOSURE-REF 1 *CLOSURE-TAG*) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-VALUE 0) (LITIDX 2) (%* 0) (LITIDX 3) (%+ 0) (CALLCLOS 2) (LOD 0) (LITIDX 4) (LITIDX 5) (%SYMBOL-VALUE 0) (LITIDX 6) (%SYMBOL-VALUE 0) (TAG-SET 0) (SET-WORD 0) (INCSP 1) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 4) (LOD 5) (CALLCLOS 4) (INCSP 1) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 8) (LOD 4) (CALLCLOS 4) (INCSP 1) (LOD 0) (LITIDX 9) (%SYMBOL-VALUE 0) (TAG-SET 0) (LOD 0) (STO 2) (INCSP 1) (LOD 0) (STO 1) (INCSP 0) (STO 3) (INCSP 2) (RET 0))) CLOSURE-REF (PRE-TEMPLATE (4) ((INCSP 1) (LOD 1) (LITIDX 0) (LOD 2) (LITIDX 0) (%* 0) (%+ 0) (GET-WORD 0) (STO 3) (INCSP 2) (RET 0))) SET-CLOSURE-REF (PRE-TEMPLATE (4) ((INCSP 1) (LOD 2) (LITIDX 0) (LOD 3) (LITIDX 0) (%* 0) (%+ 0) (LOD 2) (SET-WORD 0) (STO 4) (INCSP 3) (RET 0))) CLOSUREP (PRE-TEMPLATE (*CLOSURE-TAG* 0 2 *CLOSURE-HEAD-TAG*) ((INCSP 1) (LOD 0) (LITIDX 0) (%SYMBOL-VALUE 0) (TAG-EQ 0) (JNIL #:G8464) (LOD 0) (LITIDX 1) (GET-WORD 0) (LOD 0) (LITIDX 2) (ADDR-AND 0) (LITIDX 2) (ADDR-EQI 0) (JNIL #:G8466) (LOD 0) (LITIDX 3) (%SYMBOL-VALUE 0) (TAG-EQ 0) (JMP #:G8467) (LABEL #:G8466) (LODNIL 0) (LABEL #:G8467) (STO 1) (INCSP 0) (JMP #:G8465) (LABEL #:G8464) (LODNIL 0) (LABEL #:G8465) (STO 2) (INCSP 1) (RET 0))) *TEMPLATE-HEAD-TAG* *TEMPLATE-TAG* *TEMPLATE-LEADER* MAKE-TEMPLATE (PRE-TEMPLATE (%ALIGN 4 *TEMPLATE-LEADER* 3 %ALLOCATE-SPACE 0 2 1 *TEMPLATE-HEAD-TAG* 8 12 SET-TEMPL-REF-D + SET-TEMPL-REF-C *TEMPLATE-TAG*) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (LOD 2) (%+ 0) (LITIDX 1) (%* 0) (LITIDX 1) (LITIDX 2) (%SYMBOL-VALUE 0) (%* 0) (%+ 0) (LITIDX 3) (CALLCLOS 3) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LITIDX 5) (LOD 3) (LITIDX 6) (P-SHIFTL 0) (LITIDX 7) (ADDR-IOR 0) (LITIDX 8) (%SYMBOL-VALUE 0) (TAG-SET 0) (SET-WORD 0) (INCSP 1) (LOD 1) (LITIDX 1) (LOD 3) (LITIDX 2) (%SYMBOL-VALUE 0) (LITIDX 1) (%* 0) (LOD 8) (LITIDX 1) (%* 0) (%+ 0) (P-ADD 0) (SET-WORD 0) (INCSP 1) (LOD 1) (LITIDX 9) (LOD 6) (SET-WORD 0) (INCSP 1) (LOD 1) (LITIDX 10) (LOD 5) (SET-WORD 0) (INCSP 1) (LITIDX 5) (LABEL #:G8468) (LOD 0) (LOD 6) (%>= 0) (JNIL #:G8469) (LODNIL 0) (JMP #:G8470) (LABEL #:G8469) (LITIDX 11) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 2) (LODNIL 0) (CALLCLOS 4) (INCSP 1) (LITIDX 12) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 7) (CALLCLOS 3) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8468) (LABEL #:G8470) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 5) (LABEL #:G8471) (LOD 0) (LOD 5) (%>= 0) (JNIL #:G8472) (LODNIL 0) (JMP #:G8473) (LABEL #:G8472) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 2) (LITIDX 5) (LITIDX 5) (CALLCLOS 5) (INCSP 1) (LITIDX 12) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 7) (CALLCLOS 3) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8471) (LABEL #:G8473) (STO 1) (INCSP 0) (INCSP 1) (LOD 1) (LITIDX 14) (%SYMBOL-VALUE 0) (TAG-SET 0) (LOD 0) (STO 3) (INCSP 1) (LOD 1) (STO 1) (INCSP 0) (STO 1) (INCSP 0) (STO 3) (INCSP 2) (RET 0))) LENGTH-D (PRE-TEMPLATE (8) ((INCSP 1) (LOD 0) (LITIDX 0) (GET-WORD 0) (STO 2) (INCSP 1) (RET 0))) TEMPL-REF-D (PRE-TEMPLATE (*TEMPLATE-LEADER* 4) ((INCSP 1) (LOD 1) (LITIDX 0) (%SYMBOL-VALUE 0) (LITIDX 1) (%* 0) (LOD 2) (LITIDX 1) (%* 0) (%+ 0) (GET-WORD 0) (STO 3) (INCSP 2) (RET 0))) TEMPL-REF-C (PRE-TEMPLATE (4) ((INCSP 1) (LOD 1) (LITIDX 0) (GET-WORD 0) (LOD 0) (LOD 2) (LITIDX 0) (%* 0) (GET-WORD 0) (STO 1) (INCSP 0) (STO 3) (INCSP 2) (RET 0))) SET-TEMPL-REF-D (PRE-TEMPLATE (*TEMPLATE-LEADER* 4) ((INCSP 1) (LOD 2) (LITIDX 0) (%SYMBOL-VALUE 0) (LITIDX 1) (%* 0) (LOD 3) (LITIDX 1) (%* 0) (%+ 0) (LOD 2) (SET-WORD 0) (STO 4) (INCSP 3) (RET 0))) SET-TEMPL-REF-C (PRE-TEMPLATE (4) ((INCSP 1) (LOD 3) (LITIDX 0) (GET-WORD 0) (LOD 0) (LOD 4) (LITIDX 0) (%* 0) (LOD 4) (LOD 4) (P-CONSTR 0) (SET-WORD 0) (STO 1) (INCSP 0) (STO 5) (INCSP 4) (RET 0))) TEMPLATEP (PRE-TEMPLATE (*TEMPLATE-TAG* 0 2 *TEMPLATE-HEAD-TAG*) ((INCSP 1) (LOD 0) (LITIDX 0) (%SYMBOL-VALUE 0) (TAG-EQ 0) (JNIL #:G8474) (LOD 0) (LITIDX 1) (GET-WORD 0) (LOD 0) (LITIDX 2) (ADDR-AND 0) (LITIDX 1) (ADDR-EQI 0) (JNIL #:G8476) (LOD 0) (LITIDX 3) (%SYMBOL-VALUE 0) (TAG-EQ 0) (JMP #:G8477) (LABEL #:G8476) (LODNIL 0) (LABEL #:G8477) (STO 1) (INCSP 0) (JMP #:G8475) (LABEL #:G8474) (LODNIL 0) (LABEL #:G8475) (STO 2) (INCSP 1) (RET 0))) %ALLOCATE-SPACE (PRE-TEMPLATE (200 8) ((INCSP 1) (LITIDX 0) (LITIDX 1) (GET-WORD 0) (LOD 1) (CALLCLOS 2) (STO 2) (INCSP 1) (RET 0))) CREATE-NIL (PRE-TEMPLATE (MAKE-SYMBOL SET-SYMBOL-VALUE SET-SYMBOL-FUNCTION SET-SYMBOL-PLIST SET-SYMBOL-PACKAGE) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 2) (CALLCLOS 3) (INCSP 1) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 2) (CALLCLOS 3) (INCSP 1) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 2) (CALLCLOS 3) (INCSP 1) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 2) (CALLCLOS 3) (INCSP 1) (LOD 0) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) *BASE-PKG-LEN* 53 *RL* READ-MAIN (PRE-TEMPLATE (FUNCALL NEXT SAME CONSUME-WHITESPACE IS-SYMBOL-START READ-SYMBOL IS-QUOTE-START LIST QUOTE READ-MAIN IS-MACRO-START READ-MACRO IS-LPAREN IS-RPAREN T READ-REST-LIST CONS THROW READ-ERROR "read:err:unknown form") ((INCSP 1) (LODNIL 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (LITIDX 1) (CALLCLOS 3) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (LITIDX 2) (CALLCLOS 3) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (STO 4) (INCSP 1) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (JNIL #:G8478) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (JMP #:G8479) (LABEL #:G8478) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (JNIL #:G8480) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (INCSP 1) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 8) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (CALLCLOS 3) (JMP #:G8481) (LABEL #:G8480) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (JNIL #:G8482) (LITIDX 11) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (JMP #:G8483) (LABEL #:G8482) (LITIDX 12) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (JNIL #:G8484) (LODNIL 0) (LODNIL 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (INCSP 1) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (INCSP 1) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8486) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (INCSP 1) (LODNIL 0) (JMP #:G8487) (LABEL #:G8486) (LITIDX 14) (%SYMBOL-VALUE 0) (JNIL #:G8488) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LOD 0) (STO 3) (INCSP 1) (LITIDX 15) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LOD 0) (STO 2) (INCSP 1) (LITIDX 16) (%SYMBOL-FUNCTION 0) (LOD 2) (LOD 2) (CALLCLOS 3) (JMP #:G8489) (LABEL #:G8488) (LODNIL 0) (LABEL #:G8489) (LABEL #:G8487) (STO 2) (INCSP 1) (JMP #:G8485) (LABEL #:G8484) (LITIDX 14) (%SYMBOL-VALUE 0) (JNIL #:G8490) (LITIDX 17) (%SYMBOL-FUNCTION 0) (LITIDX 18) (LITIDX 19) (CALLCLOS 3) (JMP #:G8491) (LABEL #:G8490) (LODNIL 0) (LABEL #:G8491) (LABEL #:G8485) (LABEL #:G8483) (LABEL #:G8481) (LABEL #:G8479) (STO 3) (INCSP 2) (STO 2) (INCSP 1) (RET 0))) READ-REST-LIST (PRE-TEMPLATE (FUNCALL NEXT SAME PEEK CONSUME-WHITESPACE IS-DOT IS-WHITESPACE READ-MAIN IS-RPAREN T THROW READ-ERROR "read:err:missing rparen:1" READ-REST-LIST CONS) ((INCSP 1) (LODNIL 0) (LODNIL 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (LITIDX 1) (CALLCLOS 3) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (LITIDX 2) (CALLCLOS 3) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 5) (LITIDX 3) (CALLCLOS 3) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (INCSP 1) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8492) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8494) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (INCSP 1) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LOD 0) (STO 5) (INCSP 1) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (INCSP 1) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8496) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (INCSP 1) (LOD 3) (JMP #:G8497) (LABEL #:G8496) (LITIDX 9) (%SYMBOL-VALUE 0) (JNIL #:G8498) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LITIDX 11) (LITIDX 12) (CALLCLOS 3) (JMP #:G8499) (LABEL #:G8498) (LODNIL 0) (LABEL #:G8499) (LABEL #:G8497) (JMP #:G8495) (LABEL #:G8494) (LITIDX 9) (%SYMBOL-VALUE 0) (JNIL #:G8500) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LOD 0) (STO 6) (INCSP 1) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LOD 0) (STO 5) (INCSP 1) (LITIDX 14) (%SYMBOL-FUNCTION 0) (LOD 5) (LOD 5) (CALLCLOS 3) (JMP #:G8501) (LABEL #:G8500) (LODNIL 0) (LABEL #:G8501) (LABEL #:G8495) (JMP #:G8493) (LABEL #:G8492) (LITIDX 9) (%SYMBOL-VALUE 0) (JNIL #:G8502) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8504) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (INCSP 1) (LODNIL 0) (JMP #:G8505) (LABEL #:G8504) (LITIDX 9) (%SYMBOL-VALUE 0) (JNIL #:G8506) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LOD 0) (STO 6) (INCSP 1) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LOD 0) (STO 5) (INCSP 1) (LITIDX 14) (%SYMBOL-FUNCTION 0) (LOD 5) (LOD 5) (CALLCLOS 3) (JMP #:G8507) (LABEL #:G8506) (LODNIL 0) (LABEL #:G8507) (LABEL #:G8505) (JMP #:G8503) (LABEL #:G8502) (LODNIL 0) (LABEL #:G8503) (LABEL #:G8493) (STO 5) (INCSP 4) (STO 2) (INCSP 1) (RET 0))) IS-QUOTE-START (PRE-TEMPLATE (#\') ((INCSP 1) (LOD 0) (LITIDX 0) (EQ 0) (STO 2) (INCSP 1) (RET 0))) IS-MACRO-START (PRE-TEMPLATE (#\#) ((INCSP 1) (LOD 0) (LITIDX 0) (EQ 0) (STO 2) (INCSP 1) (RET 0))) IS-ATOM-START (PRE-TEMPLATE (IS-ALPHA IS-DIGIT MEMBER (#\* #\\ #\+ #\- #\% #\&)) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (JNIL #:G8508) (LOD 0) (JMP #:G8509) (LABEL #:G8508) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 0) (JNIL #:G8510) (LOD 0) (JMP #:G8511) (LABEL #:G8510) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 3) (LITIDX 3) (CALLCLOS 3) (LABEL #:G8511) (STO 1) (INCSP 0) (LABEL #:G8509) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) IS-FIXNUM-START (PRE-TEMPLATE (IS-DIGIT MEMBER (#\- #\+)) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (JNIL #:G8512) (LOD 0) (JMP #:G8513) (LABEL #:G8512) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (LITIDX 2) (CALLCLOS 3) (LABEL #:G8513) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) IS-FLOAT-START (PRE-TEMPLATE (IS-FIXNUM-START #\.) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (JNIL #:G8514) (LOD 0) (JMP #:G8515) (LABEL #:G8514) (LOD 1) (LITIDX 1) (EQ 0) (LABEL #:G8515) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) IS-SYMBOL-START (PRE-TEMPLATE (IS-FIXNUM-START IS-FLOAT-START IS-ATOM-START) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (JNIL #:G8516) (LOD 0) (JMP #:G8517) (LABEL #:G8516) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 0) (JNIL #:G8518) (LOD 0) (JMP #:G8519) (LABEL #:G8518) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LABEL #:G8519) (STO 1) (INCSP 0) (LABEL #:G8517) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) IS-SYMBOL-CH (PRE-TEMPLATE (IS-ALPHA IS-DIGIT MEMBER (#\* #\\ #\+ #\- #\. #\< #\> #\= #\? #\_ #\% #\:)) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (JNIL #:G8520) (LOD 0) (JMP #:G8521) (LABEL #:G8520) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 0) (JNIL #:G8522) (LOD 0) (JMP #:G8523) (LABEL #:G8522) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 3) (LITIDX 3) (CALLCLOS 3) (LABEL #:G8523) (STO 1) (INCSP 0) (LABEL #:G8521) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) IS-LPAREN (PRE-TEMPLATE (#\() ((INCSP 1) (LOD 0) (LITIDX 0) (EQ 0) (STO 2) (INCSP 1) (RET 0))) IS-RPAREN (PRE-TEMPLATE (#\)) ((INCSP 1) (LOD 0) (LITIDX 0) (EQ 0) (STO 2) (INCSP 1) (RET 0))) IS-DOT (PRE-TEMPLATE (#\.) ((INCSP 1) (LOD 0) (LITIDX 0) (EQ 0) (STO 2) (INCSP 1) (RET 0))) IS-SIGN (PRE-TEMPLATE (#\+ #\-) ((INCSP 1) (LOD 0) (LITIDX 0) (EQ 0) (LOD 0) (JNIL #:G8524) (LOD 0) (JMP #:G8525) (LABEL #:G8524) (LOD 1) (LITIDX 1) (EQ 0) (LABEL #:G8525) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) IS-WHITESPACE (PRE-TEMPLATE (MEMBER (#\Space)) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 1) (CALLCLOS 3) (STO 2) (INCSP 1) (RET 0))) IS-ATOM-CHAR (PRE-TEMPLATE (IS-ALPHA IS-DIGIT MEMBER (#\- #\+)) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (JNIL #:G8526) (LOD 0) (JMP #:G8527) (LABEL #:G8526) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 0) (JNIL #:G8528) (LOD 0) (JMP #:G8529) (LABEL #:G8528) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 3) (LITIDX 3) (CALLCLOS 3) (LABEL #:G8529) (STO 1) (INCSP 0) (LABEL #:G8527) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) IS-DIGIT (PRE-TEMPLATE (>= CHAR-CODE #\0 <= #\9) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 2) (CALLCLOS 2) (CALLCLOS 3) (JNIL #:G8530) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 4) (CALLCLOS 2) (CALLCLOS 3) (JMP #:G8531) (LABEL #:G8530) (LODNIL 0) (LABEL #:G8531) (STO 2) (INCSP 1) (RET 0))) IS-HEX-DIGIT (PRE-TEMPLATE (IS-DIGIT >= CHAR-CODE #\a <= #\f) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (JNIL #:G8532) (LOD 0) (JMP #:G8533) (LABEL #:G8532) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (JNIL #:G8534) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 5) (CALLCLOS 2) (CALLCLOS 3) (JMP #:G8535) (LABEL #:G8534) (LODNIL 0) (LABEL #:G8535) (LABEL #:G8533) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) IS-ALPHA (PRE-TEMPLATE (>= CHAR-CODE #\a <= #\z) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 2) (CALLCLOS 2) (CALLCLOS 3) (JNIL #:G8536) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 4) (CALLCLOS 2) (CALLCLOS 3) (JMP #:G8537) (LABEL #:G8536) (LODNIL 0) (LABEL #:G8537) (STO 2) (INCSP 1) (RET 0))) IS-EXPO-INIT (PRE-TEMPLATE (MEMBER (#\e #\E)) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 1) (CALLCLOS 3) (STO 2) (INCSP 1) (RET 0))) CONSUME-WHITESPACE (PRE-TEMPLATE (FUNCALL NEXT SAME NOT IS-WHITESPACE) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 1) (CALLCLOS 3) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (LITIDX 2) (CALLCLOS 3) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LABEL #:G8538) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8539) (LODNIL 0) (JMP #:G8540) (LABEL #:G8539) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8538) (LABEL #:G8540) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (STO 2) (INCSP 1) (RET 0))) READ-SYMBOL (PRE-TEMPLATE (FUNCALL NEXT SAME NOT IS-SYMBOL-CH CONS REVERSE READ-CL-AS-NUMBER MAKE-ATOM-STR MAKE-STRING-CL) ((INCSP 1) (LODNIL 0) (LODNIL 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (LITIDX 1) (CALLCLOS 3) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (LITIDX 2) (CALLCLOS 3) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LABEL #:G8541) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8542) (LODNIL 0) (JMP #:G8543) (LABEL #:G8542) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 6) (CALLCLOS 3) (LOD 0) (STO 6) (INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8541) (LABEL #:G8543) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 0) (STO 5) (INCSP 1) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 0) (STO 4) (INCSP 1) (LOD 2) (JNIL #:G8544) (LOD 2) (JMP #:G8545) (LABEL #:G8544) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (CALLCLOS 2) (LABEL #:G8545) (STO 4) (INCSP 3) (STO 2) (INCSP 1) (RET 0))) MAKE-STRING-CL (PRE-TEMPLATE (MAKE-STRING LENGTH 0 NULL CAR 1+ CDR) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (CALLCLOS 2) (LITIDX 2) (LOD 2) (LABEL #:G8546) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8547) (LOD 2) (JMP #:G8548) (LABEL #:G8547) (LOD 2) (LOD 2) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (%SET-SVREF 0) (INCSP 1) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 1) (LOD 0) (STO 5) (INCSP 1) (LOD 0) (LOD 0) (STO 4) (STO 2) (INCSP 1) (INCSP 1) (JMP #:G8546) (LABEL #:G8548) (STO 2) (INCSP 1) (STO 1) (INCSP 0) (STO 2) (INCSP 1) (RET 0))) MAKE-ATOM-STR (PRE-TEMPLATE (LIST ATOM) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (LOD 2) (CALLCLOS 3) (STO 2) (INCSP 1) (RET 0))) READ-MACRO (PRE-TEMPLATE (FUNCALL NEXT SAME #\' LIST FUNCTION READ-MAIN #\Q 0 > 7 NOT IS-HEX-DIGIT THROW READ-ERROR "read:err:Q malformed:001" CONS + 1 REVERSE MAKE-Q #\\ T "read:err:undefined macro:001") ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 1) (CALLCLOS 3) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (LITIDX 2) (CALLCLOS 3) (LODNIL 0) (LODNIL 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 0) (STO 3) (INCSP 1) (LOD 1) (LITIDX 3) (EQ 0) (JNIL #:G8549) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (INCSP 1) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 5) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (CALLCLOS 3) (JMP #:G8550) (LABEL #:G8549) (LOD 1) (LITIDX 7) (EQ 0) (JNIL #:G8551) (LODNIL 0) (LOD 0) (STO 2) (INCSP 1) (LITIDX 8) (LABEL #:G8553) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 10) (CALLCLOS 3) (JNIL #:G8554) (LODNIL 0) (JMP #:G8555) (LABEL #:G8554) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (LOD 0) (STO 4) (INCSP 1) (LITIDX 11) (%SYMBOL-FUNCTION 0) (LITIDX 12) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8556) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LITIDX 14) (LITIDX 15) (CALLCLOS 3) (JMP #:G8557) (LABEL #:G8556) (LODNIL 0) (LABEL #:G8557) (INCSP 1) (LITIDX 16) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 3) (CALLCLOS 3) (LOD 0) (STO 3) (INCSP 1) (LITIDX 17) (%SYMBOL-FUNCTION 0) (LITIDX 18) (LOD 2) (CALLCLOS 3) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8553) (LABEL #:G8555) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (INCSP 1) (LITIDX 19) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (STO 2) (INCSP 1) (LITIDX 20) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JMP #:G8552) (LABEL #:G8551) (LOD 1) (LITIDX 21) (EQ 0) (JNIL #:G8558) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 0) (STO 3) (INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (INCSP 1) (LOD 1) (JMP #:G8559) (LABEL #:G8558) (LITIDX 22) (%SYMBOL-VALUE 0) (JNIL #:G8560) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LITIDX 14) (LITIDX 23) (CALLCLOS 3) (JMP #:G8561) (LABEL #:G8560) (LODNIL 0) (LABEL #:G8561) (LABEL #:G8559) (LABEL #:G8552) (LABEL #:G8550) (STO 4) (INCSP 3) (STO 2) (INCSP 1) (RET 0))) MAKE-Q (PRE-TEMPLATE (LIST Q) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (LOD 2) (CALLCLOS 3) (STO 2) (INCSP 1) (RET 0))) DIGIT-TO-NUM (PRE-TEMPLATE (- CHAR-CODE #\0) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 2) (CALLCLOS 2) (CALLCLOS 3) (STO 2) (INCSP 1) (RET 0))) READ-CL-AS-NUMBER (PRE-TEMPLATE (1 0 CAR #\+ CDR #\- -1 NOT IS-DIGIT + * 10 DIGIT-TO-NUM NULL > RETURN-FROM READ-CL-AS-NUMBER IS-EXPO-INIT IS-SIGN EXPT) ((INCSP 1) (LITIDX 0) (LITIDX 0) (LOD 2) (LITIDX 1) (LITIDX 1) (LITIDX 1) (LITIDX 1) (LODNIL 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LITIDX 3) (EQ 0) (JNIL #:G8562) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LOD 0) (STO 7) (JMP #:G8563) (LABEL #:G8562) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LITIDX 5) (EQ 0) (JNIL #:G8564) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LOD 0) (STO 7) (INCSP 1) (LITIDX 6) (LOD 0) (STO 9) (JMP #:G8565) (LABEL #:G8564) (LODNIL 0) (LABEL #:G8565) (LABEL #:G8563) (INCSP 1) (LITIDX 1) (LABEL #:G8566) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (LOD 0) (JNIL #:G8569) (LOD 0) (JMP #:G8570) (LABEL #:G8569) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 10) (CALLCLOS 2) (CALLCLOS 2) (CALLCLOS 2) (LABEL #:G8570) (STO 1) (INCSP 0) (JNIL #:G8567) (LOD 0) (JMP #:G8568) (LABEL #:G8567) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (LOD 0) (STO 3) (INCSP 1) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 7) (LITIDX 11) (CALLCLOS 3) (LITIDX 12) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (CALLCLOS 3) (LOD 0) (STO 7) (INCSP 1) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (LOD 0) (STO 8) (INCSP 1) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 0) (CALLCLOS 3) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8566) (LABEL #:G8568) (STO 1) (INCSP 0) (LOD 0) (STO 3) (INCSP 1) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (JNIL #:G8573) (LITIDX 14) (%SYMBOL-FUNCTION 0) (LOD 2) (LITIDX 1) (CALLCLOS 3) (JMP #:G8574) (LABEL #:G8573) (LODNIL 0) (LABEL #:G8574) (JNIL #:G8571) (LITIDX 15) (%SYMBOL-FUNCTION 0) (LITIDX 16) (%SYMBOL-VALUE 0) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 10) (LOD 8) (CALLCLOS 3) (CALLCLOS 3) (JMP #:G8572) (LABEL #:G8571) (LODNIL 0) (LABEL #:G8572) (INCSP 1) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (JNIL #:G8575) (LITIDX 15) (%SYMBOL-FUNCTION 0) (LITIDX 16) (%SYMBOL-VALUE 0) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 10) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 9) (LOD 9) (CALLCLOS 3) (CALLCLOS 3) (CALLCLOS 3) (JMP #:G8576) (LABEL #:G8575) (LODNIL 0) (LABEL #:G8576) (INCSP 1) (LITIDX 17) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8577) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LOD 0) (STO 7) (INCSP 1) (LITIDX 18) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8579) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LITIDX 5) (EQ 0) (JNIL #:G8581) (LITIDX 6) (LOD 0) (STO 8) (JMP #:G8582) (LABEL #:G8581) (LODNIL 0) (LABEL #:G8582) (INCSP 1) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LOD 0) (STO 7) (JMP #:G8580) (LABEL #:G8579) (LODNIL 0) (LABEL #:G8580) (INCSP 1) (LITIDX 1) (LABEL #:G8583) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (LOD 0) (JNIL #:G8586) (LOD 0) (JMP #:G8587) (LABEL #:G8586) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 10) (CALLCLOS 2) (CALLCLOS 2) (CALLCLOS 2) (LABEL #:G8587) (STO 1) (INCSP 0) (JNIL #:G8584) (LODNIL 0) (JMP #:G8585) (LABEL #:G8584) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (LOD 0) (STO 3) (INCSP 1) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 5) (LITIDX 11) (CALLCLOS 3) (LITIDX 12) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (CALLCLOS 3) (LOD 0) (STO 5) (INCSP 1) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (LOD 0) (STO 8) (INCSP 1) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 0) (CALLCLOS 3) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8583) (LABEL #:G8585) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 19) (%SYMBOL-FUNCTION 0) (LITIDX 11) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 9) (LOD 6) (CALLCLOS 3) (CALLCLOS 3) (LOD 0) (STO 4) (JMP #:G8578) (LABEL #:G8577) (LODNIL 0) (LABEL #:G8578) (INCSP 1) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (JNIL #:G8588) (LITIDX 15) (%SYMBOL-FUNCTION 0) (LITIDX 16) (%SYMBOL-VALUE 0) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 10) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 9) (LOD 9) (CALLCLOS 3) (LOD 7) (CALLCLOS 4) (CALLCLOS 3) (JMP #:G8589) (LABEL #:G8588) (LODNIL 0) (LABEL #:G8589) (INCSP 1) (LODNIL 0) (STO 8) (INCSP 7) (STO 2) (INCSP 1) (RET 0))) EVAL (PRE-TEMPLATE (NUMBERP ATOM EVAL-ATOM T EVAL-LIST) ((INCSP 1) (LODNIL 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (JNIL #:G8590) (LOD 2) (JMP #:G8591) (LABEL #:G8590) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (JNIL #:G8592) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 3) (CALLCLOS 3) (JMP #:G8593) (LABEL #:G8592) (LITIDX 3) (%SYMBOL-VALUE 0) (JNIL #:G8594) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 3) (CALLCLOS 3) (JMP #:G8595) (LABEL #:G8594) (LODNIL 0) (LABEL #:G8595) (LABEL #:G8593) (LABEL #:G8591) (LOD 0) (STO 2) (INCSP 1) (LOD 0) (STO 1) (INCSP 0) (STO 3) (INCSP 2) (RET 0))) EVAL-ATOM (PRE-TEMPLATE (ENV-ASSOC CAR &EMPTY SYMBOL-VALUE CDR) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (LOD 2) (CALLCLOS 3) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 2) (EQ 0) (JNIL #:G8596) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (JMP #:G8597) (LABEL #:G8596) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LABEL #:G8597) (STO 1) (INCSP 0) (STO 3) (INCSP 2) (RET 0))) ENV-ASSOC (PRE-TEMPLATE (NULL CAAR CONS &EMPTY T CAR CDR) ((INCSP 1) (LOD 0) (LODNIL 0) (LABEL #:G8598) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 0) (JNIL #:G8601) (LOD 0) (JMP #:G8602) (LABEL #:G8601) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LOD 5) (EQ 0) (LABEL #:G8602) (STO 1) (INCSP 0) (JNIL #:G8599) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (JNIL #:G8603) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (LOD 2) (CALLCLOS 3) (JMP #:G8604) (LABEL #:G8603) (LITIDX 4) (%SYMBOL-VALUE 0) (JNIL #:G8605) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (JMP #:G8606) (LABEL #:G8605) (LODNIL 0) (LABEL #:G8606) (LABEL #:G8604) (JMP #:G8600) (LABEL #:G8599) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 2) (LOD 1) (LOD 0) (STO 5) (INCSP 1) (LOD 0) (LOD 0) (STO 4) (STO 2) (INCSP 1) (INCSP 1) (JMP #:G8598) (LABEL #:G8600) (STO 2) (INCSP 1) (STO 3) (INCSP 2) (RET 0))) EVAL-LIST (PRE-TEMPLATE (CAR CDR COND EVAL-COND QUOTE FUNCTION MAKE-FUNARG LAMBDA EVAL-LAMBDA LABELS EVAL-LABELS LET EVAL-LET SETQ EVAL-SETQ DEFUN EVAL-DEFUN DEFMACRO EVAL-DEFMACRO PROGN EVAL-PROGN DO EVAL-DO DO-UNTIL EVAL-DO-UNTIL FUNCALL EVAL-FUNCALL AND EVAL-AND OR EVAL-OR IS-EXPR-FUN EVAL-EXPR-FUN IS-LIST-FUN EVAL-LIST-FUN ATOM EVAL-ATOM-HEAD T ERROR "eval-list: wrong list header") ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LOD 1) (LITIDX 2) (EQ 0) (JNIL #:G8607) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8608) (LABEL #:G8607) (LOD 1) (LITIDX 4) (EQ 0) (JNIL #:G8609) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JMP #:G8610) (LABEL #:G8609) (LOD 1) (LITIDX 5) (EQ 0) (JNIL #:G8611) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 4) (CALLCLOS 3) (JMP #:G8612) (LABEL #:G8611) (LOD 1) (LITIDX 7) (EQ 0) (JNIL #:G8613) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LOD 4) (LOD 4) (CALLCLOS 3) (JMP #:G8614) (LABEL #:G8613) (LOD 1) (LITIDX 9) (EQ 0) (JNIL #:G8615) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8616) (LABEL #:G8615) (LOD 1) (LITIDX 11) (EQ 0) (JNIL #:G8617) (LITIDX 12) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8618) (LABEL #:G8617) (LOD 1) (LITIDX 13) (EQ 0) (JNIL #:G8619) (LITIDX 14) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8620) (LABEL #:G8619) (LOD 1) (LITIDX 15) (EQ 0) (JNIL #:G8621) (LITIDX 16) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8622) (LABEL #:G8621) (LOD 1) (LITIDX 17) (EQ 0) (JNIL #:G8623) (LITIDX 18) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8624) (LABEL #:G8623) (LOD 1) (LITIDX 19) (EQ 0) (JNIL #:G8625) (LITIDX 20) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8626) (LABEL #:G8625) (LOD 1) (LITIDX 21) (EQ 0) (JNIL #:G8627) (LITIDX 22) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8628) (LABEL #:G8627) (LOD 1) (LITIDX 23) (EQ 0) (JNIL #:G8629) (LITIDX 24) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8630) (LABEL #:G8629) (LOD 1) (LITIDX 25) (EQ 0) (JNIL #:G8631) (LITIDX 26) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8632) (LABEL #:G8631) (LOD 1) (LITIDX 27) (EQ 0) (JNIL #:G8633) (LITIDX 28) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8634) (LABEL #:G8633) (LOD 1) (LITIDX 29) (EQ 0) (JNIL #:G8635) (LITIDX 30) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 4) (CALLCLOS 3) (JMP #:G8636) (LABEL #:G8635) (LITIDX 31) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (JNIL #:G8637) (LITIDX 32) (%SYMBOL-FUNCTION 0) (LOD 2) (LOD 2) (LOD 5) (CALLCLOS 4) (JMP #:G8638) (LABEL #:G8637) (LITIDX 33) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (JNIL #:G8639) (LITIDX 34) (%SYMBOL-FUNCTION 0) (LOD 2) (LOD 2) (LOD 5) (CALLCLOS 4) (JMP #:G8640) (LABEL #:G8639) (LITIDX 35) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (JNIL #:G8641) (LITIDX 36) (%SYMBOL-FUNCTION 0) (LOD 2) (LOD 2) (LOD 5) (CALLCLOS 4) (JMP #:G8642) (LABEL #:G8641) (LITIDX 37) (%SYMBOL-VALUE 0) (JNIL #:G8643) (LITIDX 38) (%SYMBOL-FUNCTION 0) (LITIDX 39) (CALLCLOS 2) (JMP #:G8644) (LABEL #:G8643) (LODNIL 0) (LABEL #:G8644) (LABEL #:G8642) (LABEL #:G8640) (LABEL #:G8638) (LABEL #:G8636) (LABEL #:G8634) (LABEL #:G8632) (LABEL #:G8630) (LABEL #:G8628) (LABEL #:G8626) (LABEL #:G8624) (LABEL #:G8622) (LABEL #:G8620) (LABEL #:G8618) (LABEL #:G8616) (LABEL #:G8614) (LABEL #:G8612) (LABEL #:G8610) (LABEL #:G8608) (STO 2) (INCSP 1) (STO 3) (INCSP 2) (RET 0))) MAKE-FUNARG (PRE-TEMPLATE (LIST FUNARG) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (LOD 3) (LOD 3) (CALLCLOS 4) (STO 3) (INCSP 2) (RET 0))) EVAL-ATOM-HEAD (PRE-TEMPLATE (ENV-ASSOC CAR &EMPTY SYMBOL-FUNCTION T CDR IS-MACRO EVAL APPLY MACRO-FUN CONS) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 2) (CALLCLOS 3) (LODNIL 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 2) (EQ 0) (JNIL #:G8645) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (JMP #:G8646) (LABEL #:G8645) (LITIDX 4) (%SYMBOL-VALUE 0) (JNIL #:G8647) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (JMP #:G8648) (LABEL #:G8647) (LODNIL 0) (LABEL #:G8648) (LABEL #:G8646) (LOD 0) (STO 2) (INCSP 1) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8649) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LOD 6) (LOD 6) (CALLCLOS 4) (LOD 4) (CALLCLOS 3) (JMP #:G8650) (LABEL #:G8649) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 2) (LOD 6) (CALLCLOS 3) (LOD 4) (CALLCLOS 3) (LABEL #:G8650) (STO 2) (INCSP 1) (STO 4) (INCSP 3) (RET 0))) PROTECT-QUOTE (PRE-TEMPLATE (NULL REVERSE CDR CONS LIST QUOTE CAR) ((INCSP 1) (LOD 0) (LODNIL 0) (LABEL #:G8651) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (JNIL #:G8652) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JMP #:G8653) (LABEL #:G8652) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 5) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (CALLCLOS 3) (LOD 3) (CALLCLOS 3) (LOD 1) (LOD 0) (STO 5) (INCSP 1) (LOD 0) (LOD 0) (STO 4) (STO 2) (INCSP 1) (INCSP 1) (JMP #:G8651) (LABEL #:G8653) (STO 2) (INCSP 1) (STO 2) (INCSP 1) (RET 0))) IS-MACRO (PRE-TEMPLATE (LISTP CAR &&MACRO) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8654) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 2) (EQ 0) (JMP #:G8655) (LABEL #:G8654) (LODNIL 0) (LABEL #:G8655) (STO 2) (INCSP 1) (RET 0))) MACRO-FUN (PRE-TEMPLATE (CDR) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (STO 2) (INCSP 1) (RET 0))) EVAL-LABELS (PRE-TEMPLATE (CAR NULL CONS CDR MAKE-FUNARG LIST LAMBDA SET-CDR EVAL) ((INCSP 1) (LOD 0) (LODNIL 0) (LODNIL 0) (LODNIL 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LABEL #:G8656) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8657) (LODNIL 0) (JMP #:G8658) (LABEL #:G8657) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LODNIL 0) (CALLCLOS 3) (LOD 7) (CALLCLOS 3) (LOD 0) (STO 7) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8656) (LABEL #:G8658) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LABEL #:G8659) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8660) (LODNIL 0) (JMP #:G8661) (LABEL #:G8660) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LITIDX 6) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (CALLCLOS 2) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 8) (CALLCLOS 2) (CALLCLOS 2) (CALLCLOS 2) (CALLCLOS 4) (LOD 8) (CALLCLOS 3) (LOD 6) (CALLCLOS 3) (LOD 0) (STO 6) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8659) (LABEL #:G8661) (STO 1) (INCSP 0) (INCSP 1) (LOD 3) (LOD 0) (STO 2) (INCSP 1) (LOD 2) (LABEL #:G8662) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8663) (LODNIL 0) (JMP #:G8664) (LABEL #:G8663) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 2) (CALLCLOS 3) (INCSP 1) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LOD 0) (STO 4) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8662) (LABEL #:G8664) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (LABEL #:G8665) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8666) (LODNIL 0) (JMP #:G8667) (LABEL #:G8666) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 7) (CALLCLOS 3) (LOD 0) (STO 5) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8665) (LABEL #:G8667) (STO 1) (INCSP 0) (INCSP 1) (LOD 1) (STO 4) (INCSP 3) (STO 3) (INCSP 2) (RET 0))) EVAL-LET (PRE-TEMPLATE (CAR NULL CDR CONS T CADR EVAL APPEND LIST LAMBDA PROGN) ((INCSP 1) (LODNIL 0) (LODNIL 0) (LODNIL 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (LOD 0) (STO 4) (INCSP 1) (LOD 2) (LABEL #:G8668) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8669) (LODNIL 0) (JMP #:G8670) (LABEL #:G8669) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8671) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 5) (CALLCLOS 3) (LOD 0) (STO 5) (INCSP 1) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LODNIL 0) (LOD 4) (CALLCLOS 3) (LOD 0) (STO 4) (JMP #:G8672) (LABEL #:G8671) (LITIDX 4) (%SYMBOL-VALUE 0) (JNIL #:G8673) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 5) (CALLCLOS 3) (LOD 0) (STO 5) (INCSP 1) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 4) (CALLCLOS 3) (LOD 0) (STO 4) (JMP #:G8674) (LABEL #:G8673) (LODNIL 0) (LABEL #:G8674) (LABEL #:G8672) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8668) (LABEL #:G8670) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LITIDX 9) (LOD 6) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 10) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 13) (CALLCLOS 2) (CALLCLOS 3) (CALLCLOS 4) (CALLCLOS 2) (LOD 3) (CALLCLOS 3) (LOD 5) (CALLCLOS 3) (STO 3) (INCSP 2) (STO 3) (INCSP 2) (RET 0))) EVAL-SETQ (PRE-TEMPLATE (EVAL CADR ENV-ASSOC CAR NOT &EMPTY SET-CDR SET-SYMBOL-VALUE) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LOD 2) (CALLCLOS 3) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 3) (CALLCLOS 3) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 5) (EQ 0) (CALLCLOS 2) (JNIL #:G8675) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 3) (CALLCLOS 3) (INCSP 1) (LOD 1) (JMP #:G8676) (LABEL #:G8675) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (LOD 3) (CALLCLOS 3) (LABEL #:G8676) (STO 2) (INCSP 1) (STO 3) (INCSP 2) (RET 0))) EVAL-DEFUN (PRE-TEMPLATE (SET-SYMBOL-FUNCTION CAR MAKE-FUNARG LIST LAMBDA CADR CADDR) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 4) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 8) (CALLCLOS 2) (CALLCLOS 4) (LOD 4) (CALLCLOS 3) (CALLCLOS 3) (STO 3) (INCSP 2) (RET 0))) EVAL-DEFMACRO (PRE-TEMPLATE (SET-SYMBOL-FUNCTION CAR CONS &&MACRO MAKE-FUNARG LIST LAMBDA CADR CADDR) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LITIDX 6) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 9) (CALLCLOS 2) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LOD 10) (CALLCLOS 2) (CALLCLOS 4) (LOD 6) (CALLCLOS 3) (CALLCLOS 3) (CALLCLOS 3) (STO 3) (INCSP 2) (RET 0))) EVAL-PROGN (PRE-TEMPLATE (NULL CAR EVAL CDR) ((INCSP 1) (LODNIL 0) (LOD 2) (LABEL #:G8677) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8678) (LODNIL 0) (JMP #:G8679) (LABEL #:G8678) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 5) (CALLCLOS 3) (LOD 0) (STO 4) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8677) (LABEL #:G8679) (STO 1) (INCSP 0) (INCSP 1) (LOD 0) (STO 1) (INCSP 0) (STO 3) (INCSP 2) (RET 0))) EVAL-DO (PRE-TEMPLATE (CAR CADR CDDR NULL CONS LIST CDR SETQ CADDR APPEND DO-UNTIL LET EVAL) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LODNIL 0) (LODNIL 0) (LODNIL 0) (LOD 5) (LABEL #:G8680) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8681) (LODNIL 0) (JMP #:G8682) (LABEL #:G8681) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (CALLCLOS 3) (LOD 5) (CALLCLOS 3) (LOD 0) (STO 5) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8680) (LABEL #:G8682) (STO 1) (INCSP 0) (INCSP 1) (LOD 5) (LABEL #:G8683) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8684) (LODNIL 0) (JMP #:G8685) (LABEL #:G8684) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LITIDX 7) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (CALLCLOS 4) (LOD 4) (CALLCLOS 3) (LOD 0) (STO 4) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8683) (LABEL #:G8685) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 4) (LOD 2) (CALLCLOS 3) (LOD 0) (STO 5) (INCSP 1) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LITIDX 10) (LOD 7) (CALLCLOS 3) (LOD 5) (CALLCLOS 3) (LOD 0) (STO 4) (INCSP 1) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LITIDX 11) (LOD 3) (LOD 5) (CALLCLOS 4) (LOD 0) (STO 4) (INCSP 1) (LITIDX 12) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 8) (CALLCLOS 3) (STO 6) (INCSP 5) (STO 3) (INCSP 2) (RET 0))) EVAL-DO-UNTIL (PRE-TEMPLATE (CAAR CADAR CONS PROGN CDR EVAL) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (CALLCLOS 3) (LABEL #:G8686) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 5) (CALLCLOS 3) (JNIL #:G8687) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 2) (LOD 5) (CALLCLOS 3) (JMP #:G8688) (LABEL #:G8687) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 5) (CALLCLOS 3) (INCSP 1) (INCSP 1) (JMP #:G8686) (LABEL #:G8688) (STO 3) (INCSP 2) (STO 3) (INCSP 2) (RET 0))) EVAL-FUNCALL (PRE-TEMPLATE (EVAL CAR LIST-EVAL CDR CONS) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LOD 2) (CALLCLOS 3) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 3) (CALLCLOS 3) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 3) (CALLCLOS 3) (LOD 4) (CALLCLOS 3) (STO 2) (INCSP 1) (STO 3) (INCSP 2) (RET 0))) EVAL-AND (PRE-TEMPLATE (200 4 1 0 (PRE-TEMPLATE (NULL EVAL CAR 1 0 CDR) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (JNIL #:G8689) (LOD 0) (JMP #:G8690) (LABEL #:G8689) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 3) (CALLCLOS 3) (LOD 0) (JNIL #:G8691) (LOD 4) (LITIDX 3) (%CLOSURE-REF 0) (LITIDX 4) (%SVREF 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (LOD 4) (LOD 3) (CALLCLOS 4) (JMP #:G8692) (LABEL #:G8691) (LODNIL 0) (LABEL #:G8692) (STO 1) (INCSP 0) (LABEL #:G8690) (STO 4) (INCSP 3) (RET 0)))) ((INCSP 1) (LITIDX 0) (LITIDX 1) (GET-WORD 0) (LITIDX 2) (CALLCLOS 2) (LOD 0) (LITIDX 3) (LODNIL 0) (%SET-SVREF 0) (INCSP 1) (LOD 0) (LITIDX 3) (LITIDX 0) (LITIDX 3) (GET-WORD 0) (LITIDX 4) (LOD 4) (CALLCLOS 3) (%SET-SVREF 0) (INCSP 1) (LOD 0) (LITIDX 3) (%SVREF 0) (LOD 0) (LITIDX 2) (%CLOSURE-REF 0) (LITIDX 3) (%SVREF 0) (LOD 4) (LOD 4) (LODNIL 0) (CALLCLOS 4) (STO 1) (INCSP 0) (STO 1) (INCSP 0) (STO 3) (INCSP 2) (RET 0))) EVAL-OR (PRE-TEMPLATE (NULL EVAL CAR EVAL-OR CDR) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (JNIL #:G8693) (LODNIL 0) (JMP #:G8694) (LABEL #:G8693) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LOD 2) (CALLCLOS 3) (LOD 0) (JNIL #:G8695) (LOD 0) (JMP #:G8696) (LABEL #:G8695) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 3) (CALLCLOS 3) (LABEL #:G8696) (STO 1) (INCSP 0) (LABEL #:G8694) (STO 3) (INCSP 2) (RET 0))) EVAL-COND (PRE-TEMPLATE (NULL CAR NOT EVAL CDR RETURN-FROM EVAL-COND ERROR "eval-cond:run out of conditions") ((INCSP 1) (LODNIL 0) (LOD 2) (LABEL #:G8697) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8698) (LODNIL 0) (JMP #:G8699) (LABEL #:G8698) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 7) (CALLCLOS 3) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8700) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LABEL #:G8702) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8703) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LITIDX 6) (%SYMBOL-VALUE 0) (LOD 5) (CALLCLOS 3) (JMP #:G8704) (LABEL #:G8703) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LOD 6) (CALLCLOS 3) (LOD 0) (STO 5) (INCSP 1) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8702) (LABEL #:G8704) (STO 1) (INCSP 0) (JMP #:G8701) (LABEL #:G8700) (LODNIL 0) (LABEL #:G8701) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8697) (LABEL #:G8699) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 8) (CALLCLOS 2) (STO 1) (INCSP 0) (STO 3) (INCSP 2) (RET 0))) EVAL-LAMBDA (PRE-TEMPLATE (LIST FUNARG) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (LOD 3) (LOD 3) (CALLCLOS 4) (STO 3) (INCSP 2) (RET 0))) IS-EXPR-FUN (PRE-TEMPLATE (MEMBER (%+ %- %* %= %<= %>= %< %> NULL CONS CAR CDR ATOM NUMBERP NOT LISTP LIST EQ)) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (LITIDX 1) (CALLCLOS 3) (STO 2) (INCSP 1) (RET 0))) IS-LIST-FUN (PRE-TEMPLATE (LISTP) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (STO 2) (INCSP 1) (RET 0))) EVAL-EXPR-FUN (PRE-TEMPLATE (LIST-EVAL CONS APPLY LIST T) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 2) (LOD 2) (CALLCLOS 3) (LOD 3) (LITIDX 1) (EQ 0) (JNIL #:G8705) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 1) (LOD 2) (CALLCLOS 3) (JMP #:G8706) (LABEL #:G8705) (LOD 3) (LITIDX 3) (EQ 0) (JNIL #:G8707) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (LOD 2) (CALLCLOS 3) (JMP #:G8708) (LABEL #:G8707) (LITIDX 4) (%SYMBOL-VALUE 0) (JNIL #:G8709) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 4) (LOD 2) (CALLCLOS 3) (JMP #:G8710) (LABEL #:G8709) (LODNIL 0) (LABEL #:G8710) (LABEL #:G8708) (LABEL #:G8706) (STO 1) (INCSP 0) (STO 4) (INCSP 3) (RET 0))) EVAL-LIST-FUN (PRE-TEMPLATE (CAR LAMBDA EVAL-LAMBDA-LIST CDR FUNARG EVAL-FUNARG T ERROR "eval-list-fun: case not implemented") ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 1) (EQ 0) (JNIL #:G8711) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 3) (LOD 3) (CALLCLOS 4) (JMP #:G8712) (LABEL #:G8711) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 4) (EQ 0) (JNIL #:G8713) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 3) (LOD 3) (CALLCLOS 4) (JMP #:G8714) (LABEL #:G8713) (LITIDX 6) (%SYMBOL-VALUE 0) (JNIL #:G8715) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 8) (CALLCLOS 2) (JMP #:G8716) (LABEL #:G8715) (LODNIL 0) (LABEL #:G8716) (LABEL #:G8714) (LABEL #:G8712) (STO 4) (INCSP 3) (RET 0))) APPLY (PRE-TEMPLATE (LISTP CAR LAMBDA APPLY-LAMBDA CDR FUNARG APPLY-FUNARG T APPLY EVAL ATOM ENV-ASSOC &EMPTY SYMBOL-FUNCTION NOT IS-MACRO ERROR "apply: try to apply macro" "apply: case not implemented") ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (JNIL #:G8717) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 2) (EQ 0) (JNIL #:G8719) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 3) (LOD 3) (CALLCLOS 4) (JMP #:G8720) (LABEL #:G8719) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 5) (EQ 0) (JNIL #:G8721) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 3) (LOD 3) (CALLCLOS 4) (JMP #:G8722) (LABEL #:G8721) (LITIDX 7) (%SYMBOL-VALUE 0) (JNIL #:G8723) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LITIDX 9) (%SYMBOL-FUNCTION 0) (LOD 4) (LOD 3) (CALLCLOS 3) (LOD 3) (LOD 3) (CALLCLOS 4) (JMP #:G8724) (LABEL #:G8723) (LODNIL 0) (LABEL #:G8724) (LABEL #:G8722) (LABEL #:G8720) (JMP #:G8718) (LABEL #:G8717) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (JNIL #:G8725) (LITIDX 11) (%SYMBOL-FUNCTION 0) (LOD 3) (LOD 2) (CALLCLOS 3) (LODNIL 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 12) (EQ 0) (JNIL #:G8727) (LITIDX 13) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (JMP #:G8728) (LABEL #:G8727) (LITIDX 7) (%SYMBOL-VALUE 0) (JNIL #:G8729) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (JMP #:G8730) (LABEL #:G8729) (LODNIL 0) (LABEL #:G8730) (LABEL #:G8728) (LOD 0) (STO 2) (INCSP 1) (LITIDX 14) (%SYMBOL-FUNCTION 0) (LITIDX 15) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8731) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LOD 1) (LOD 5) (LOD 5) (CALLCLOS 4) (JMP #:G8732) (LABEL #:G8731) (LITIDX 16) (%SYMBOL-FUNCTION 0) (LITIDX 17) (CALLCLOS 2) (LABEL #:G8732) (STO 2) (INCSP 1) (JMP #:G8726) (LABEL #:G8725) (LITIDX 7) (%SYMBOL-VALUE 0) (JNIL #:G8733) (LITIDX 16) (%SYMBOL-FUNCTION 0) (LITIDX 18) (CALLCLOS 2) (JMP #:G8734) (LABEL #:G8733) (LODNIL 0) (LABEL #:G8734) (LABEL #:G8726) (LABEL #:G8718) (STO 4) (INCSP 3) (RET 0))) APPLY-LAMBDA (PRE-TEMPLATE (ENV-BIND CAR EVAL CDR) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 3) (LOD 3) (CALLCLOS 4) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (CALLCLOS 2) (LOD 2) (CALLCLOS 3) (STO 1) (INCSP 0) (STO 4) (INCSP 3) (RET 0))) EVAL-LAMBDA-LIST (PRE-TEMPLATE (ENV-BIND CAR LIST-EVAL EVAL CDR) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 4) (LOD 4) (CALLCLOS 3) (LOD 3) (CALLCLOS 4) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 6) (CALLCLOS 2) (CALLCLOS 2) (LOD 2) (CALLCLOS 3) (STO 1) (INCSP 0) (STO 4) (INCSP 3) (RET 0))) LIST-EVAL (PRE-TEMPLATE (NULL CAR CONS EVAL CDR REVERSE) ((INCSP 1) (LODNIL 0) (LOD 2) (LABEL #:G8735) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8736) (LODNIL 0) (JMP #:G8737) (LABEL #:G8736) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LOD 2) (LOD 6) (CALLCLOS 3) (LOD 4) (CALLCLOS 3) (LOD 0) (STO 4) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LOD 0) (LOD 0) (STO 3) (STO 1) (INCSP 0) (INCSP 1) (JMP #:G8735) (LABEL #:G8737) (STO 1) (INCSP 0) (INCSP 1) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (STO 1) (INCSP 0) (STO 3) (INCSP 2) (RET 0))) ENV-BIND (PRE-TEMPLATE (NULL CAR &REST NOT PUSH CONS CADR CDR) ((INCSP 1) (LOD 2) (LOD 2) (LOD 2) (LABEL #:G8738) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LOD 0) (JNIL #:G8741) (LOD 0) (JMP #:G8742) (LABEL #:G8741) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LITIDX 2) (EQ 0) (LABEL #:G8742) (STO 1) (INCSP 0) (JNIL #:G8739) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (CALLCLOS 2) (JNIL #:G8743) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (LOD 4) (CALLCLOS 3) (LOD 5) (CALLCLOS 3) (JMP #:G8744) (LABEL #:G8743) (LOD 3) (LABEL #:G8744) (JMP #:G8740) (LABEL #:G8739) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 5) (CALLCLOS 2) (CALLCLOS 3) (LOD 5) (CALLCLOS 3) (INCSP 1) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (LOD 5) (LOD 2) (LOD 0) (STO 7) (INCSP 1) (LOD 1) (LOD 0) (STO 6) (INCSP 1) (LOD 0) (LOD 0) (STO 5) (STO 3) (INCSP 2) (INCSP 1) (JMP #:G8738) (LABEL #:G8740) (STO 3) (INCSP 2) (STO 4) (INCSP 3) (RET 0))) EVAL-FUNARG (PRE-TEMPLATE (APPLY-FUNARG LIST-EVAL) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 3) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 4) (LOD 4) (CALLCLOS 3) (LOD 3) (CALLCLOS 4) (STO 4) (INCSP 3) (RET 0))) APPLY-FUNARG (PRE-TEMPLATE (APPLY CAR CDR) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (LOD 3) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-FUNCTION 0) (LOD 7) (CALLCLOS 2) (CALLCLOS 2) (CALLCLOS 4) (STO 4) (INCSP 3) (RET 0))) FUNARG-CHOP (PRE-TEMPLATE (ATOM CAR FUNARG LIST CDR T CONS FUNARG-CHOP) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (JNIL #:G8745) (LOD 0) (JMP #:G8746) (LABEL #:G8745) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (LITIDX 2) (EQ 0) (JNIL #:G8747) (LITIDX 3) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (CALLCLOS 2) (CALLCLOS 3) (JMP #:G8748) (LABEL #:G8747) (LITIDX 5) (%SYMBOL-VALUE 0) (JNIL #:G8749) (LITIDX 6) (%SYMBOL-FUNCTION 0) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (CALLCLOS 2) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 4) (%SYMBOL-FUNCTION 0) (LOD 4) (CALLCLOS 2) (CALLCLOS 2) (CALLCLOS 3) (JMP #:G8750) (LABEL #:G8749) (LODNIL 0) (LABEL #:G8750) (LABEL #:G8748) (LABEL #:G8746) (STO 2) (INCSP 1) (RET 0))) MAIN (PRE-TEMPLATE (LIST CONS T STOP ">" CAR QUIT NULL CDR 1 EVAL FUNARG-CHOP) ((INCSP 1) (LITIDX 0) (%SYMBOL-FUNCTION 0) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LITIDX 2) (%SYMBOL-VALUE 0) (LITIDX 2) (%SYMBOL-VALUE 0) (CALLCLOS 3) (LITIDX 1) (%SYMBOL-FUNCTION 0) (LODNIL 0) (LODNIL 0) (CALLCLOS 3) (CALLCLOS 3) (LODNIL 0) (LABEL #:G8751) (LITIDX 3) (%SYMBOL-FUNCTION 0) (JNIL #:G8752) (LODNIL 0) (JMP #:G8753) (LABEL #:G8752) (LITIDX 4) (%PRINT 0) (INCSP 1) (%READ 0) (LODNIL 0) (LITIDX 5) (%SYMBOL-FUNCTION 0) (LOD 2) (CALLCLOS 2) (LITIDX 6) (EQ 0) (JNIL #:G8756) (LITIDX 7) (%SYMBOL-FUNCTION 0) (LITIDX 8) (%SYMBOL-FUNCTION 0) (LOD 3) (CALLCLOS 2) (CALLCLOS 2) (JMP #:G8757) (LABEL #:G8756) (LODNIL 0) (LABEL #:G8757) (JNIL #:G8754) (LITIDX 3) (LITIDX 9) (%SET-SYMBOL-VALUE 0) (JMP #:G8755) (LABEL #:G8754) (LITIDX 10) (%SYMBOL-FUNCTION 0) (LOD 2) (LOD 5) (CALLCLOS 3) (LOD 0) (STO 2) (INCSP 1) (LITIDX 11) (%SYMBOL-FUNCTION 0) (LOD 1) (CALLCLOS 2) (%PRINT 0) (LABEL #:G8755) (STO 2) (INCSP 1) (INCSP 1) (JMP #:G8751) (LABEL #:G8753) (STO 2) (INCSP 1) (STO 1) (INCSP 0) (RET 0)))) ((LITIDX 0) (LITIDX 0) (%SET-SYMBOL-VALUE 0) (LITIDX 1) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 4) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 6) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 7) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 8) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 9) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 10) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 11) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 12) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 13) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 14) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 15) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 16) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 17) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 18) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 19) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 20) (LITIDX 21) (%SET-SYMBOL-VALUE 0) (LITIDX 22) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 23) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 24) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 25) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 26) (LITIDX 27) (%SET-SYMBOL-VALUE 0) (LITIDX 28) (LITIDX 27) (%SET-SYMBOL-VALUE 0) (LITIDX 29) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 30) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 31) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 32) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 33) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 34) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 35) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 36) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 37) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 38) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 39) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 40) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 41) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 42) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 43) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 44) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 45) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 46) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 47) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 48) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 49) (LITIDX 21) (%SET-SYMBOL-VALUE 0) (LITIDX 50) (LITIDX 27) (%SET-SYMBOL-VALUE 0) (LITIDX 51) (LITIDX 52) (%SET-SYMBOL-VALUE 0) (LITIDX 53) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 54) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 55) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 56) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 57) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 58) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 59) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 60) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 61) (LITIDX 3) (%SET-SYMBOL-VALUE 0) (LITIDX 62) (LITIDX 63) (%SET-SYMBOL-VALUE 0) (LITIDX 64) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 65) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 66) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 67) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 68) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 69) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 70) (LITIDX 63) (%SET-SYMBOL-VALUE 0) (LITIDX 71) (LITIDX 27) (%SET-SYMBOL-VALUE 0) (LITIDX 72) (LITIDX 27) (%SET-SYMBOL-VALUE 0) (LITIDX 73) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 74) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 75) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 76) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 77) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 78) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 79) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 80) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 81) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 82) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 83) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 84) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 85) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 86) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 87) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 88) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 89) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 90) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 91) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 92) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 93) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 94) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 95) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 96) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 97) (LITIDX 3) (%SET-SYMBOL-VALUE 0) (LITIDX 98) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 99) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 100) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 101) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 102) (LITIDX 63) (%SET-SYMBOL-VALUE 0) (LITIDX 103) (LITIDX 21) (%SET-SYMBOL-VALUE 0) (LITIDX 104) (LITIDX 27) (%SET-SYMBOL-VALUE 0) (LITIDX 105) (LITIDX 27) (%SET-SYMBOL-VALUE 0) (LITIDX 106) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 107) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 108) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 109) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 110) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 111) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 112) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 113) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 114) (LITIDX 63) (%SET-SYMBOL-VALUE 0) (LITIDX 115) (LITIDX 27) (%SET-SYMBOL-VALUE 0) (LITIDX 116) (LITIDX 5) (%SET-SYMBOL-VALUE 0) (LITIDX 117) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 118) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 119) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 120) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 121) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 122) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 123) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 124) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 125) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 126) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 127) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 128) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 129) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 130) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 131) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 132) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 133) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 134) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 135) (LITIDX 136) (%SET-SYMBOL-VALUE 0) (LITIDX 137) (LODNIL 0) (%SET-SYMBOL-VALUE 0) (LITIDX 138) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 139) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 140) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 141) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 142) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 143) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 144) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 145) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 146) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 147) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 148) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 149) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 150) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 151) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 152) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 153) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 154) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 155) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 156) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 157) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 158) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 159) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 160) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 161) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 162) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 163) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 164) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 165) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 166) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 167) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 168) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 169) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 170) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 171) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 172) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 173) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 174) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 175) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 176) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 177) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 178) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 179) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 180) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 181) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 182) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 183) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 184) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 185) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 186) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 187) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 188) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 189) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 190) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 191) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 192) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 193) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 194) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 195) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 196) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 197) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 198) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 199) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 200) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 201) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 202) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 203) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 204) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 205) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 206) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 207) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 208) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 209) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 210) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 211) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 212) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 213) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 214) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 215) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 216) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 217) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 218) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 219) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 220) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 221) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 222) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 223) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 224) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 225) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 226) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 227) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 228) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 229) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 230) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 231) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 232) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 233) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 234) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 235) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 236) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 237) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 238) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 239) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 240) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 241) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 242) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 243) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 244) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 245) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 246) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 247) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 248) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 249) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 250) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 251) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 252) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 253) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 254) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 255) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 256) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 257) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 258) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 259) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (LITIDX 260) (LITIDX 2) (LITIDX 3) (GET-WORD 0) (LITIDX 261) (LITIDX 2) (LITIDX 5) (GET-WORD 0) (LITIDX 3) (CALLCLOS 2) (CALLCLOS 3) (%SET-SYMBOL-FUNCTION 0) (CALLCLOS 138) (HALT 0))) CL-USER 103 > (dribble)