(FILECREATED " 6-Oct-86 21:16:10" ("compiled on " {ERIS}SOURCES>CMLEVAL.;4) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 6-Oct-86 19:52:45" {ERIS}SOURCES>CMLEVAL.;4 84848 changes to: (VARS CMLEVALCOMS) (FNS EVAL-INVOKE-LAMBDA \INTERPRET-ARGUMENTS \INTERPRETER-LAMBDA) (VARIABLES *MACROEXPAND-HOOK*) previous date: "27-Sep-86 23:20:02" {ERIS}SOURCES>CMLEVAL.;3) (RPAQQ CMLEVALCOMS ((FNS LET LET* \LET0 \LET*) (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 (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") (* ; "The 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) (VARIABLES *MACROEXPAND-HOOK*) (VARS (*IN-COMPILER-LET* NIL))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA TAGBODY CATCH CL:BLOCK EVAL-WHEN COMPILER-LET COMMON-LISP LET* LET) ( NLAML THROW FUNCTION CL:FUNCTION RETURN-FROM CL:IF) (LAMA CL:APPLY FUNCALL EVALHOOK))))) LET D1 (L (0 U)) Mj@2Id\d\LiLl# HkԸHdlmZl[hkdj@KHJI (112Q \LET0 36Q \LISPERROR) (23Q LITATOM) () LET* D1 (L (0 U)) MjA@Yd\d\LiLl# HkԸHdlmZl[hkdj@KHJI (112Q \LET* 36Q \LISPERROR) (23Q LITATOM) () \LET0 D1 (L (4 VARLST 3 NTSIZE 2 NVARS 1 NNILS) P 15Q \INTERRUPTABLE P 7 \INTERRUPTABLE I 0 *TAIL*)  Df1kHkHѿkdHAZBlmѹDJLsDJHl lCl Ou Il glǿIgICkHj0IһkHKkHKkHIkHk`kjh@b@,^`MN LMlԽr_IOOdIOOnO_Ok_Ok_Ok_K@,@b(262Q \EVPROG1) (321Q LITATOM 253Q \STACKSPACE 141Q LET 127Q LET) () \LET* D1 (L (4 VARLST 3 NTSIZE 2 NVARS 1 NNILS) P 13Q \INTERRUPTABLE P 4 \INTERRUPTABLE I 0 *TAIL*)  Df1kHkHѿkdHAZBlmѹDJHl JlCl Mc Il glǿIgICkHj0IһkHKkHKkHIkHk`kjhDJMY@p@,_IOOdIONn`OnMNkԾOl_Ok_Ok_Q_`NO MNlԾ@,@b(401Q \EVPROG1) (371Q \STACKSPACE 310Q \STACKSPACE 265Q LITATOM 127Q LET* 115Q LET*) () (ADDTOVAR PRETTYDEFMACROS (SPECIAL-FORMS X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO (( DEF (GETDEF 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")) (COND ((NOT (CL:GETHASH (QUOTE SPECIAL-FORMS) *DEFINITION-HASH-TABLE*)) (CL:PUTHASH (QUOTE SPECIAL-FORMS) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL) (QUOTE :SIZE) 50 (QUOTE :REHASH-SIZE) 50)))) (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 hhhgJgOhhhgoggggJhogIhhhhgJhh(231Q \APPEND2 141Q \MVLIST 136Q PARSE-DEFMACRO 104Q PACK* 71Q ASSERT-FAIL 47Q VALUES 4 REMOVE-COMMENTS) (355Q QUOTE 331Q QUOTE 316Q QUOTE 313Q \DEFINE-TYPE-SAVE-DEFN 310Q FILEPKGFLG 305Q AND 276Q EVAL-WHEN 255Q SPECIAL-FORM 251Q PUTPROPS 220Q CL:BLOCK 211Q CL:LAMBDA 206Q CL:FUNCTION 173Q QUOTE 170Q SYMBOL-FUNCTION 165Q SETF 162Q PROGN 132Q $$ENV 127Q :ENVIRONMENT 124Q $$TAIL 121Q :PATH 113Q $$TAIL 57Q SPECIAL-FORM 53Q PUTPROPS 32Q WITHOUT-FILEPKG 27Q PROGN) ( 326Q (QUOTE SPECIAL-FORMS) 302Q (CL:EVAL) 215Q ($$TAIL $$ENV) 100Q "\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) F 30Q *CHECK-ARGUMENT-COUNTS*) 6kjdi@_ /@h _$_O$_KDgL 0N  _"gO"dgg_gO"_O"dg_gOgo O"gg_OO"LHkԸIkԹJkԺW0qh[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(hiO&h_*O(O&&_(O* oOgO OO h ggoW0$Id jgggIhohhhW0JgggJhohhgL k2O&5O*N M OO OO h ggO(hh_.O,O.h_,_*O&_&O(k_(O.&_,(1371Q \APPEND2 1366Q \APPEND2 1357Q \APPEND2 1350Q \APPEND2 1345Q \APPEND2 1342Q \APPEND2 1337Q \APPEND2 1334Q REVERSE 1325Q REVERSE 1321Q REVERSE 1301Q REVERSE 1147Q \APPEND2 1140Q \APPEND2 1131Q REVERSE 1113Q \APPEND2 1036Q SHOULDNT 776Q \APPEND2 450Q MAKE-KEYWORD 204Q ERROR 70Q REVERSE 61Q REVERSE 30Q \MVLIST 25Q PARSE-BODY) (1404Q -args- 1401Q ARG 1275Q LET* 1253Q -args- 1250Q IGREATERP 1245Q COND 1212Q -args- 1207Q ILESSP 1204Q COND 1161Q -args- 1156Q LAMBDA 1124Q LET* 764Q -args- 761Q ARG 744Q SETQ 716Q IGREATERP 713Q COND 651Q &OPTIONAL 555Q SETQ 552Q PROGN 543Q RETURN 540Q finally 531Q do 514Q EQ 511Q when 504Q by 501Q -args- 476Q to 472Q from 467Q \INDEX 464Q for 364Q &KEY 344Q &AUX 307Q from 304Q I 301Q for 271Q &REST 221Q &KEY 214Q &KEY 170Q &KEY 160Q &ALLOW-OTHER-KEYS 146Q &AUX 127Q &OPTIONAL 117Q &REST 111Q &BODY 101Q &REST 55Q LAMBDA) ( 1264Q ((ERROR "Too many args" -args-)) 1223Q ((ERROR "Too few args" -args-)) 1165Q (DECLARE (LOCALVARS . T)) 1117Q (DECLARE (LOCALVARS . T)) 752Q (T) 723Q (-args-) 563Q (NIL) 535Q (RETURN (ARG -args- (ADD1 \INDEX))) 520Q (ARG -args- \INDEX) 314Q (to -args- collect (ARG -args- I)) 201Q "&ALLOW-OTHER-KEYS not in &KEY") (PROCLAIM (QUOTE (SPECIAL *CHECK-ARGUMENT-COUNTS*))) (SETQ *CHECK-ARGUMENT-COUNTS* NIL) (PUTPROPS COMMON-LISP DMACRO ((X) X)) SPECIAL-FORM-P D1 (L (0 X)) @g'NIL (7 SPECIAL-FORM) () (PROCLAIM (QUOTE (SPECIAL LAMBDA-LIST-KEYWORDS))) (SETQ LAMBDA-LIST-KEYWORDS (QUOTE (&OPTIONAL &REST &KEY &AUX &BODY &WHOLE &ALLOW-OTHER-KEYS &ENVIRONMENT))) (PROCLAIM (QUOTE (SPECIAL CALL-ARGUMENTS-LIMIT))) (SETQ CALL-ARGUMENTS-LIMIT 512) (PROCLAIM (QUOTE (SPECIAL LAMBDA-PARAMETERS-LIMIT))) (SETQ LAMBDA-PARAMETERS-LIMIT 512) 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 (3 CLOSURE) () 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 %%STRUCTURE-CLASS) (QUOTE STRUCTURE-CLASS)) (PUTPROP (QUOTE CLOSURE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (FUNCTION ENVIRONMENT))) (PUTPROP (QUOTE CLOSURE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (ENVIRONMENT FUNCTION))) (/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 (3 ENVIRONMENT) () 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 %%STRUCTURE-CLASS) (QUOTE STRUCTURE-CLASS)) (PUTPROP (QUOTE ENVIRONMENT) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (VARS FUNCTIONS BLOCKS TAGS PARENT MACROS))) (PUTPROP (QUOTE ENVIRONMENT) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (MACROS PARENT TAGS BLOCKS FUNCTIONS VARS))) (/DECLAREDATATYPE (QUOTE ENVIRONMENT) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((ENVIRONMENT 0 POINTER) (ENVIRONMENT 2 POINTER) (ENVIRONMENT 4 POINTER) (ENVIRONMENT 6 POINTER) ( ENVIRONMENT 8 POINTER) (ENVIRONMENT 10 POINTER))) (QUOTE 12)) CL:EVAL D1 (L (1 ENVIRONMENT 0 EXPRESSION)) %@aHdT@ddii @Ahi@A  A b@/YZdgIm`gg@ J@d-k@dA Kk[nhl4 K@A  ^j:Nl:'j@dA Lk\nhl4 L@@g']@AlM@A @A bo@ H3!H HH oo@ @(441Q CERROR 421Q BIT-VECTOR-P 401Q CL:STRINGP 365Q ERROR 347Q MACROEXPAND-1 341Q MACRO-FUNCTION 277Q \LISPERROR 256Q CL:EVAL 230Q ARGTYPE 221Q EVAL-INVOKE-LAMBDA 207Q \LISPERROR 166Q CL:EVAL 131Q CL:ERROR 60Q ENVIRONMENT-PARENT 51Q ENVIRONMENT-VARS 32Q KEYWORDP) (411Q CHARACTER 320Q SPECIAL-FORM 137Q LISTP 125Q :NAME 122Q UNBOUND-VARIABLE 114Q \VALSPACE 100Q NOBIND 10Q LITATOM) ( 435Q "~s invalid form for EVAL." 431Q "return the expression as its own value" 361Q "Undefined car of form") EVAL-INVOKE-LAMBDA D1 (L (2 ENVIRONMENT 1 LAM 0 N)) akdf@kbdAAB YIoA\dggggoLo AKgB JH@j (136Q \INTERPRET-ARGUMENTS 126Q MAKE-ENVIRONMENT 113Q ECASE-FAIL 33Q \MVLIST 30Q PARSE-BODY) (122Q :PARENT 76Q &REQUIRED 70Q CL:LAMBDA 63Q &INTERLISP 55Q LAMBDA) ( 110Q (LAMBDA CL:LAMBDA) 103Q (CAR LAM) 46Q "a LAMBDA as the CAR of a form") \INTERPRET-ARGUMENTSA0001 D1 (F 0 \FN-NAME F 1 \ARGLIST F 2 \INDEX F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \BODY F 6 \ARGUMENT-BLOCK F 7 \LENGTH) PgQSTUVWR (17Q \INTERPRET-ARGUMENTS) (3 &REQUIRED) () \INTERPRET-ARGUMENTSA0002A0003 D1 (F 0 \FN-NAME F 1 \ARGLIST F 2 \INDEX F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \BODY F 6 \ARGUMENT-BLOCK F 7 \LENGTH) PgQSTUVWR (17Q \INTERPRET-ARGUMENTS) (3 &OPTIONAL) () \INTERPRET-ARGUMENTSA0002 D1 (F 2 SVAR F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \FN-NAME F 6 \ARGLIST F 7 \LENGTH F 10Q \INDEX F 11Q \BODY F 12Q \ARGUMENT-BLOCK F 13Q SP) a RUgVSTWWWW  RS Rg'RhWhg TRWH HI UgVSTWWWW (136Q \INTERPRET-ARGUMENTS 112Q setf-ENVIRONMENT-VARS 103Q ENVIRONMENT-VARS 66Q \DO.PROGV 36Q DECLARED-SPECIAL 31Q CHECK-BINDABLE 25Q \INTERPRET-ARGUMENTS) (117Q &OPTIONAL 63Q \INTERPRET-ARGUMENTSA0002A0003 47Q GLOBALLY-SPECIAL 6 &OPTIONAL) () \INTERPRET-ARGUMENTSA0004 D1 (F 0 \FN-NAME F 1 \ARGLIST F 2 \INDEX F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \BODY F 6 \ARGUMENT-BLOCK F 7 \LENGTH) PgQSTUVWR (17Q \INTERPRET-ARGUMENTS) (3 &OPTIONAL) () \INTERPRET-ARGUMENTSA0005 D1 (F 0 \FN-NAME F 1 \ARGLIST F 2 \INDEX F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \BODY F 6 \ARGUMENT-BLOCK F 7 \LENGTH) PgQSTUVWR (17Q \INTERPRET-ARGUMENTS) (3 &INTERLISP) () \INTERPRET-ARGUMENTSA0006 D1 (F 0 \ARGLIST F 1 \FN-NAME F 2 \INDEX F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \BODY F 6 \ARGUMENT-BLOCK F 7 \LENGTH) VPQgPSTUVWR PcdgQgPSTUVWR gQgPSTUVWR ggQ (123Q CL:ERROR 110Q \INTERPRET-ARGUMENTS 61Q \INTERPRET-ARGUMENTS 22Q \INTERPRET-ARGUMENTS) (117Q :CALLEE 114Q INVALID-ARGUMENT-LIST 74Q &KEY 65Q &KEY 45Q &AUX 35Q &AUX 6 &BODY) () \INTERPRET-ARGUMENTSA0007A0008 D1 (F 0 \FN-NAME F 1 \ARGTYPE F 2 \ARGLIST F 3 \ARGUMENT-BLOCK F 4 \DECLARATIONS F 5 \LENGTH F 6 \ENVIRONMENT F 7 \BODY F 10Q \INDEX)  PQRTVWSUW (16Q \INTERPRET-ARGUMENTS) NIL () \INTERPRET-ARGUMENTSA0007 D1 (F 2 SVAR F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \FN-NAME F 6 \ARGTYPE F 7 \LENGTH F 10Q \ARGLIST F 11Q \INDEX F 12Q \BODY F 13Q \ARGUMENT-BLOCK F 14Q SP) _ RUVWSTWWWW  RS Rg'RhWhg TRWH HI UVWSTWWWW (134Q \INTERPRET-ARGUMENTS 111Q setf-ENVIRONMENT-VARS 102Q ENVIRONMENT-VARS 65Q \DO.PROGV 35Q DECLARED-SPECIAL 30Q CHECK-BINDABLE 24Q \INTERPRET-ARGUMENTS) (62Q \INTERPRET-ARGUMENTSA0007A0008 46Q GLOBALLY-SPECIAL) () \INTERPRET-ARGUMENTSA0009 D1 (F 0 \FN-NAME F 1 \ARGTYPE F 2 \ARGLIST F 3 \ARGUMENT-BLOCK F 4 \DECLARATIONS F 5 \LENGTH F 6 \ENVIRONMENT F 7 \BODY F 10Q \INDEX)  PQRTVWSUW (16Q \INTERPRET-ARGUMENTS) NIL () \INTERPRET-ARGUMENTSA0010 D1 (F 0 \FN-NAME F 1 \ARGLIST F 2 \INDEX F 3 \DECLARATIONS F 4 \ENVIRONMENT F 5 \BODY F 6 \ARGUMENT-BLOCK F 7 \LENGTH) PgQSTUVWR (17Q \INTERPRET-ARGUMENTS) (3 &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 10Q \INDEX I 7 \LENGTH I 6 \ARGUMENT-BLOCK I 5 \BODY I 4 \ENVIRONMENT I 3 \DECLARATIONS I 2 \ARGLIST I 1 \ARGTYPE I 0 \FN-NAME) ~ Adg'BbGG@gg@gGgG 'gKAdgBlg7Adg𓿱VgAg[BbX^dg+BGGgg@gGgG gNdg𓿱JgGGhi(gg@gGgGBjO0?O2k FGdkbYH HdC Hg'>HhIhg _4gO4gO4gO4gO2k_2O0_0DHIM ML @gbbBbX_dgBBbG1GO0hg^Og+GGkjo BbBAFGG GGhiHHD HHhH5FGGkbH HdC Hg'HhIhg iHD_HIO _OO J@gbb JC Jg'JhKhg D_JKO _OO @gbbRBbXGGhihFGGkbH HdC Hg'HhIhg D_HIO _OO @gbbi+FO0_6O4O6h_4_2O0k_0VO6&_4O2H HdC Hg'HhIhg D_HIO _OO B@gbbjBbdg@gbbOg@gbbk Hhigg@ hH gkH @HAi kHd X(71Q STKNTH 60Q RETVALUES 47Q STKARG 34Q STKNAME 26Q CL:ERROR 3 STKNTH) (37Q *CATCH* 22Q :TAG 17Q 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)) 4@!AYIhiggH hHI ZIJ I Y(57Q ENVIRONMENT-PARENT 51Q \DO-THROW 46Q \MVLIST 36Q ENVIRONMENT-TAGS 27Q CL:ERROR) (23Q :TAG 20Q 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 Xhih(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* ((A0629 X) (A0630 (QUOTE GLOBALLY-SPECIAL)) (A0632 T)) ( PUTPROP A0629 A0630 A0632))))) CACHEMACRO D1 (L (2 ENV 1 BODY 0 FN) F 0 *IN-COMPILER-LET*) AP1Bhi'BhiBd !A` AdBl@` ABl@ b(73Q ENVIRONMENT-PARENT 60Q PUTHASH 41Q GETHASH 27Q ENVIRONMENT-MACROS) (55Q CLISPARRAY 36Q CLISPARRAY 6 ENVIRONMENT) () (PROCLAIM (QUOTE (SPECIAL *MACROEXPAND-HOOK*))) (SETQ *MACROEXPAND-HOOK* (QUOTE CACHEMACRO)) (RPAQQ *IN-COMPILER-LET* NIL) (PUTPROPS CMLEVAL COPYRIGHT ("Xerox Corporation" 1986)) NIL