(FILECREATED " 1-Aug-86 01:05:56" ("compiled on " {ERIS}LIBRARY>CMLEVAL.;55) "30-Jul-86 09:02:49" "COMPILE-FILEd" in "Xerox Lisp 30-Jul-86 ..." dated "30-Jul-86 09:16:17") (FILECREATED " 1-Aug-86 01:05:10" {ERIS}LIBRARY>CMLEVAL.;55 217534Q changes to: (FUNCTIONS DEFINE-SPECIAL-FORM) (VARS CMLEVALCOMS) previous date: "31-Jul-86 17:33:05" {ERIS}LIBRARY>CMLEVAL.;53) (RPAQQ CMLEVALCOMS ((COMS (* proclaim and friends - needs to come first because DEFVARs put it out) ( FUNCTIONS PROCLAIM) (* used by the codewalker, too) (MACROS VARIABLE-GLOBALLY-SPECIAL-P VARIABLE-GLOBAL-P)) (DEFINE-TYPES SPECIAL-FORMS) (FUNCTIONS DEFINE-SPECIAL-FORM) (COMS (SPECIAL-FORMS INTERLISP) (PROP DMACRO INTERLISP COMMON-LISP) (FNS COMMON-LISP)) (COMS (ADDVARS (LAMBDASPLST CL:LAMBDA)) (FNS \TRANSLATE-CL:LAMBDA) (VARIABLES *CHECK-ARGUMENT-COUNTS*) (PROP DMACRO COMMON-LISP)) (FUNCTIONS SPECIAL-FORM-P) (VARIABLES LAMBDA-LIST-KEYWORDS CALL-ARGUMENTS-LIMIT LAMBDA-PARAMETERS-LIMIT) (STRUCTURES CLOSURE) (STRUCTURES ENVIRONMENT) (COMS (FNS CL:EVAL EVAL-INVOKE-LAMBDA \INTERPRET-ARGUMENTS \INTERPRETER-LAMBDA CHECK-BINDABLE CHECK-KEYWORDS) (FUNCTIONS ARG-REF) (PROP DMACRO .COMPILER-SPREAD-ARGUMENTS.)) (FNS DECLARED-SPECIAL EVALHOOK) (COMS (* FUNCALL and APPLY, not quite same as Interlisp) (FNS FUNCALL CL:APPLY) (PROP DMACRO CL:APPLY FUNCALL)) (COMS ( * COMPILER-LET needs to work differently compiled and interpreted) (FNS COMPILER-LET COMP.COMPILER-LET ) (PROP DMACRO COMPILER-LET) (SPECIAL-FORMS COMPILER-LET)) (SPECIAL-FORMS QUOTE) (COMS (SPECIAL-FORMS THE) (PROP DMACRO THE)) (COMS (PROP DMACRO EVAL-WHEN) (FNS EVAL-WHEN) (SPECIAL-FORMS EVAL-WHEN)) (COMS (FUNCTIONS CL:DECLARE) (SPECIAL-FORMS DECLARE) (FUNCTIONS LOCALLY)) (COMS (* Interlisp version on LLINTERP) (SPECIAL-FORMS PROGN) (FNS EVAL-PROGN)) (COMS (* confused because currently Interlisp special form, fixing MACRO-FUNCTION is complex - Interlisp function is on LLINTERP) (SPECIAL-FORMS PROG1) (FUNCTIONS PROG1)) (COMS (SPECIAL-FORMS LET* LET) (PROP MACRO LET LET*) (FNS EVAL-LET*-RECURSION \LETtran)) (COMS (SPECIAL-FORMS COND) (FUNCTIONS COND)) (COMS (* consider making CL:IF extended to have Interlisp's features) (FNS CL:IF) (SPECIAL-FORMS CL:IF) (PROP DMACRO CL:IF)) ( COMS (* Interlisp NLAMBDA definitions on LLINTERP - both special form and macro) (FUNCTIONS AND OR) ( SPECIAL-FORMS AND OR)) (COMS (* BLOCK and RETURN go together) (FNS CL:BLOCK) (PROP DMACRO CL:BLOCK) ( SPECIAL-FORMS CL:BLOCK) (FUNCTIONS RETURN) (FNS RETURN-FROM) (SPECIAL-FORMS RETURN-FROM)) (COMS (* eventually shouldn't be shadowed but currently *really* different) (FNS CL:FUNCTION FUNCTION) (PROP DMACRO CL:FUNCTION) (SPECIAL-FORMS CL:FUNCTION FUNCTION)) (SPECIAL-FORMS MULTIPLE-VALUE-CALL) (FNS COMP.CL-EVAL) (VARIABLES *EVALHOOK* *APPLYHOOK*) (INITVARS (*SKIP-EVALHOOK* NIL) (*SKIP-APPLYHOOK* NIL )) (FNS CONSTANTP) (COMS (* Interlisp SETQ for Common Lisp and vice versa) (SPECIAL-FORMS CL:SETQ SETQ ) (PROP DMACRO CL:SETQ) (PROP MACRO SETQ) (FNS SET-SYMBOL) (FUNCTIONS PSETQ)) (COMS (* "CommonLisp style CATCH and THROW") (SPECIAL-FORMS CATCH THROW) (FNS CATCH \CATCH-FUNCALL \CATCH-EVAL \CATCH-CL-EVAL THROW EVAL-THROW \DO-THROW) (PROP DMACRO CATCH THROW)) (COMS (FUNCTIONS PROG PROG*) ( SPECIAL-FORMS GO TAGBODY) (FNS TAGBODY)) (COMS (SPECIAL-FORMS UNWIND-PROTECT) (MACROS UNWIND-PROTECT)) (FILES CMLPROGV) (COMS (* hack to get NLSETQs to work on common lisp interpreter) (SPECIAL-FORMS .ERRSETQ.) (FNS EVAL-ERRORSET)) (LOCALVARS . T) (PROP FILETYPE CMLEVAL) (P (for X in SYSSPECVARS do ( SETF (VARIABLE-GLOBALLY-SPECIAL-P X) T))) (COMS (* "for macro caching") (FNS CACHEMACRO) (VARS *MACROEXPAND-HOOK* (*IN-COMPILER-LET* NIL))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA TAGBODY CATCH CL:BLOCK EVAL-WHEN COMPILER-LET COMMON-LISP) (NLAML THROW FUNCTION CL:FUNCTION RETURN-FROM CL:IF) (LAMA CL:APPLY FUNCALL EVALHOOK))))) PROCLAIM D1 (L (0 PROCLAMATION)) 9@5@dg@dgi hg@dgi h(60Q PUTPROP 30Q PUTPROP) (54Q GLOBALVAR 42Q GLOBAL 24Q GLOBALLY-SPECIAL 11Q SPECIAL) () (PUTPROPS VARIABLE-GLOBALLY-SPECIAL-P MACRO ((VARIABLE) (GET VARIABLE (QUOTE GLOBALLY-SPECIAL)))) (PUTPROPS VARIABLE-GLOBAL-P MACRO ((VARIABLE) (GET VARIABLE (QUOTE GLOBALVAR)))) (ADDTOVAR PRETTYDEFMACROS (SPECIAL-FORMS X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO (( DEF (GET ITEM (QUOTE SPECIAL-FORMS)))) (DEF DEF) (CERROR "Re-fetch the definition" "No ~S definition for ~S" (QUOTE SPECIAL-FORMS) ITEM)))))))) (ADDTOVAR PRETTYTYPELST (CHANGEDSPECIAL-FORMSLST SPECIAL-FORMS "Common Lisp special forms")) (ADDTOVAR FILEPKGTYPES SPECIAL-FORMS) (PUTPROPS SPECIAL-FORMS GETDEF \DEFINE-TYPE-GETDEF) (PUTPROPS SPECIAL-FORMS FILEPKGCONTENTS NILL) (PUTPROPS SPECIAL-FORMS PROPTYPE SPECIAL-FORMS) expand-DEFINE-SPECIAL-FORM D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ @HH[KggM!MlgJgLh oJ _LgMJhgggg __OOggggOhhggogJNOh hhhgJgOhhhgogggJgIhhhgJhh(226Q \APPEND2 136Q \MVLIST 133Q PARSE-DEFMACRO 101Q PACK* 66Q ASSERT-FAIL 44Q VALUES) (335Q QUOTE 314Q SPECIAL-FORMS 310Q PUTPROPS 305Q FILEPKGFLG 302Q AND 273Q EVAL-WHEN 252Q SPECIAL-FORM 246Q PUTPROPS 215Q CL:BLOCK 206Q CL:LAMBDA 203Q CL:FUNCTION 170Q QUOTE 165Q SYMBOL-FUNCTION 162Q SETF 157Q PROGN 127Q $$ENV 124Q :ENVIRONMENT 121Q $$TAIL 116Q :PATH 110Q $$TAIL 54Q SPECIAL-FORM 50Q PUTPROPS 27Q WITHOUT-FILEPKG 24Q PROGN) ( 277Q (CL:EVAL) 212Q ($$TAIL $$ENV) 75Q "\interpret-") (SETF-MACRO-FUNCTION (QUOTE DEFINE-SPECIAL-FORM) (QUOTE expand-DEFINE-SPECIAL-FORM)) (ADDTOVAR PRETTYPRINTMACROS (DEFINE-SPECIAL-FORM . PPRINT-DEFINER)) (PUTPROPS INTERLISP SPECIAL-FORM PROGN) (PUTPROPS INTERLISP DMACRO ((X . Y) (PROGN X . Y))) (PUTPROPS COMMON-LISP DMACRO ((X) X)) COMMON-LISP D1 (L (0 COMMON-LISP-FORMS)) @ (3 EVAL-PROGN) NIL () (ADDTOVAR LAMBDASPLST CL:LAMBDA) \TRANSLATE-CL:LAMBDA D1 (L (0 EXPR)) 4kjdi@_ /@h _$_O$_K@gL 0N _"gO"dgg_gO"_O"dg_gOgo O"gg_OO"LHkԸIkԹJkԺ`qh[kg$O"gggHohh_hZ[COdgO"O_0gh_O"O"O"_O"_"_O"dO"_" _OOO"gggHggglggoOhgoggO ggOoOhihMOhhhMhZ[|OgqO"dh_"_ZO"dhO"ggHoO"hiOgOohggHhh hhNJJkԺHkXNhO d_&O( O&h_*O&&_(O* oOgO OO h ggo`$Id jgggIhohhh`JgggJhohhgL k2O&5O*N M OO OO h ggO(hh_.O,O.h_,_*O&_&O(k_(O.&_,(1367Q \APPEND2 1364Q \APPEND2 1355Q \APPEND2 1346Q \APPEND2 1343Q \APPEND2 1340Q \APPEND2 1335Q \APPEND2 1332Q REVERSE 1323Q REVERSE 1317Q REVERSE 1277Q REVERSE 1143Q \APPEND2 1134Q \APPEND2 1125Q REVERSE 1107Q \APPEND2 1037Q SHOULDNT 777Q \APPEND2 451Q MAKE-KEYWORD 204Q ERROR 70Q REVERSE 61Q REVERSE 30Q \MVLIST 25Q PARSE-BODY) (1402Q -args- 1377Q ARG 1273Q LET* 1251Q -args- 1246Q IGREATERP 1243Q COND 1233Q *CHECK-ARGUMENT-COUNTS* 1207Q -args- 1204Q ILESSP 1201Q COND 1164Q *CHECK-ARGUMENT-COUNTS* 1155Q -args- 1152Q LAMBDA 1120Q LET* 765Q -args- 762Q ARG 745Q SETQ 717Q IGREATERP 714Q COND 652Q &OPTIONAL 556Q SETQ 553Q PROGN 544Q RETURN 541Q finally 532Q do 515Q EQ 512Q when 505Q by 502Q -args- 477Q to 473Q from 470Q \INDEX 465Q for 365Q &KEY 345Q &AUX 310Q from 305Q I 302Q for 272Q &REST 256Q *CHECK-ARGUMENT-COUNTS* 221Q &KEY 214Q &KEY 170Q &KEY 160Q &ALLOW-OTHER-KEYS 146Q &AUX 127Q &OPTIONAL 117Q &REST 111Q &BODY 101Q &REST 55Q LAMBDA) ( 1262Q ((ERROR "Too many args" -args-)) 1220Q ((ERROR "Too few args" -args-)) 1161Q (DECLARE (LOCALVARS . T)) 1113Q (DECLARE (LOCALVARS . T)) 753Q (T) 724Q (-args-) 564Q (NIL) 536Q (RETURN (ARG -args- (ADD1 \INDEX))) 521Q (ARG -args- \INDEX) 315Q (to -args- collect (ARG -args- I)) 201Q "&ALLOW-OTHER-KEYS not in &KEY") (SETQ *CHECK-ARGUMENT-COUNTS* NIL) (PUT (QUOTE *CHECK-ARGUMENT-COUNTS*) (QUOTE GLOBALVAR) T) (PUTPROPS COMMON-LISP DMACRO ((X) X)) SPECIAL-FORM-P D1 (L (0 X)) @g'NIL (7 SPECIAL-FORM) () (SETQ LAMBDA-LIST-KEYWORDS (QUOTE (&OPTIONAL &REST &KEY &AUX &BODY &WHOLE &ALLOW-OTHER-KEYS &ENVIRONMENT))) (PUT (QUOTE LAMBDA-LIST-KEYWORDS) (QUOTE GLOBALVAR) T) (SETQ CALL-ARGUMENTS-LIMIT 1000Q) (PUT (QUOTE CALL-ARGUMENTS-LIMIT) (QUOTE GLOBALVAR) T) (SETQ LAMBDA-PARAMETERS-LIMIT 1000Q) (PUT (QUOTE LAMBDA-PARAMETERS-LIMIT) (QUOTE GLOBALVAR) T) CLOSURE-ENVIRONMENT D1 (L (0 OBJECT)) @NIL (3 CLOSURE) () setf-CLOSURE-ENVIRONMENT D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 CLOSURE) () (REMPROP (QUOTE CLOSURE-ENVIRONMENT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS CLOSURE-ENVIRONMENT SETF-INVERSE setf-CLOSURE-ENVIRONMENT) CLOSURE-FUNCTION D1 (L (0 OBJECT)) @NIL (3 CLOSURE) () setf-CLOSURE-FUNCTION D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 CLOSURE) () (REMPROP (QUOTE CLOSURE-FUNCTION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS CLOSURE-FUNCTION SETF-INVERSE setf-CLOSURE-FUNCTION) CLOSURE-P D1 (L (0 OBJECT)) @`NIL (4 CLOSURETYPE#) () COPY-CLOSURE D1 (L (0 OBJECT)) `@ (6 NCREATE2) (2 CLOSURETYPE#) () (DEFPRINT (QUOTE CLOSURE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) MAKE-CLOSURE D1 (L (0 -args-)) XeHkJdI$h1HkKdJ'h`dIdLagJkaJlZagKkaKl[NIL (107Q :ENVIRONMENT 64Q :FUNCTION 44Q CLOSURETYPE#) () (PUTPROP (QUOTE CLOSURE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE MAKE-CLOSURE)) (PUTPROP (QUOTE CLOSURE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (FUNCTION ENVIRONMENT))) (/DECLAREDATATYPE (QUOTE CLOSURE) (QUOTE (POINTER POINTER)) (QUOTE ((CLOSURE 0 POINTER) (CLOSURE 2 POINTER))) (QUOTE 4)) ENVIRONMENT-MACROS D1 (L (0 OBJECT)) @ NIL (3 ENVIRONMENT) () setf-ENVIRONMENT-MACROS D1 (L (1 VALUE 0 OBJECT)) @A ANIL (3 ENVIRONMENT) () (REMPROP (QUOTE ENVIRONMENT-MACROS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS ENVIRONMENT-MACROS SETF-INVERSE setf-ENVIRONMENT-MACROS) ENVIRONMENT-PARENT D1 (L (0 OBJECT)) @NIL (3 ENVIRONMENT) () setf-ENVIRONMENT-PARENT D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 ENVIRONMENT) () (REMPROP (QUOTE ENVIRONMENT-PARENT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS ENVIRONMENT-PARENT SETF-INVERSE setf-ENVIRONMENT-PARENT) ENVIRONMENT-TAGS D1 (L (0 OBJECT)) @NIL (3 ENVIRONMENT) () setf-ENVIRONMENT-TAGS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 ENVIRONMENT) () (REMPROP (QUOTE ENVIRONMENT-TAGS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS ENVIRONMENT-TAGS SETF-INVERSE setf-ENVIRONMENT-TAGS) ENVIRONMENT-BLOCKS D1 (L (0 OBJECT)) @NIL (3 ENVIRONMENT) () setf-ENVIRONMENT-BLOCKS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 ENVIRONMENT) () (REMPROP (QUOTE ENVIRONMENT-BLOCKS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS ENVIRONMENT-BLOCKS SETF-INVERSE setf-ENVIRONMENT-BLOCKS) ENVIRONMENT-FUNCTIONS D1 (L (0 OBJECT)) @NIL (3 ENVIRONMENT) () setf-ENVIRONMENT-FUNCTIONS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 ENVIRONMENT) () (REMPROP (QUOTE ENVIRONMENT-FUNCTIONS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS ENVIRONMENT-FUNCTIONS SETF-INVERSE setf-ENVIRONMENT-FUNCTIONS) ENVIRONMENT-VARS D1 (L (0 OBJECT)) @NIL (3 ENVIRONMENT) () setf-ENVIRONMENT-VARS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 ENVIRONMENT) () (REMPROP (QUOTE ENVIRONMENT-VARS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS ENVIRONMENT-VARS SETF-INVERSE setf-ENVIRONMENT-VARS) ENVIRONMENT-P D1 (L (0 OBJECT)) @`NIL (4 ENVIRONMENTTYPE#) () COPY-ENVIRONMENT D1 (L (0 OBJECT)) `@ (6 NCREATE2) (2 ENVIRONMENTTYPE#) () (DEFPRINT (QUOTE ENVIRONMENT) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) MAKE-ENVIRONMENT D1 (L (0 -args-)) +eHkJdIhHkKdJhHkNdMh_Hk__OdOh_Hk__OdOh_Hk__OdOh_ `dIdLdOdOdOdO  agJkafJlZUagKkacKl[RagNka]Nl^LagOka^Ol_JagOka]Ol_IagOka\Ol_HNIL (425Q :MACROS 375Q :PARENT 345Q :TAGS 320Q :BLOCKS 273Q :FUNCTIONS 246Q :VARS 176Q ENVIRONMENTTYPE#) () (PUTPROP (QUOTE ENVIRONMENT) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE MAKE-ENVIRONMENT)) (PUTPROP (QUOTE ENVIRONMENT) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (VARS FUNCTIONS BLOCKS TAGS PARENT MACROS))) (/DECLAREDATATYPE (QUOTE ENVIRONMENT) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((ENVIRONMENT 0 POINTER) (ENVIRONMENT 2 POINTER) (ENVIRONMENT 4 POINTER) (ENVIRONMENT 6 POINTER) ( ENVIRONMENT 10Q POINTER) (ENVIRONMENT 12Q POINTER))) (QUOTE 14Q)) CL:EVAL D1 (L (1 ENVIRONMENT 0 EXPRESSION)) @aHdlP@d dii @A@A  A b@/YZdgIm`gg@ Jl@d-k@dA Kk[nhl4 K@A  ^jNl'j@dA Lk\nhl4 L@@g']@AlM@A @A bo@ H3$H Hl oo@ @(430Q CERROR 377Q CL:STRINGP 363Q ERROR 345Q MACROEXPAND-1 337Q MACRO-FUNCTION 275Q \LISPERROR 254Q CL:EVAL 226Q ARGTYPE 217Q EVAL-INVOKE-LAMBDA 205Q \LISPERROR 164Q CL:EVAL 126Q CL:ERROR 55Q ENVIRONMENT-PARENT 46Q ENVIRONMENT-VARS 33Q KEYWORDP) (316Q SPECIAL-FORM 122Q :NAME 117Q UNBOUND-VARIABLE 111Q \VALSPACE 75Q NOBIND) ( 424Q "~s invalid form for EVAL." 420Q "return the expression as its own value" 357Q "Undefined car of form") EVAL-INVOKE-LAMBDA D1 (L (2 ENVIRONMENT 1 LAM 0 N)) ]kdf@kbdAAB YIA\dggggoLo AKgB JH@j (132Q \INTERPRET-ARGUMENTS 122Q MAKE-ENVIRONMENT 107Q ECASE-FAIL 33Q \MVLIST 30Q PARSE-BODY) (116Q :PARENT 72Q &REQUIRED 64Q CL:LAMBDA 57Q &INTERLISP 51Q LAMBDA) ( 104Q (LAMBDA CL:LAMBDA) 77Q (CAR LAM)) \INTERPRET-ARGUMENTSA0001 D1 (F 0 \ARGLIST F 1 \DECLARATIONS F 2 \ENVIRONMENT F 3 \INDEX F 4 \BODY F 5 \ARGUMENT-BLOCK F 6 \LENGTH) gPQRTUVS (15Q \INTERPRET-ARGUMENTS) (2 &REQUIRED) () \INTERPRET-ARGUMENTSA0002A0003 D1 (F 0 \ARGLIST F 1 \DECLARATIONS F 2 \ENVIRONMENT F 3 \INDEX F 4 \BODY F 5 \ARGUMENT-BLOCK F 6 \LENGTH) gPQRTUVS (15Q \INTERPRET-ARGUMENTS) (2 &OPTIONAL) () \INTERPRET-ARGUMENTSA0002 D1 (F 2 SVAR F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \ARGLIST F 6 \LENGTH F 7 \INDEX F 10Q \BODY F 11Q \ARGUMENT-BLOCK F 12Q SP) ] RgUSTWWVW  RS Rg'RhWhg TRWH HI gUSTWWVW (132Q \INTERPRET-ARGUMENTS 110Q setf-ENVIRONMENT-VARS 101Q ENVIRONMENT-VARS 64Q \DO.PROGV 34Q DECLARED-SPECIAL 27Q CHECK-BINDABLE 23Q \INTERPRET-ARGUMENTS) (114Q &OPTIONAL 61Q \INTERPRET-ARGUMENTSA0002A0003 45Q GLOBALLY-SPECIAL 5 &OPTIONAL) () \INTERPRET-ARGUMENTSA0004 D1 (F 0 \ARGLIST F 1 \DECLARATIONS F 2 \ENVIRONMENT F 3 \INDEX F 4 \BODY F 5 \ARGUMENT-BLOCK F 6 \LENGTH) gPQRTUVS (15Q \INTERPRET-ARGUMENTS) (2 &OPTIONAL) () \INTERPRET-ARGUMENTSA0005 D1 (F 0 \ARGLIST F 1 \DECLARATIONS F 2 \ENVIRONMENT F 3 \INDEX F 4 \BODY F 5 \ARGUMENT-BLOCK F 6 \LENGTH) gPQRTUVS (15Q \INTERPRET-ARGUMENTS) (2 &INTERLISP) () \INTERPRET-ARGUMENTSA0006 D1 (F 0 \ARGLIST F 1 \DECLARATIONS F 2 \ENVIRONMENT F 3 \INDEX F 4 \BODY F 5 \ARGUMENT-BLOCK F 6 \LENGTH) JPgPQRTUVS PcdggPQRTUVS ggPQRTUVS g (107Q CL:ERROR 100Q \INTERPRET-ARGUMENTS 54Q \INTERPRET-ARGUMENTS 20Q \INTERPRET-ARGUMENTS) (104Q INVALID-ARGUMENT-LIST 65Q &KEY 60Q &KEY 41Q &AUX 33Q &AUX 5 &BODY) () \INTERPRET-ARGUMENTSA0007A0008 D1 (F 0 \ARGTYPE F 1 \ARGLIST F 2 \INDEX F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \BODY F 6 \ARGUMENT-BLOCK F 7 \LENGTH) PQSTUVWR (14Q \INTERPRET-ARGUMENTS) NIL () \INTERPRET-ARGUMENTSA0007 D1 (F 2 SVAR F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \ARGTYPE F 6 \ARGLIST F 7 \LENGTH F 10Q \INDEX F 11Q \BODY F 12Q \ARGUMENT-BLOCK F 13Q SP) [ RUVSTWWWW  RS Rg'RhWhg TRWH HI UVSTWWWW (130Q \INTERPRET-ARGUMENTS 107Q setf-ENVIRONMENT-VARS 100Q ENVIRONMENT-VARS 63Q \DO.PROGV 33Q DECLARED-SPECIAL 26Q CHECK-BINDABLE 22Q \INTERPRET-ARGUMENTS) (60Q \INTERPRET-ARGUMENTSA0007A0008 44Q GLOBALLY-SPECIAL) () \INTERPRET-ARGUMENTSA0009 D1 (F 0 \ARGTYPE F 1 \ARGLIST F 2 \INDEX F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \BODY F 6 \ARGUMENT-BLOCK F 7 \LENGTH) PQSTUVWR (14Q \INTERPRET-ARGUMENTS) NIL () \INTERPRET-ARGUMENTSA0010 D1 (F 0 \ARGLIST F 1 \DECLARATIONS F 2 \ENVIRONMENT F 3 \INDEX F 4 \BODY F 5 \ARGUMENT-BLOCK F 6 \LENGTH) gPQRTUVS (15Q \INTERPRET-ARGUMENTS) (2 &AUX) () \INTERPRET-ARGUMENTSA0011 D1 (F 0 \BODY F 1 \ENVIRONMENT) PQ (5 EVAL-PROGN) NIL () \INTERPRET-ARGUMENTS D1 (P 3 SP P 2 SVAR I 7 \INDEX I 6 \LENGTH I 5 \ARGUMENT-BLOCK I 4 \BODY I 3 \ENVIRONMENT I 2 \DECLARATIONS I 1 \ARGLIST I 0 \ARGTYPE) @dgg@dgHg@dgg@gAbX^dgbgNdgg\FGg EGdkbYH HdB Hg'HhIhg CHIM ML AFGg AbX_dgBAAbG1FO0sO2H HdB Hg'HhIhg g%OgFGHHC HHhH5EGGkbH HdB Hg'HhIhg iHC_HIO _OO JAFGg  JB Jg'JhKhg C_JKO _OO AbXFGhEGGkbH HdB Hg'HhIhg C_HIO _OO AEO0_6O4O6h_4_2O0k_0jO6&_4C_HIO _OO AAbdgg'FGkjo AbA@EFG hg AbXdg@EFG DgA<Abgʱ*HHHHXZHHHH _"G_ FO EO O"EO kiO l԰IC hH HdB Hg'HhIhg C_&HIO& _$O&O$ J" JB Jg'JhKhg C_*JKO* _(O*O( AbXddC HXH HdB Hg'HhIhg C_.HIO. _,O.O, ADd'bddgCDb Cg C DbC (2210Q CL:EVAL 2175Q CL:EVAL 2170Q \CATCH-FUNCALL 2161Q setf-ENVIRONMENT-BLOCKS 2116Q setf-ENVIRONMENT-VARS 2103Q ENVIRONMENT-VARS 2066Q \DO.PROGV 2036Q DECLARED-SPECIAL 2030Q CHECK-BINDABLE 2016Q CL:EVAL 1767Q setf-ENVIRONMENT-VARS 1754Q ENVIRONMENT-VARS 1737Q \DO.PROGV 1710Q DECLARED-SPECIAL 1703Q CHECK-BINDABLE 1671Q setf-ENVIRONMENT-VARS 1656Q ENVIRONMENT-VARS 1641Q \DO.PROGV 1611Q DECLARED-SPECIAL 1603Q CHECK-BINDABLE 1574Q CL:EVAL 1513Q MAKE-KEYWORD 1414Q CHECK-KEYWORDS 1365Q CL:ERROR 1353Q CHECK-KEYWORDS 1333Q CL:ERROR 1255Q setf-ENVIRONMENT-VARS 1242Q ENVIRONMENT-VARS 1144Q setf-ENVIRONMENT-VARS 1131Q ENVIRONMENT-VARS 1114Q \DO.PROGV 1064Q DECLARED-SPECIAL 1056Q CHECK-BINDABLE 1010Q setf-ENVIRONMENT-VARS 775Q ENVIRONMENT-VARS 760Q \DO.PROGV 731Q DECLARED-SPECIAL 724Q CHECK-BINDABLE 715Q CL:ERROR 663Q setf-ENVIRONMENT-VARS 650Q ENVIRONMENT-VARS 620Q \DO.PROGV 567Q DECLARED-SPECIAL 561Q CHECK-BINDABLE 512Q CL:EVAL 446Q \DO.PROGV 413Q DECLARED-SPECIAL 405Q CHECK-BINDABLE 323Q CL:ERROR 277Q setf-ENVIRONMENT-VARS 270Q ENVIRONMENT-VARS 256Q \DO.PROGV 226Q DECLARED-SPECIAL 220Q CHECK-BINDABLE 175Q CL:ERROR) (2165Q \INTERPRET-ARGUMENTSA0011 2145Q CL:BLOCK 2063Q \INTERPRET-ARGUMENTSA0010 2050Q GLOBALLY-SPECIAL 1734Q \INTERPRET-ARGUMENTSA0009 1721Q GLOBALLY-SPECIAL 1636Q \INTERPRET-ARGUMENTSA0007 1623Q GLOBALLY-SPECIAL 1444Q &AUX 1422Q &ALLOW-OTHER-KEYS 1401Q &AUX 1362Q INVALID-ARGUMENT-LIST 1307Q &KEY 1277Q &AUX 1111Q \INTERPRET-ARGUMENTSA0005 1076Q GLOBALLY-SPECIAL 755Q \INTERPRET-ARGUMENTSA0004 742Q GLOBALLY-SPECIAL 712Q TOO-MANY-ARGUMENTS 615Q \INTERPRET-ARGUMENTSA0002 601Q GLOBALLY-SPECIAL 464Q &KEY 452Q &AUX 443Q \INTERPRET-ARGUMENTSA0006 425Q GLOBALLY-SPECIAL 344Q &REST 320Q TOO-MANY-ARGUMENTS 253Q \INTERPRET-ARGUMENTSA0001 240Q GLOBALLY-SPECIAL 172Q TOO-FEW-ARGUMENTS 155Q &KEY 145Q &AUX 133Q &REST 123Q &OPTIONAL 77Q &BODY 66Q &AUX 56Q &KEY 44Q &REST 34Q &INTERLISP 22Q &OPTIONAL 12Q &REQUIRED) ( 1330Q "Not an even number of arguments for &KEY") \INTERPRETER-LAMBDA D1 (L (3 FN 2 ENV 1 DEF 0 N)) LkdfkHjHlلkH1Ah YIgAKgB JH@kj (111Q \INTERPRET-ARGUMENTS 77Q MAKE-ENVIRONMENT 52Q \MVLIST 47Q PARSE-BODY) (73Q :PARENT 64Q &REQUIRED) () CHECK-BINDABLE D1 (L (0 VAR)) K@dlo@ @ @d`@ oo@ @g'oo@ @(107Q CERROR 60Q CL:ERROR 42Q KEYWORDP 24Q CONSTANTP 17Q CL:ERROR) (71Q GLOBALVAR 32Q LAMBDA-LIST-KEYWORDS) ( 103Q "Attempt to bind a variable proclaimed global" 77Q "Go ahead and bind it anyway" 54Q "attempt to bind a constant: ~A" 47Q "attempt to bind a keyword: ~A" 13Q "attempt to bind a non-symbol: ~A") CHECK-KEYWORDS D1 (L (3 N 2 LENGTH 1 ARGBLOCK 0 KEY-ARGUMENTS)) W@CBKBAKZgAKk"h@YIdgJdd JKl԰IH oH (124Q CL:ERROR 74Q MAKE-KEYWORD) (52Q &AUX 23Q :ALLOW-OTHER-KEYS) ( 120Q "Keyword argument doesn't match expected list of keywords: ~A") expand-ARG-REF D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!HHgIgJohNIL (22Q LLSH 16Q \GETBASEPTR) ( 27Q (1)) (SETF-MACRO-FUNCTION (QUOTE ARG-REF) (QUOTE expand-ARG-REF)) (PUTPROPS .COMPILER-SPREAD-ARGUMENTS. DMACRO (APPLY COMP.SPREAD)) DECLARED-SPECIAL D1 (L (1 DECLS 0 VAR)) ;A8AddgH hAbYg@IiHXNIL (51Q SPECIAL 16Q DECLARE) () EVALHOOK D1 (L (3 ENV 2 APPLYHOOKFN 1 EVALHOOKFN 0 FORM) P 2 *APPLYHOOK* P 0 *EVALHOOK*) AiB@ (11Q HOOKED-EVAL) NIL () FUNCALL D1 (L (0 -args-)) Z eka1Hl2 NdMOIjJ5a_OOh__Nk^O&_dLk\nhl4 LK(121Q \LISPERROR) NIL () CL:APPLY D1 (L (0 N)) SeHjo kaHa!lHkٻJKKaIKmԻIjJdKk[nhl4 KI(112Q \LISPERROR 16Q ERROR) NIL ( 13Q "TOO FEW ARGUMENTS TO APPLY") (PUTPROPS CL:APPLY DMACRO (DEFMACRO (FN &REST ARGS) (BQUOTE (LET ((FN (\, FN)) (CNT (\, (LENGTH (CDR ARGS))))) (.SPREAD. ((OPCODES) %,@ ARGS) CNT FN))))) (PUTPROPS FUNCALL DMACRO (DEFMACRO (FN &REST ARGS) (BQUOTE ((OPCODES APPLYFN) (\,@ ARGS) (\, (LENGTH ARGS)) (\, FN))))) COMPILER-LETA0001 D1 (F 0 TAIL) P (4 \EVPROGN) NIL () COMPILER-LET D1 (I 0 TAIL) J0@ddIHhZH&J@@d[K,IHhZH&Jg (107Q \DO.PROGV) (104Q COMPILER-LETA0001) () COMP.COMPILER-LETA0001 D1 (F 0 A) P (4 COMP.PROGN) NIL () COMP.COMPILER-LET D1 (I 0 A) L0@ddIHhZH&J@@d[K IHhZH&Jg (111Q \DO.PROGV 61Q EVAL) (106Q COMP.COMPILER-LETA0001) () (PUTPROPS COMPILER-LET DMACRO COMP.COMPILER-LET) \interpret-COMPILER-LETA0001 D1 (F 0 BODY F 1 ENV) PQ (4 EVAL-PROGN) NIL () \interpret-COMPILER-LET D1 (L (1 $$ENV 0 $$TAIL) P 3 *IN-COMPILER-LET* P 2 ENV P 1 BODY) [@A@Ai0HddNMh_M&O0Hd\ LJ NMh_M&Og (130Q \DO.PROGV 76Q CL:EVAL) (125Q \interpret-COMPILER-LETA0001) () (PUTPROPS COMPILER-LET SPECIAL-FORM \interpret-COMPILER-LET) (PUTPROPS QUOTE SPECIAL-FORM CAR) \interpret-THEA0001 D1 (L (1 SPEC 0 VALUE)) @A (4 TYPEP) NIL () \interpret-THE D1 (L (1 $$ENV 0 $$TAIL)) J@A@AHg"IJ gKH iIKH K IJ \H LiILH (107Q CHECK-TYPE-FAIL 75Q TYPEP 70Q CL:EVAL 62Q VALUES-LIST 55Q CHECK-TYPE-FAIL 45Q CL:NOTEVERY 33Q \MVLIST 30Q CL:EVAL) (37Q \interpret-THEA0001 20Q VALUES) () (PUTPROPS THE SPECIAL-FORM \interpret-THE) (PUTPROPS THE DMACRO ((SPEC FORM) FORM)) (PUTPROPS EVAL-WHEN DMACRO (DEFMACRO (OPTIONS &BODY BODY) (AND (OR (FMEMB (QUOTE COMPILE) OPTIONS) ( FMEMB (QUOTE CL:COMPILE) OPTIONS)) (MAPC BODY (FUNCTION CL:EVAL))) (AND (OR (FMEMB (QUOTE LOAD) OPTIONS) (FMEMB (QUOTE CL:LOAD) OPTIONS)) (BQUOTE (PROGN (\,@ BODY)))))) EVAL-WHEN D1 (L (0 OPTIONS.BODY)) g@g@ @d,hNIL (11Q EVAL 2 CL:EVAL) () \interpret-EVAL-WHEN D1 (L (1 $$ENV 0 $$TAIL)) @!@AgHgHIJ (33Q EVAL-PROGN) (22Q EVAL 14Q CL:EVAL) () (PUTPROPS EVAL-WHEN SPECIAL-FORM \interpret-EVAL-WHEN) expand-CL:DECLARE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHNIL (7 DECLARE) () (SETF-MACRO-FUNCTION (QUOTE CL:DECLARE) (QUOTE expand-CL:DECLARE)) (PUTPROPS DECLARE SPECIAL-FORM FALSE) expand-LOCALLY D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ghHNIL (7 LET) () (SETF-MACRO-FUNCTION (QUOTE LOCALLY) (QUOTE expand-LOCALLY)) (PUTPROPS PROGN SPECIAL-FORM EVAL-PROGN) EVAL-PROGN D1 (L (1 ENVIRONMENT 0 BODY)) @dA @bA (25Q CL:EVAL 10Q CL:EVAL) NIL () \interpret-PROG1 D1 (L (1 $$ENV 0 $$TAIL)) !@1@AHJ IKJ IY(31Q CL:EVAL 16Q CL:EVAL) NIL () (PUTPROPS PROG1 SPECIAL-FORM \interpret-PROG1) expand-PROG1 D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!HHoIJNIL NIL ( 16Q (LAMBDA (X) X)) (SETF-MACRO-FUNCTION (QUOTE PROG1) (QUOTE expand-PROG1)) \interpret-LET* D1 (L (1 $$ENV 0 $$TAIL)) 2@a@AIJ [KHgJ HMNL LJ (57Q EVAL-PROGN 51Q EVAL-LET*-RECURSION 41Q MAKE-ENVIRONMENT 21Q \MVLIST 16Q PARSE-BODY) (35Q :PARENT) () (PUTPROPS LET* SPECIAL-FORM \interpret-LET*) \interpret-LETA0001 D1 (F 0 LEXVARS F 1 ENVIRONMENT F 2 BODY) RPgPgQ Q (22Q EVAL-PROGN 15Q MAKE-ENVIRONMENT) (11Q :PARENT 5 :VARS) () \interpret-LET D1 (L (1 $$ENV 0 $$TAIL) P 11Q SPECVARS P 10Q LEXVARS P 7 BODY P 6 BODY P 1 ENVIRONMENT) @Q@ANI ZJ0 HEdhMdI M] MdK Mdg'MO_LO_LO_OOOgOgI Og I (214Q EVAL-PROGN 207Q \DO.PROGV 176Q MAKE-ENVIRONMENT 77Q DECLARED-SPECIAL 70Q CHECK-BINDABLE 61Q CL:EVAL 23Q \MVLIST 20Q PARSE-BODY) (204Q \interpret-LETA0001 172Q :PARENT 165Q :VARS 112Q GLOBALLY-SPECIAL) () (PUTPROPS LET SPECIAL-FORM \interpret-LET) (PUTPROPS LET MACRO (X (\LETtran X))) (PUTPROPS LET* MACRO (X (\LETtran X T))) EVAL-LET*-RECURSIONA0001 D1 (F 0 VARS F 1 DECLS F 2 ENV F 3 BODY) PQRS (6 EVAL-LET*-RECURSION) NIL () EVAL-LET*-RECURSION D1 (I 3 BODY I 2 ENV I 1 DECLS I 0 VARS) W@CB @b1HdB HX HdA Hg'HhIhg BHIK KJ (122Q setf-ENVIRONMENT-VARS 113Q ENVIRONMENT-VARS 101Q \DO.PROGV 51Q DECLARED-SPECIAL 42Q CHECK-BINDABLE 33Q CL:EVAL 7 EVAL-PROGN) (76Q EVAL-LET*-RECURSIONA0001 63Q GLOBALLY-SPECIAL) () \LETtran D1 (L (1 SEQUENTIALP 0 LETTAIL)) 0@ddIHhZH&J@@$d[KdgKIHhZH&J@AgHJIHAgg@AgghJhI H "LKgHhJIhgMhJNhhLK(207Q REVERSE 202Q REVERSE) (253Q LAMBDA 231Q LAMBDA 166Q PROG 161Q PROG* 152Q PROG 144Q PROG* 126Q LAMBDA 64Q PROG1) () \interpret-COND D1 (L (1 $$ENV 0 $$TAIL)) 2@AHdHI HXHdI HI X(53Q EVAL-PROGN 42Q CL:EVAL 23Q CL:EVAL) NIL () (PUTPROPS COND SPECIAL-FORM \interpret-COND) expand-COND D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) l@Hd.5H'gIHhhgIdgHhhgHhgHH HHiH gHh(135Q MKPROGN 113Q MKPROGN 23Q GENTEMP) (141Q COND 102Q CL:IF 70Q VALUES 50Q COND 43Q CL:IF 27Q LET) () (SETF-MACRO-FUNCTION (QUOTE COND) (QUOTE expand-COND)) CL:IF D1 (L (2 ELSE 1 THEN 0 TEST)) @,A,B,NIL NIL () \interpret-CL:IF D1 (L (1 $$ENV 0 $$TAIL)) %@A@YIdAHL JL KL (42Q CL:EVAL 34Q CL:EVAL 26Q CL:EVAL) NIL () (PUTPROPS CL:IF SPECIAL-FORM \interpret-CL:IF) (PUTPROPS CL:IF DMACRO COMP.IF) expand-AND D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) "@HdgHgHhHiNIL (22Q AND 15Q CL:IF) () (SETF-MACRO-FUNCTION (QUOTE AND) (QUOTE expand-AND)) expand-OR D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) 4@HHo gIHhhgIdgHhh(21Q GENTEMP) (45Q OR 40Q CL:IF 25Q LET) ( 16Q "OR") (SETF-MACRO-FUNCTION (QUOTE OR) (QUOTE expand-OR)) \interpret-AND D1 (L (1 $$ENV 0 $$TAIL)) "@AHiHI HI HX(31Q CL:EVAL 22Q CL:EVAL) NIL () (PUTPROPS AND SPECIAL-FORM \interpret-AND) \interpret-OR D1 (L (1 $$ENV 0 $$TAIL)) !@AHdHI HI HX(30Q CL:EVAL 21Q CL:EVAL) NIL () (PUTPROPS OR SPECIAL-FORM \interpret-OR) CL:BLOCK D1 (L (0 TAIL)) @ (4 \EVPROGN) NIL () (PUTPROPS CL:BLOCK DMACRO COMP.BLOCK) \interpret-CL:BLOCKA0001 D1 (F 0 TAIL F 1 ENVIRONMENT) PQ (5 EVAL-PROGN) NIL () \interpret-CL:BLOCK D1 (L (1 $$ENV 0 $$TAIL) P 1 ENVIRONMENT P 0 TAIL) @AgHgI Yg (27Q \CATCH-FUNCALL 20Q MAKE-ENVIRONMENT) (24Q \interpret-CL:BLOCKA0001 14Q :PARENT 10Q :BLOCKS) () (PUTPROPS CL:BLOCK SPECIAL-FORM \interpret-CL:BLOCK) expand-RETURN D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ghHhNIL (10Q RETURN-FROM) () (SETF-MACRO-FUNCTION (QUOTE RETURN) (QUOTE expand-RETURN)) RETURN-FROM D1 (L (1 RETFROM-VALUE 0 RETFROM-TAG)) OA, k YIgg@ h@Id gI gkI @IHi kId Y(112Q STKNTH 102Q RETVALUES 70Q STKARG 55Q STKNAME 42Q STKNAME 31Q CL:ERROR 13Q STKNTH 4 \MVLIST) (60Q CL:BLOCK 45Q \PROG0 25Q :TAG 22Q ILLEGAL-RETURN) () \interpret-RETURN-FROM D1 (L (1 $$ENV 0 $$TAIL)) <@1@AZ[ggH KIJ  Kd HK (70Q ENVIRONMENT-PARENT 56Q ENVIRONMENT-BLOCKS 50Q ENVIRONMENT-BLOCKS 44Q \DO-THROW 41Q \MVLIST 36Q CL:EVAL 27Q CL:ERROR) (23Q :TAG 20Q ILLEGAL-RETURN) () (PUTPROPS RETURN-FROM SPECIAL-FORM \interpret-RETURN-FROM) CL:FUNCTION D1 (L (0 FN)) @dl (11Q SYMBOL-FUNCTION) NIL () FUNCTION D1 (L (1 ENV 0 FN)) Ag@mg h@(16Q STKNTH) (13Q FUNCTION 5 FUNARG) () (PUTPROPS CL:FUNCTION DMACRO (DEFMACRO (X) (if (SYMBOLP X) then (BQUOTE (SYMBOL-FUNCTION (QUOTE (\, X) ))) else (BQUOTE (FUNCTION (\, X)))))) \interpret-CL:FUNCTION D1 (L (1 $$ENV 0 $$TAIL)) B@AHlH IHgHdgggHo HgI (77Q MAKE-CLOSURE 62Q \APPEND2 20Q SYMBOL-FUNCTION) (73Q :ENVIRONMENT 50Q &OPTIONAL 45Q CL:LAMBDA 36Q LAMBDA 30Q :FUNCTION) ( 57Q (&REST IGNORE)) (PUTPROPS CL:FUNCTION SPECIAL-FORM \interpret-CL:FUNCTION) \interpret-FUNCTION D1 (L (1 $$ENV 0 $$TAIL)) O@!@dAIHIlgHlHJgHdgggHo HgJ (114Q MAKE-CLOSURE 77Q \APPEND2) (110Q :ENVIRONMENT 65Q &OPTIONAL 62Q CL:LAMBDA 53Q LAMBDA 45Q :FUNCTION 25Q FUNCTION) ( 74Q (&REST IGNORE)) (PUTPROPS FUNCTION SPECIAL-FORM \interpret-FUNCTION) \interpret-MULTIPLE-VALUE-CALL D1 (L (1 $$ENV 0 $$TAIL)) X@A@AHJ j0IdJ ]NM_^O ^MdLk\nhl4 LK(117Q \LISPERROR 67Q LAST 40Q \MVLIST 35Q CL:EVAL 16Q CL:EVAL) NIL () (PUTPROPS MULTIPLE-VALUE-CALL SPECIAL-FORM \interpret-MULTIPLE-VALUE-CALL) COMP.CL-EVAL D1 (L (0 EXP)) g@gg@o (23Q COMP.SPREAD) (12Q CAR 7 *EVAL-ARGUMENT-COUNT* 2 CDR) ( 20Q ((CL:EVAL ENVIRONMENT))) (OR (BOUNDP (QUOTE *EVALHOOK*)) (SETQ *EVALHOOK* NIL)) (PROCLAIM (QUOTE (SPECIAL *EVALHOOK*))) (OR (BOUNDP (QUOTE *APPLYHOOK*)) (SETQ *APPLYHOOK* NIL)) (PROCLAIM (QUOTE (SPECIAL *APPLYHOOK*))) (RPAQ? *SKIP-EVALHOOK* NIL) (RPAQ? *SKIP-APPLYHOOK* NIL) CONSTANTP D1 (L (1 ENVIRONMENT 0 OBJECT) F 4 COMPVARMACROHASH F 5 CONSTANTFOLDFNS) @1Hd3hl bHd [ VHdl%@hI@iD@ >T;@T b2hbl&@dgg@dUdYI iA [KJhbbw(170Q \MVLIST 165Q MACROEXPAND 151Q CONSTANTP 74Q GETHASH 62Q KEYWORDP 31Q BIT-VECTOR-P 24Q CL:STRINGP) (130Q CONSTANT 122Q QUOTE) () \interpret-CL:SETQ D1 (L (1 $$ENV 0 $$TAIL)) @!AHJHXHI I (32Q SET-SYMBOL 26Q CL:EVAL) NIL () (PUTPROPS CL:SETQ SPECIAL-FORM \interpret-CL:SETQ) \interpret-SETQ D1 (L (1 $$ENV 0 $$TAIL)) @!@AHIJ J (24Q SET-SYMBOL 20Q CL:EVAL) NIL () (PUTPROPS SETQ SPECIAL-FORM \interpret-SETQ) (PUTPROPS CL:SETQ DMACRO (DEFMACRO (X Y &REST REST) (BQUOTE (PROGN (SETQ (\, X) (\, Y)) (\,@ (AND REST (BQUOTE ((CL:SETQ (\,@ REST)))))))))) (PUTPROPS SETQ MACRO (DEFMACRO (X &REST REST) (CONS (QUOTE CL:SETQ) (CONS X REST)))) SET-SYMBOL D1 (L (2 ENVIRONMENT 1 VALUE 0 SYMBOL)) .B@A @B @AB bbbAHdI(25Q ENVIRONMENT-PARENT 14Q ENVIRONMENT-VARS 6 SET) NIL () expand-PSETQ D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) 7@H/ggHHXdgHHgHhhoNIL (42Q PSETQ 32Q PROG1 15Q SETQ 12Q PROGN) ( 62Q (NIL)) (SETF-MACRO-FUNCTION (QUOTE PSETQ) (QUOTE expand-PSETQ)) \interpret-CATCH D1 (L (1 $$ENV 0 $$TAIL)) @!@AHJ IJ (23Q \CATCH-CL-EVAL 16Q CL:EVAL) NIL () (PUTPROPS CATCH SPECIAL-FORM \interpret-CATCH) \interpret-THROW D1 (L (1 $$ENV 0 $$TAIL)) @!@AHJ IJ (32Q \DO-THROW 27Q \MVLIST 24Q CL:EVAL 17Q CL:EVAL) NIL () (PUTPROPS THROW SPECIAL-FORM \interpret-THROW) CATCH D1 (L (0 L)) @,@ (7 \CATCH-EVAL) NIL () \CATCH-FUNCALL D1 (NAME *CATCH* L (1 FN 0 TAG)) jANIL NIL () \CATCH-EVAL D1 (NAME *CATCH* L (1 BODY 0 TAG)) A (3 \EVPROGN) NIL () \CATCH-CL-EVAL D1 (NAME *CATCH* L (2 ENV 1 BODY 0 TAG)) AB (4 EVAL-PROGN) NIL () THROW D1 (L (1 THROW-VALUE 0 THROW-TAG)) @,A, (11Q \DO-THROW 6 \MVLIST) NIL () EVAL-THROW D1 (L (1 ENV 0 TAIL)) @A @A (22Q \DO-THROW 17Q \MVLIST 14Q CL:EVAL 5 CL:EVAL) NIL () \DO-THROW D1 (L (1 VALS 0 TAG)) :k Hgg@ h gkH @HAi kHd X(65Q STKNTH 54Q RETVALUES 43Q STKARG 30Q STKNAME 23Q CL:ERROR 3 STKNTH) (33Q *CATCH* 17Q :TAG 14Q ILLEGAL-THROW) () (PUTPROPS CATCH DMACRO (DEFMACRO (TAGFORM &BODY BODY) (BQUOTE (\CATCH-FUNCALL (\, TAGFORM) (FUNCTION ( LAMBDA NIL (\,@ BODY))))))) (PUTPROPS THROW DMACRO ((TAG VALS) (\DO-THROW TAG (MULTIPLE-VALUE-LIST VALS)))) expand-PROG D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) 4@AHHAh ZJghgILgKh h(53Q \APPEND2 21Q \MVLIST 16Q PARSE-BODY) (44Q TAGBODY 37Q LET 33Q CL:BLOCK) () (SETF-MACRO-FUNCTION (QUOTE PROG) (QUOTE expand-PROG)) expand-PROG* D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) 4@AHHAh ZJghgILgKh h(53Q \APPEND2 21Q \MVLIST 16Q PARSE-BODY) (44Q TAGBODY 37Q LET* 33Q CL:BLOCK) () (SETF-MACRO-FUNCTION (QUOTE PROG*) (QUOTE expand-PROG*)) \interpret-GO D1 (L (1 $$ENV 0 $$TAIL)) 0@!AYIggH hHI ZIJ I Y(53Q ENVIRONMENT-PARENT 45Q \DO-THROW 42Q \MVLIST 32Q ENVIRONMENT-TAGS 23Q CL:ERROR) (17Q :TAG 14Q ILLEGAL-GO) () (PUTPROPS GO SPECIAL-FORM \interpret-GO) \interpret-TAGBODYA0001 D1 (F 1 TAGBODY-TAIL F 2 ENV) QHhdlR HX(24Q CL:EVAL) NIL () \interpret-TAGBODY D1 (L (1 $$ENV 0 $$TAIL) P 1 ENV P 0 TAGBODY-TAIL) @AgHgI YIg Xh(30Q \CATCH-FUNCALL 20Q MAKE-ENVIRONMENT) (25Q \interpret-TAGBODYA0001 14Q :PARENT 10Q :TAGS) () (PUTPROPS TAGBODY SPECIAL-FORM \interpret-TAGBODY) TAGBODY D1 (L (0 TAIL)) h@d (6 \PROG0) NIL () \interpret-UNWIND-PROTECTA0001A0002 D1 (F 0 CLEANUPS F 1 ENV) PQ (4 EVAL-PROGN) NIL () \interpret-UNWIND-PROTECTA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 FORM F 2 ENV F 3 RESETY) ghhhPcQR ci(22Q CL:EVAL) (2 \interpret-UNWIND-PROTECTA0001A0002) () \interpret-UNWIND-PROTECT D1 (L (1 $$ENV 0 $$TAIL) P 4 RESETY P 3 LISPXHIST P 2 ENV P 1 CLEANUPS P 0 FORM F 6 LISPXHIST F 7 RESETVARSLST) -@!@AV!Wog hg] ML(50Q ERROR! 43Q RESETRESTORE 31Q \interpret-UNWIND-PROTECTA0001) (37Q ERROR 26Q INTERNAL) ( 23Q (\interpret-UNWIND-PROTECTA0001)) (PUTPROPS UNWIND-PROTECT SPECIAL-FORM \interpret-UNWIND-PROTECT) (PUTPROPS UNWIND-PROTECT DMACRO ((FORM . CLEANUPS) (RESETLST (RESETSAVE NIL (LIST (FUNCTION (LAMBDA NIL . CLEANUPS)))) FORM))) (FILESLOAD CMLPROGV) \interpret-.ERRSETQ. D1 (L (1 $$ENV 0 $$TAIL)) @A@YIAHJKL (26Q EVAL-ERRORSET) NIL () (PUTPROPS .ERRSETQ. SPECIAL-FORM \interpret-.ERRSETQ.) EVAL-ERRORSET D1 (NAME ERRORSET L (3 ENV 2 Z 1 Y 0 X)) @C h(4 CL:EVAL) NIL () (PUTPROPS CMLEVAL FILETYPE COMPILE-FILE) (MAPC SYSSPECVARS (FUNCTION (LAMBDA (X) (LET* ((A1260 X) (A1261 (QUOTE GLOBALLY-SPECIAL)) (A1263 T)) ( PUTPROP A1260 A1261 A1263))))) CACHEMACRO D1 (L (2 ENV 1 BODY 0 FN) F 0 CLISPARRAY) BAhl@AP AdBl@P (32Q PUTHASH 15Q GETHASH) NIL () (RPAQQ *MACROEXPAND-HOOK* CACHEMACRO) (RPAQQ *IN-COMPILER-LET* NIL) (PUTPROPS CMLEVAL COPYRIGHT ("Xerox Corporation" 3702Q)) STOP