(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "16-Apr-2024 06:12:54" ("compiled on " |{DSK}larry>il>medley>sources>CMLEVAL.;8|) "14-Apr-2024 15:37:52" "COMPILE-FILEd" |in| "FULL 14-Apr-2024 ..." |dated| "14-Apr-2024 15:37:55") (FILECREATED "15-Apr-2024 21:22:06" |{DSK}larry>il>medley>sources>CMLEVAL.;7| 99203 :EDIT-BY "lmm" :CHANGES-TO (VARS CMLEVALCOMS) :PREVIOUS-DATE "15-Apr-2024 20:14:11" |{DSK}larry>il>medley>sources>CMLEVAL.;5|) (RPAQQ CMLEVALCOMS ((* |;;;| "Common Lisp interpreter") (COMS (* |;;| "These really don't belong here") (FUNCTIONS CL:EQUAL CL:EQUALP) (* |;;| "For the byte compiler: Optimize by constant fold and coerce to EQ where possible") (PROP BYTEMACRO CL:EQUAL CL:EQUALP) (PROP DOPVAL CL:EQUAL)) (COMS (FUNCTIONS \\REMOVE-DECLS) (FUNCTIONS CL:SPECIAL-FORM-P)) (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* *SPECIAL-BINDING-MARK*)) (VARIABLES CL:LAMBDA-LIST-KEYWORDS CL:CALL-ARGUMENTS-LIMIT CL:LAMBDA-PARAMETERS-LIMIT) (STRUCTURES CLOSURE ENVIRONMENT) (FUNCTIONS \\MAKE-CHILD-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) (COMS (* \; "FUNCALL and APPLY, not quite same as Interlisp") (FNS CL:FUNCALL CL:APPLY) (PROP DMACRO CL:APPLY CL:FUNCALL)) (COMS (* \; "COMPILER-LET needs to work differently compiled and interpreted") (FNS CL:COMPILER-LET COMP.COMPILER-LET) (PROP DMACRO CL:COMPILER-LET) (SPECIAL-FORMS CL:COMPILER-LET)) ( COMS (* \; "Lexical function- and macro-binding forms: FLET, LABELS, and MACROLET.") (SPECIAL-FORMS CL:MACROLET CL:FLET CL:LABELS)) (SPECIAL-FORMS QUOTE) (COMS (SPECIAL-FORMS THE) (PROP DMACRO THE)) ( COMS (PROP DMACRO CL:EVAL-WHEN) (FNS CL:EVAL-WHEN) (SPECIAL-FORMS CL:EVAL-WHEN)) (COMS (SPECIAL-FORMS DECLARE) (FUNCTIONS CL: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 \\LET*-RECURSION |\\LETtran|)) (COMS (SPECIAL-FORMS COND) ( FUNCTIONS COND)) (COMS (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 CL:RETURN-FROM) (SPECIAL-FORMS CL:RETURN-FROM)) ( COMS (* \; "IL and CL versions of FUNCTION.") (FNS CL:FUNCTION) (PROP DMACRO CL:FUNCTION) ( SPECIAL-FORMS CL:FUNCTION FUNCTION) (FUNCTIONS CL:FUNCTIONP CL:COMPILED-FUNCTION-P)) (SPECIAL-FORMS CL:MULTIPLE-VALUE-CALL CL:MULTIPLE-VALUE-PROG1) (FNS COMP.CL-EVAL) (FUNCTIONS CL:EVALHOOK CL:APPLYHOOK ) (VARIABLES *EVALHOOK* *APPLYHOOK* CL::*SKIP-EVALHOOK* CL::*SKIP-APPLYHOOK*) (COMS (* \; "CONSTANTS mechanism") (FNS CL:CONSTANTP) (SETFS CL:CONSTANTP) (FUNCTIONS XCL::SET-CONSTANTP)) (COMS ( * \; "Interlisp SETQ for Common Lisp and vice versa") (SPECIAL-FORMS CL:SETQ SETQ) (PROP DMACRO CL:SETQ ) (* |;;| "An nlambda definition for cl:setq so cmldeffer may use cl:setq will run in the init") (FNS CL:SETQ) (FUNCTIONS SETQ) (FNS SET-SYMBOL) (FUNCTIONS CL:PSETQ) (FUNCTIONS SETQQ)) (COMS ( SPECIAL-FORMS CL:CATCH CL:THROW CL:UNWIND-PROTECT) (FNS CL:THROW CL:CATCH CL:UNWIND-PROTECT)) (COMS ( FUNCTIONS PROG PROG*) (SPECIAL-FORMS GO CL:TAGBODY) (FNS CL:TAGBODY)) (COMS (* \; "for macro caching") (FNS CACHEMACRO) (VARIABLES *MACROEXPAND-HOOK*) (VARS (*IN-COMPILER-LET* NIL))) (COMS (* |;;| "PROCLAIM and friends.") (* |;;| "Needs to come first because DEFVARs put it out. With package code in the init, also need this here rather than CMLEVAL" ) (FUNCTIONS CL:PROCLAIM) (* \; "used by the codewalker, too") (MACROS VARIABLE-GLOBALLY-SPECIAL-P VARIABLE-GLOBAL-P) (FUNCTIONS XCL::DECL-SPECIFIER-P XCL::SET-DECL-SPECIFIER-P) (FUNCTIONS XCL::GLOBALLY-NOTINLINE-P XCL::SET-GLOBALLY-NOTINLINE-P) (SETFS XCL::DECL-SPECIFIER-P XCL::GLOBALLY-NOTINLINE-P) (PROP PROPTYPE GLOBALLY-SPECIAL GLOBALVAR SI::DECLARATION-SPECIFIER SI::GLOBALLY-NOTINLINE SPECIAL-FORM)) (PROP (FILETYPE MAKEFILE-ENVIRONMENT) CMLEVAL) (DECLARE\: EVAL@COMPILE DONTCOPY (OPTIMIZERS CL-EVAL-FN3-CALL)) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA CL:TAGBODY CL:UNWIND-PROTECT CL:CATCH CL:SETQ CL:BLOCK CL:EVAL-WHEN CL:COMPILER-LET COMMON-LISP) ( NLAML CL:THROW CL:FUNCTION CL:RETURN-FROM CL:IF) (LAMA CL:APPLY CL:FUNCALL))))) CL:EQUAL :D8 (L (1 CL::Y 0 CL::X)) ž@1HdÃ”¿@Aðd3”¿@A:Ã²A´y@AÌ´r@AÌHd ²¿A ´Z@A ²4A ´C@ YA :´3Ij»ºJKó¡i@K¶AK¶ð¡hKkÔ»°ìHÃ²‚AÃ´ @A (155 %PATHNAME-EQUAL 103 CL:LENGTH 96 CL:LENGTH 88 CL:BIT-VECTOR-P 80 CL:BIT-VECTOR-P 74 CL::SIMPLE-STRING= 65 CL:STRINGP 56 CL:STRINGP) (146 PATHNAME 138 PATHNAME 30 LISTP 10 LITATOM) () CL:EQUALP :D8 (L (1 CL::Y 0 CL::X)) ¬ @ÁHdÃ”¿@Aðd3¿A3´‚±¢@AÿÃ²#A´‚±@A ´‚±€@A HdÃ²=¿AÃ´c@Ó¹laIó©Idlzó¤l Õ€IAÓºlaJó©Jdlzó¤l Õ€Jð ŸA ´#@A HdÃ²¿AÃ´ @A ²9A ´ò@ [A :´âKj½¼LMó¢±¢@M¶AM¶ ¡hMkÔ½°çH ²VA ´³@ A Ì´¤@ A _¿¾@ j_¿_¿OOó²JNO¶OO¶ ´¨OkÔ_¿°â@Aðµ‚±ÿ_@ _A ð´‚±ÿJO d¢±ÿ>_µi_@ OA ´‚±ÿSO°Ú(415 CL:EQUALP 410 FETCHFIELD 402 FETCHFIELD 381 GETDESCRIPTORS 367 TYPENAME 359 TYPENAME 333 CL:EQUALP 305 CL:ARRAY-TOTAL-SIZE 295 %FLATTEN-ARRAY 289 %FLATTEN-ARRAY 280 CL:ARRAY-DIMENSIONS 274 CL:ARRAY-DIMENSIONS 266 CL:ARRAYP 258 CL:ARRAYP 243 CL:EQUALP 218 CL:LENGTH 211 CL:LENGTH 203 CL:VECTORP 195 CL:VECTORP 189 %PATHNAME-EQUAL 163 CL::SIMPLE-STRING-EQUAL 154 CL:STRINGP 147 CL:STRINGP 73 CL:EQUALP 58 CL:EQUALP) (180 PATHNAME 171 PATHNAME 122 CHARACTER 98 CHARACTER 90 CHARACTER 81 CHARACTER 39 LISTP 10 LITATOM) () (PUTPROPS CL:EQUAL BYTEMACRO COMP.EQ) (PUTPROPS CL:EQUALP BYTEMACRO COMP.EQ) (PUTPROPS CL:EQUAL DOPVAL (2 CMLEQUAL)) \\REMOVE-DECLS :D8 (L (1 CL::ENVIRONMENT 0 CL::BODY)) ¬p@²|@Y²vIdd3@ð¢¿°kgð²IIZµ@b°Û\µJ°ðdgð«¿Lgð²ëLiðœo ¿°ÙL[µ°ÒH¸K°õId ‘¿A ]Ið£MµŠHµ!@d¾AN`AÉ¿µâ@H$(119 CL:MACROEXPAND-1 110 CL:SPECIAL-FORM-P 85 CL:WARN) (153 ENVIRONMENT 147 *SPECIAL-BINDING-MARK* 141 ENVIRONMENT 67 SPECVARS 57 CL:SPECIAL 28 DECLARE) ( 80 "(IL:SPECVARS . T) has no effect in the CL evaluator.") CL:SPECIAL-FORM-P :D8 (L (0 CL::X)) @ÁÉg'NIL (9 SPECIAL-FORM) () (PUTPROP (QUOTE INTERLISP) (QUOTE SPECIAL-FORM) (QUOTE PROGN)) (PUTPROPS INTERLISP DMACRO ((X . Y) (PROGN X . Y))) (PUTPROPS COMMON-LISP DMACRO ((X) X)) COMMON-LISP :D8 (L (0 COMMON-LISP-FORMS)) @h (6 \\EVAL-PROGN) NIL () (ADDTOVAR LAMBDASPLST CL:LAMBDA) \\TRANSLATE-CL\:LAMBDA :D8 (L (0 EXPR) F 24 *CHECK-ARGUMENT-COUNTS*) ¸kjdiô@_ µ9@h _$_¿O$_¿K¢±¦gL 0N ±[_"gðªO"dgðš¿g_±gð–O"_±O"dgð”_±gð²Ogð’±ío ±ßO"gð™g_±ÌOµO"L¼HkÔ¸IkÔ¹JkÔºW0¢±²h[±¬gð²+O"gggHohh_¿hZ[±{Odgðš¿O"O_±fgð¢±Îh_¿O"´O"O"_¿O"_"¿_¿O"d˜O"_"¿„ _¿OµlO"gggHggglggoOhgoggO²%ggOoOhŠihM½°OhhhM½hZ[±‘Ogð¢±€O"d£h_"_µhO"d”¿h»O"ggHoO"hiO´gOohggHhh hhN¾J“JkÔºHkÔX‹N¾h»°•¿O ±ý‡d_&¿O(µ O&h_*‚O&&_(¿µçO* oOgO OO h ggoW0´+Id²'jð³"gggIhohh€hW0´$J´!gggJhohhgL k2O&µ6O*N M OO OO hggO(hh_.¿O,µO.h_,_*¿O&_&¿O(kÔ_(¿°–O.&_,¿°ë(887 CL:APPEND 878 CL:APPEND 869 CL:APPEND 863 REVERSE 854 REVERSE 848 REVERSE 830 REVERSE 717 CL:APPEND 708 CL:APPEND 699 REVERSE 680 CL:APPEND 638 SHOULDNT 604 CL:APPEND 342 MAKE-KEYWORD 159 ERROR 66 REVERSE 57 REVERSE 28 \\MVLIST 23 PARSE-BODY) (902 |-args-| 897 ARG 824 LET* 803 |-args-| 798 IGREATERP 793 COND 763 |-args-| 758 ILESSP 753 COND 731 |-args-| 726 LAMBDA 692 LET* 592 |-args-| 587 ARG 571 SETQ 546 IGREATERP 541 COND 503 &OPTIONAL 439 SETQ 434 PROGN 425 RETURN 420 |finally| 410 |do| 394 EQ 389 |when| 382 |by| 377 |-args-| 372 |to| 366 |from| 361 \\INDEX 356 |for| 288 &KEY 270 &AUX 238 |from| 233 I 228 |for| 218 &REST 176 &KEY 169 &KEY 144 &KEY 134 &ALLOW-OTHER-KEYS 122 &AUX 105 &OPTIONAL 95 &REST 87 &BODY 77 &REST 51 LAMBDA) ( 813 ((ERROR "Too many args" |-args-|)) 773 ((ERROR "Too few args" |-args-|)) 736 (DECLARE (LOCALVARS . T)) 685 (DECLARE (LOCALVARS . T)) 578 (T) 552 (|-args-|) 446 (NIL) 415 (RETURN (ARG |-args-| (ADD1 \\INDEX))) 399 (ARG |-args-| \\INDEX) 244 (|to| |-args-| |collect| (ARG |-args-| I)) 154 "&ALLOW-OTHER-KEYS not in &KEY") (CL:PROCLAIM (QUOTE (CL:SPECIAL *CHECK-ARGUMENT-COUNTS*))) (SETQ *CHECK-ARGUMENT-COUNTS* NIL) (CL:PROCLAIM (QUOTE (GLOBAL *SPECIAL-BINDING-MARK*))) (OR (BOUNDP (QUOTE *SPECIAL-BINDING-MARK*)) (CL:SETQ *SPECIAL-BINDING-MARK* "Variable specially bound. This string should never be visible")) (XCL::SET-CONSTANTP (QUOTE CL:LAMBDA-LIST-KEYWORDS) NIL) (SETQ CL:LAMBDA-LIST-KEYWORDS (QUOTE (&OPTIONAL &REST &KEY &AUX &BODY &WHOLE &ALLOW-OTHER-KEYS &ENVIRONMENT &CONTEXT))) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL:LAMBDA-LIST-KEYWORDS))) (XCL::SET-CONSTANTP (QUOTE CL:CALL-ARGUMENTS-LIMIT) NIL) (SETQ CL:CALL-ARGUMENTS-LIMIT 512) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CALL-ARGUMENTS-LIMIT))) (XCL::SET-CONSTANTP (QUOTE CL:LAMBDA-PARAMETERS-LIMIT) NIL) (SETQ CL:LAMBDA-PARAMETERS-LIMIT 512) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL:LAMBDA-PARAMETERS-LIMIT))) (CL::SET-PARSED-STRUCTURE (QUOTE CLOSURE) T (QUOTE (CL::PS CLOSURE MAKE-CLOSURE (FUNCTION ENVIRONMENT) CL::DATATYPE NIL NIL "CLOSURE-" (MAKE-CLOSURE) CLOSURE-P (LAMBDA (CLOSURE STREAM) (LET (( *PRINT-RADIX* NIL)) (CL:FORMAT STREAM "#" (\\HILOC CLOSURE) (\\LOLOC CLOSURE)))) COPY-CLOSURE NIL 0 NIL ((FUNCTION NIL T NIL (CLOSURE 0 POINTER) CLOSURE-FUNCTION) ( ENVIRONMENT NIL T NIL (CLOSURE 2 POINTER) CLOSURE-ENVIRONMENT)) NIL NIL (POINTER POINTER) NIL ( :ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE CLOSURE) (QUOTE (POINTER POINTER)) (QUOTE ((CLOSURE 0 POINTER) (CLOSURE 2 POINTER))) 4 (QUOTE CL::STRUCTURE-OBJECT)) (PUTPROP (QUOTE CLOSURE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) CLOSURE-P :D8 (L (0 CL::OBJECT)) @ÃNIL (5 CLOSURE) () (CL::ESTABLISH-PREDICATE (QUOTE CLOSURE)) CLOSURE-FUNCTION :D8 (L (0 CLOSURE)) @ÉNIL (5 CLOSURE) () CLOSURE-ENVIRONMENT :D8 (L (0 CLOSURE)) @ÉNIL (5 CLOSURE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE CLOSURE)) MAKE-CLOSURE :D8 (L (0 |-args-|)) s ei Hk»ºKJó²6hY¼i½Hk_¿¾OdNó²9¿h]_¿`_¿I•OL¿M•OOOKdagð¥lÔ[°ºkØa°»agð–OkØa°¿OlÔ_°®NIL (95 :ENVIRONMENT 76 :FUNCTION 45 |CLOSURETYPE#|) () COPY-CLOSURE :D8 (L (0 CLOSURE)) =@HÃ²`H@ÉH@ÉHigHgh b°Æ(54 CHECK-TYPE-FAIL) (47 CLOSURE 41 CLOSURE 17 |CLOSURETYPE#| 9 CLOSURE) () (CL::SET-PARSED-STRUCTURE (QUOTE ENVIRONMENT) T (QUOTE (CL::PS ENVIRONMENT NIL (VARS FUNCTIONS BLOCKS TAGBODIES) CL::DATATYPE NIL NIL "ENVIRONMENT-" ((\\MAKE-ENVIRONMENT NIL)) ENVIRONMENT-P (LAMBDA (ENV STREAM DEPTH) (DECLARE (IGNORE DEPTH)) (LET ((*PRINT-RADIX* NIL)) (CL:FORMAT STREAM "#" (\\HILOC ENV) (\\LOLOC ENV)))) \\COPY-ENVIRONMENT NIL 0 NIL ((VARS NIL T NIL (ENVIRONMENT 0 POINTER) ENVIRONMENT-VARS) (FUNCTIONS NIL T NIL (ENVIRONMENT 2 POINTER) ENVIRONMENT-FUNCTIONS) (BLOCKS NIL T NIL (ENVIRONMENT 4 POINTER) ENVIRONMENT-BLOCKS) (TAGBODIES NIL T NIL (ENVIRONMENT 6 POINTER) ENVIRONMENT-TAGBODIES)) NIL NIL (POINTER POINTER POINTER POINTER) NIL ( :ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ENVIRONMENT) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE ((ENVIRONMENT 0 POINTER) (ENVIRONMENT 2 POINTER) (ENVIRONMENT 4 POINTER) (ENVIRONMENT 6 POINTER))) 8 ( QUOTE CL::STRUCTURE-OBJECT)) (PUTPROP (QUOTE ENVIRONMENT) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) ENVIRONMENT-P :D8 (L (0 CL::OBJECT)) @ÃNIL (5 ENVIRONMENT) () (CL::ESTABLISH-PREDICATE (QUOTE ENVIRONMENT)) ENVIRONMENT-VARS :D8 (L (0 ENVIRONMENT)) @ÉNIL (5 ENVIRONMENT) () ENVIRONMENT-FUNCTIONS :D8 (L (0 ENVIRONMENT)) @ÉNIL (5 ENVIRONMENT) () ENVIRONMENT-BLOCKS :D8 (L (0 ENVIRONMENT)) @ÉNIL (5 ENVIRONMENT) () ENVIRONMENT-TAGBODIES :D8 (L (0 ENVIRONMENT)) @ÉNIL (5 ENVIRONMENT) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ENVIRONMENT)) \\MAKE-ENVIRONMENT :D8 NIL `HhHhHhHhHNIL (4 |ENVIRONMENTTYPE#|) () \\COPY-ENVIRONMENT :D8 (L (0 ENVIRONMENT)) I@HÃ²&`H@ÉH@ÉH@ÉH@ÉHigHgh b°º(66 CHECK-TYPE-FAIL) (59 ENVIRONMENT 53 ENVIRONMENT 17 |ENVIRONMENTTYPE#| 9 ENVIRONMENT) () |expand-\\MAKE-CHILD-ENVIRONMENT| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) Æ@±H¹HºgJ [d¼Khðhð½L¾L_¿gJ [d_¿Khðhð_¿O_¿O_¿Jo ggIhoM´"gogNOohhO´#gogOOohho(193 CL:APPEND 91 KEYWORD-TEST 52 FIND-KEYWORD 21 FIND-KEYWORD) (165 LIST* 155 CL:SETF 129 LIST* 119 CL:SETF 101 $$PARENT 96 LET* 46 :TAGBODY 15 :BLOCK) ( 188 ($$NEW-ENV) 174 ((ENVIRONMENT-TAGBODIES $$NEW-ENV)) 160 (ENVIRONMENT-TAGBODIES $$NEW-ENV) 137 ((ENVIRONMENT-BLOCKS $$NEW-ENV)) 124 (ENVIRONMENT-BLOCKS $$NEW-ENV) 110 (($$NEW-ENV (CL:IF $$PARENT (\\COPY-ENVIRONMENT $$PARENT) (\\MAKE-ENVIRONMENT)))) 86 (:TAGBODY :BLOCK)) (SETF-MACRO-FUNCTION (QUOTE \\MAKE-CHILD-ENVIRONMENT) (QUOTE |expand-\\MAKE-CHILD-ENVIRONMENT|)) CL:EVAL :D8 (L (1 CL::ENVIRONMENT 0 CL::EXPRESSION) P 16 *APPLYHOOK* P 1 *EVALHOOK* F 17 *EVALHOOK* F 18 CL::*SKIP-EVALHOOK* F 19 *APPLYHOOK* F 20 CL::*SKIP-APPLYHOOK*) óW"²W$hc$¿«W"@AlH@dÃ²_¿@d¢±Ëið‘iAµ$@/dÉdgð¢±³¿gg@ÉJ[²@Kð²Kd`ð¢±~¿°¹K°áÃ¢±m@²4k@°dA ýnHkØXñ¨hl4 ¿µäH@AAd™É@'ÑJµ‚±Ö@ _jð¦Olð²zW&²HW(hc(¿³@@¾h]¼NµM_¿W&_¿O_¿@OAlOA »M”LK&¼„Kh\½N^°Ëj_¿@° dA ýnOkØ_ñ¨hl4 ¿µâO@@dd3@ðŸ¿@ÁÉg'µ@ _²@AlOb±þu_¿@AlOo@ gð²J_¿@AlOb±þAj_¿@° dA ýnOkØ_ñ¨hl4 ¿µâOJ@(486 \\LISPERROR 465 CL:EVAL 421 ERROR 380 CL:MACRO-FUNCTION 341 \\LISPERROR 320 CL:EVAL 286 CL:EVAL 218 ARGTYPE 185 \\EVAL-INVOKE-LAMBDA 173 \\LISPERROR 154 CL:EVAL 79 CL:ERROR) (428 :MACRO 370 SPECIAL-FORM 196 ENVIRONMENT 129 LISTP 110 *SPECIAL-BINDING-MARK* 85 ENVIRONMENT 73 :NAME 68 UNBOUND-VARIABLE 57 NOBIND 29 LITATOM) ( 414 "Undefined car of form") \\EVAL-INVOKE-LAMBDA :D8 (L (2 ENV 1 LAM 0 N)) kdfÑÈ@kÕbdÔÕÑAABµ:b YºI»oA\gð©Ldgðž¿g°" °Ègð•g‹oA AKBJH@j (126 \\INTERPRET-ARGUMENTS 111 CL:ERROR 84 \\COPY-ENVIRONMENT 40 \\MVLIST 35 \\REMOVE-DECLS 28 \\MAKE-ENVIRONMENT) (98 &REQUIRED 91 CL:LAMBDA 77 &INTERLISP 69 OPENLAMBDA 60 LAMBDA) ( 104 "(~S ...) is not legal as the CAR of a form." 52 "a LAMBDA as the CAR of a form") \\INTERPRET-ARGUMENTSA0001 :D8 (F 0 \\FN-NAME F 1 \\ARGLIST F 2 \\INDEX F 3 \\SPECIALS F 4 \\ENVIRONMENT F 5 \\BODY F 6 \\ARGUMENT-BLOCK F 7 \\LENGTH) PgQSTUVWR (19 \\INTERPRET-ARGUMENTS) (5 &REQUIRED) () \\INTERPRET-ARGUMENTSA0002A0003 :D8 (F 0 \\FN-NAME F 1 \\ARGLIST F 2 \\INDEX F 3 \\SPECIALS F 4 \\ENVIRONMENT F 5 \\BODY F 6 \\ARGUMENT-BLOCK F 7 \\LENGTH) PgQSTUVWR (19 \\INTERPRET-ARGUMENTS) (5 &OPTIONAL) () \\INTERPRET-ARGUMENTSA0002 :D8 (F 0 \\SVAR F 1 \\ENVIRONMENT F 2 \\SPECIALS F 3 \\FN-NAME F 4 \\ARGLIST F 5 \\LENGTH F 6 \\INDEX F 7 \\BODY F 8 \\ARGUMENT-BLOCK F 9 \\SP) m PµSgTRQWWUV PdR¬ÁÉg'²PhWhgQPWQÉSgTRQWWUV (106 \\INTERPRET-ARGUMENTS 63 \\DO.PROGV 29 CHECK-BINDABLE 23 \\INTERPRET-ARGUMENTS) (91 &OPTIONAL 79 ENVIRONMENT 70 ENVIRONMENT 58 \\INTERPRET-ARGUMENTSA0002A0003 43 GLOBALLY-SPECIAL 8 &OPTIONAL) () \\INTERPRET-ARGUMENTSA0004 :D8 (F 0 \\FN-NAME F 1 \\ARGLIST F 2 \\INDEX F 3 \\SPECIALS F 4 \\ENVIRONMENT F 5 \\BODY F 6 \\ARGUMENT-BLOCK F 7 \\LENGTH) PgQSTUVWR (19 \\INTERPRET-ARGUMENTS) (5 &OPTIONAL) () \\INTERPRET-ARGUMENTSA0005 :D8 (F 0 \\FN-NAME F 1 \\ARGLIST F 2 \\INDEX F 3 \\SPECIALS F 4 \\ENVIRONMENT F 5 \\BODY F 6 \\ARGUMENT-BLOCK F 7 \\LENGTH) PgQSTUVWR (19 \\INTERPRET-ARGUMENTS) (5 &INTERLISP) () \\INTERPRET-ARGUMENTSA0006 :D8 (F 0 \\ARGLIST F 1 \\FN-NAME F 2 \\INDEX F 3 \\SPECIALS F 4 \\ENVIRONMENT F 5 \\BODY F 6 \\ARGUMENT-BLOCK F 7 \\LENGTH) lPµQgPSTUVWR Pc¿dgð²¿QgPSTUVWR gð²QgPSTUVWR ggQ(105 CL:ERROR 88 \\INTERPRET-ARGUMENTS 59 \\INTERPRET-ARGUMENTS 22 \\INTERPRET-ARGUMENTS) (99 :CALLEE 94 INVALID-ARGUMENT-LIST 74 &KEY 65 &KEY 45 &AUX 35 &AUX 8 &BODY) () \\INTERPRET-ARGUMENTSA0007A0008 :D8 (F 0 \\FN-NAME F 1 \\ARGTYPE F 2 \\ARGLIST F 3 \\ARGUMENT-BLOCK F 4 \\SPECIALS F 5 \\LENGTH F 6 \\ENVIRONMENT F 7 \\BODY F 8 \\INDEX) PQRTVWSUW (16 \\INTERPRET-ARGUMENTS) NIL () \\INTERPRET-ARGUMENTSA0007 :D8 (F 0 \\SVAR F 1 \\ENVIRONMENT F 2 \\SPECIALS F 3 \\FN-NAME F 4 \\ARGTYPE F 5 \\LENGTH F 6 \\ARGLIST F 7 \\INDEX F 8 \\BODY F 9 \\ARGUMENT-BLOCK F 10 \\SP) gPµSTVRQWWUW PdR¬ÁÉg'²PhWhgQPWQÉSTVRQWWUW (100 \\INTERPRET-ARGUMENTS 60 \\DO.PROGV 26 CHECK-BINDABLE 20 \\INTERPRET-ARGUMENTS) (76 ENVIRONMENT 67 ENVIRONMENT 55 \\INTERPRET-ARGUMENTSA0007A0008 40 GLOBALLY-SPECIAL) () \\INTERPRET-ARGUMENTSA0009 :D8 (F 0 \\FN-NAME F 1 \\ARGTYPE F 2 \\ARGLIST F 3 \\ARGUMENT-BLOCK F 4 \\SPECIALS F 5 \\LENGTH F 6 \\ENVIRONMENT F 7 \\BODY F 8 \\INDEX) PQRTVWSUW (16 \\INTERPRET-ARGUMENTS) NIL () \\INTERPRET-ARGUMENTSA0010 :D8 (F 0 \\FN-NAME F 1 \\ARGLIST F 2 \\INDEX F 3 \\SPECIALS F 4 \\ENVIRONMENT F 5 \\BODY F 6 \\ARGUMENT-BLOCK F 7 \\LENGTH) PgQSTUVWR (19 \\INTERPRET-ARGUMENTS) (5 &AUX) () \\INTERPRET-ARGUMENTSA0011 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 \\BODY F 3 \\ENVIRONMENT) i@RS (13 \\EVAL-PROGN) NIL () \\INTERPRET-ARGUMENTS :D8 (P 3 \\SP P 2 \\SVAR I 8 \\INDEX I 7 \\LENGTH I 6 \\ARGUMENT-BLOCK I 5 \\BODY I 4 \\ENVIRONMENT I 3 \\SPECIALS I 2 \\ARGLIST I 1 \\ARGTYPE I 0 \\FN-NAME) — Adgð’±4dgð’±Jgð’±Adgð’±Xgð’±aAdgð’±ýgð¢±d±ôBb¿X\dgð’±þgð’±Ldgð’±Çgð’±GGó³2gg@gGgkGÔBjOµCOÔ ¿FGdkÔb¿àÐÉYH HdC¬ÁÉg'²JHhIhg_gð³¶Ogð³¬Ogð³¢Ogð³˜OkÔ_¿O_°‡DHIDÉ¿¿¿Bµ‚±ÿGGó¢±ögg@gGgG ¿±ÓBb¿X]dgð²G¿BBb¿¸G1GOó’±ŸO¹H HdC®ÁÉg'¢±«HhIhggð’±pMgð’±¼GGó³H´HD ¹HºH¸h»°¹°Hµ9FGàÐÉ¹GkÔb¿H HdC¬ÁÉg'²HhIhgºi»H¸°ÀDHIDÉJµ7¿¿Bµ‚±ÿGGó¢±Õgg@gGgG ¿±² JdC¬ÁÉg'²JhKhgDJKDÉ¿¿°ŽBb¿XGGó¢h¹ŽFGàÐÉ¹GkÔb¿H HdC¬ÁÉg'²HhIhgDHIDÉ¿¿¿Bµ¡±FOàÐÉ_¿OµOh__¿OkÔ_¿±þ=O&_¿°ðDHIDÉBµ¿¿±ÊBb¿dgð’±³gð²k¿¿GGÕkåjðªo ¿Bb¿BµAFGG¿±„Bb¿Xdgðž¿AFGG±bgð²)Bµ±XBb¿gð’±Egg@H´H¹HºHX‚Z¹H–HH¸…H _¿G¾GNó²FNàÐÉOðšFNkÔàÐÉ¹iŽNlÔ°àID ¹h»H HdC¬ÁÉg'²HhIhgDHIDÉJµ¿±ÿ JdC¬ÁÉg'²JhKhgDJKDÉ¿¿¿±þËBb¿Xd´dD ¹HX¹H HdC¬ÁÉg'²HhIhgDHIDÉ¿¿¿Bµ¦Ed³@b d²2dgð²(¿hd_¿DEODÉO D Eb ¿D ¿°°(1426 CL:EVAL 1413 CL:EVAL 1406 \\INTERPRET-ARGUMENTSA0011 1320 \\DO.PROGV 1287 CHECK-BINDABLE 1275 CL:EVAL 1228 \\DO.PROGV 1195 CHECK-BINDABLE 1162 \\DO.PROGV 1129 CHECK-BINDABLE 1120 CL:EVAL 1074 MAKE-KEYWORD 1038 CL:ERROR 989 CHECK-KEYWORDS 958 CHECK-KEYWORDS 939 CL:ERROR 793 \\DO.PROGV 760 CHECK-BINDABLE 698 \\DO.PROGV 665 CHECK-BINDABLE 656 CL:ERROR 572 \\DO.PROGV 539 CHECK-BINDABLE 498 CL:EVAL 456 \\DO.PROGV 421 CHECK-BINDABLE 367 CL:ERROR 241 \\DO.PROGV 208 CHECK-BINDABLE 187 CL:ERROR) (1393 ENVIRONMENT 1382 ENVIRONMENT 1366 CL:BLOCK 1335 ENVIRONMENT 1327 ENVIRONMENT 1315 \\INTERPRET-ARGUMENTSA0010 1301 GLOBALLY-SPECIAL 1243 ENVIRONMENT 1235 ENVIRONMENT 1223 \\INTERPRET-ARGUMENTSA0009 1209 GLOBALLY-SPECIAL 1177 ENVIRONMENT 1169 ENVIRONMENT 1157 \\INTERPRET-ARGUMENTSA0007 1143 GLOBALLY-SPECIAL 1032 :CALLEE 1027 INVALID-ARGUMENT-LIST 1017 &AUX 997 &ALLOW-OTHER-KEYS 975 &AUX 914 &KEY 904 &AUX 878 ENVIRONMENT 870 ENVIRONMENT 808 ENVIRONMENT 800 ENVIRONMENT 788 \\INTERPRET-ARGUMENTSA0005 774 GLOBALLY-SPECIAL 713 ENVIRONMENT 705 ENVIRONMENT 693 \\INTERPRET-ARGUMENTSA0004 679 GLOBALLY-SPECIAL 648 :MAXIMUM 641 :ACTUAL 635 :CALLEE 630 TOO-MANY-ARGUMENTS 598 ENVIRONMENT 590 ENVIRONMENT 567 \\INTERPRET-ARGUMENTSA0002 553 GLOBALLY-SPECIAL 473 &KEY 462 &AUX 451 \\INTERPRET-ARGUMENTSA0006 435 GLOBALLY-SPECIAL 385 &REST 359 :MAXIMUM 352 :ACTUAL 346 :CALLEE 341 TOO-MANY-ARGUMENTS 311 ENVIRONMENT 303 ENVIRONMENT 280 &KEY 270 &AUX 260 &REST 250 &OPTIONAL 236 \\INTERPRET-ARGUMENTSA0001 222 GLOBALLY-SPECIAL 163 :MINIMUM 156 :ACTUAL 150 :CALLEE 145 TOO-FEW-ARGUMENTS 128 &KEY 118 &AUX 106 &REST 96 &OPTIONAL 74 &BODY 64 &AUX 52 &KEY 42 &REST 30 &INTERLISP 20 &OPTIONAL 9 &REQUIRED) ( 934 "Not an even number of arguments for &KEY") \\INTERPRETER-LAMBDA :D8 (L (3 FN 2 ENV 1 DEF 0 N)) `kdfkHÑÊðjð”HlÙ„kHÑÈÑÈÑ1Bµ6bAB YºI»CgAKBJH@kÕj °Ì(92 \\COPY-ENVIRONMENT 86 \\INTERPRET-ARGUMENTS 56 \\MVLIST 51 \\REMOVE-DECLS 40 \\MAKE-ENVIRONMENT) (69 &REQUIRED) () CHECK-BINDABLE :D8 (L (0 VAR)) ¦@dd3@ð¿o@ ¿@ ³T@dgð³Kdgð³Bdgð³9dgð³0dgð³'dgð³dgð³dgðªdgð²¿@ •o„o@ ¿@ÁÉg'Ÿoo@@(162 CL:CERROR 133 CL:ERROR 115 CL:KEYWORDP 25 CL:CONSTANTP 18 CL:ERROR) (144 GLOBALVAR 105 &CONTEXT 97 &ENVIRONMENT 88 &ALLOW-OTHER-KEYS 79 &WHOLE 70 &BODY 61 &AUX 52 &KEY 43 &REST 34 &OPTIONAL) ( 156 "Attempt to bind a variable proclaimed global: ~S" 151 "Go ahead and bind it anyway" 127 "Attempt to bind a constant: ~S" 121 "Attempt to bind a keyword: ~S" 12 "Attempt to bind a non-symbol: ~S") CHECK-KEYWORDS :D8 (L (3 N 2 LENGTH 1 ARGBLOCK 0 KEY-ARGUMENTS)) a@C»BKó®H´'oH AKàÐÉZgð›AKkÔàÐÉ²(h@YšIdgð”¿J¸°d•d‘„ Jð•KlÔ°ªI°Õ(82 MAKE-KEYWORD 22 CL:ERROR) (60 &AUX 35 :ALLOW-OTHER-KEYS) ( 16 "Keyword argument doesn't match expected list of keywords: ~A") |expand-ARG-REF| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) %@!H¹HºgIgJohNIL (22 LLSH 16 \\GETBASEPTR) ( 28 (1)) (SETF-MACRO-FUNCTION (QUOTE ARG-REF) (QUOTE |expand-ARG-REF|)) (PUTPROPS .COMPILER-SPREAD-ARGUMENTS. DMACRO (APPLY COMP.SPREAD)) DECLARED-SPECIAL :D8 (L (1 DECLS 0 VAR)) ?A´@A@¹Aºhd»Jµ'\HKLÉ¿LK °Û(58 \\COPY-ENVIRONMENT 52 CL::|interpret-BLOCKA0001| 21 \\MAKE-ENVIRONMENT) (35 ENVIRONMENT 27 ENVIRONMENT) () (PUTPROP (QUOTE CL:BLOCK) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-BLOCK|)) CL::|expand-RETURN| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ghHhNIL (10 CL:RETURN-FROM) () (SETF-MACRO-FUNCTION (QUOTE RETURN) (QUOTE CL::|expand-RETURN|)) CL:RETURN-FROM :D8 (L (1 CL::RETFROM-VALUE 0 CL::RETFROM-TAG)) hA, k Y¿I³gg@h@¯Id gð³¿I gð²kI @ð™IHi°·kIdY°®(99 STKNTH 89 RETVALUES 77 STKARG 62 STKNAME 47 STKNAME 36 CL:ERROR 15 STKNTH 6 \\MVLIST) (67 CL:BLOCK 52 \\PROG0 30 :TAG 25 ILLEGAL-RETURN) () CL::|interpret-RETURN-FROMA0001| :D8 (L (0 CL::C) F 0 CL::\\BLK) ggP(15 CL:ERROR) (9 :TAG 4 ILLEGAL-RETURN) () CL::|interpret-RETURN-FROM| :D8 (L (1 XCL::$$ENV 0 XCL::$$TAIL) P 6 *CONDITION-HANDLER-BINDINGS* P 4 CL::\\BLK F 7 *CONDITION-HANDLER-BINDINGS*) u@1@¹AZd˜ÉH'»H´K³ggHHIJ K²#ggWKM$ g Mi(114 RETVALUES 107 STKPOS 96 SI::INTERNAL-THROW-VALUES 91 \\MVLIST 58 \\MVLIST 53 CL:EVAL 44 CL:ERROR) (102 \\PROG0 74 CL::|interpret-RETURN-FROMA0001| 69 ILLEGAL-THROW 38 :TAG 33 ILLEGAL-RETURN 17 ENVIRONMENT) () (PUTPROP (QUOTE CL:RETURN-FROM) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-RETURN-FROM|)) CL:FUNCTION :D8 (L (0 CL::FN)) @dd3@ð–¿@ (13 CL:SYMBOL-FUNCTION) NIL () (PUTPROPS CL:FUNCTION DMACRO (DEFMACRO (X) (COND ((CL:SYMBOLP X) (BQUOTE (CL:SYMBOL-FUNCTION (QUOTE ( \\\, X))))) (T (BQUOTE (FUNCTION (\\\, X))))))) CL::|interpret-FUNCTION| :D8 (L (1 XCL::$$ENV 0 XCL::$$TAIL)) Â@1A¹Hd3@ð²4IœIÉH'Zµ H gð’JoHgI²0IÉ[µ%i²1IÉ³'IÉ³IÉ³H`ð¢h°ÕK°ËgHdgð² ¿ggHo HgI (191 MAKE-CLOSURE 186 \\COPY-ENVIRONMENT 169 CL:APPEND 62 CL:ERROR 34 CL:SYMBOL-FUNCTION) (180 :ENVIRONMENT 156 &OPTIONAL 151 CL:LAMBDA 142 LAMBDA 134 :FUNCTION 120 *SPECIAL-BINDING-MARK* 108 ENVIRONMENT 98 ENVIRONMENT 88 ENVIRONMENT 72 ENVIRONMENT 57 CL:FUNCTION 41 :FUNCTION 21 ENVIRONMENT) ( 164 (&REST IGNORE) 51 "The lexical macro ~S is not a legal argument to ~S.") (PUTPROP (QUOTE CL:FUNCTION) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-FUNCTION|)) |interpret-FUNCTION| :D8 (L (1 XCL::$$ENV 0 XCL::$$TAIL)) Ó@Q@d¹AºI²g »HIlKHd3@ð²/JœJÉH'\µHgð’LoHgJ²0JÉ]µ%i²1JÉ³'JÉ³JÉ³H`ð¢h°ÕM°ËgHdgð² ¿ggHo HgJ(208 MAKE-CLOSURE 191 CL:APPEND 84 CL:ERROR 25 CL:SYMBOL-FUNCTION) (202 :ENVIRONMENT 178 &OPTIONAL 173 CL:LAMBDA 164 LAMBDA 156 :FUNCTION 142 *SPECIAL-BINDING-MARK* 130 ENVIRONMENT 120 ENVIRONMENT 110 ENVIRONMENT 94 ENVIRONMENT 79 FUNCTION 63 :FUNCTION 48 ENVIRONMENT 20 FUNCTION) ( 186 (&REST IGNORE) 73 "The lexical macro ~S is not a legal argument to ~S.") (PUTPROP (QUOTE FUNCTION) (QUOTE SPECIAL-FORM) (QUOTE |interpret-FUNCTION|)) CL:FUNCTIONP :D8 (L (0 CL::FN)) &@d3@ð³@ ³@d˜gð§@Ã´i(12 CL:COMPILED-FUNCTION-P) (32 CLOSURE 24 CL:LAMBDA) () CL:COMPILED-FUNCTION-P :D8 (L (0 CL::FN)) @Ãµ@´@ÊlðNIL (18 ARRAYP 5 COMPILED-CLOSURE) () CL::|interpret-MULTIPLE-VALUE-CALL| :D8 (L (1 XCL::$$ENV 0 XCL::$$TAIL)) b@A@¹AºHJ j¼»0I°dJ ]—NµM_^¿µæO°" ^M°îdýnLkØ\ñ¨hl4 ¿µêLK(89 \\LISPERROR 63 LAST 38 \\MVLIST 33 CL:EVAL 16 CL:EVAL) NIL () (PUTPROP (QUOTE CL:MULTIPLE-VALUE-CALL) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-MULTIPLE-VALUE-CALL| )) CL::|interpret-MULTIPLE-VALUE-PROG1| :D8 (L (1 XCL::$$ENV 0 XCL::$$TAIL)) *@!@¹AºHJ I‰dJ ¿µõ$(31 CL:EVAL 21 \\MVLIST 16 CL:EVAL) NIL () (PUTPROP (QUOTE CL:MULTIPLE-VALUE-PROG1) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-MULTIPLE-VALUE-PROG1|)) COMP.CL-EVAL :D8 (L (0 EXP)) g@gg@o(28 COMP.SPREAD) (16 CAR 11 *EVAL-ARGUMENT-COUNT* 4 CDR) ( 23 ((CL:EVAL ENVIRONMENT))) CL:EVALHOOK :D8 (L (3 CL::ENV 2 CL::APPLYHOOKFN 1 CL::EVALHOOKFN 0 CL::FORM) P 3 CL::*SKIP-APPLYHOOK* P 2 *APPLYHOOK* P 1 CL::*SKIP-EVALHOOK* P 0 *EVALHOOK*) AiB@C (12 CL:EVAL) NIL () (SET-DOCUMENTATION (QUOTE CL:EVALHOOK) (QUOTE CL:FUNCTION) "Evaluates Form with *Evalhook* bound to Evalhookfn and *Applyhook* bound to applyhookfn. Ignores these hooks once, for the top-level evaluation of Form." ) CL:APPLYHOOK :D8 (L (4 CL::ENV 3 CL::APPLYHOOKFN 2 CL::EVALHOOKFN 1 CL::ARGS 0 CL:FUNCTION) P 3 CL::*SKIP-APPLYHOOK* P 2 *APPLYHOOK* P 1 CL::*SKIP-EVALHOOK* P 0 *EVALHOOK*) *BiC3@j½¼A°dýnMkØ]ñ¨hl4 ¿µêML(33 \\LISPERROR) NIL () (SET-DOCUMENTATION (QUOTE CL:APPLYHOOK) (QUOTE CL:FUNCTION) "Evaluates Form with *Evalhook* bound to Evalhookfn and *Applyhook* bound to applyhookfn. Ignores these hooks once, for the top-level evaluation of Form." ) (CL:PROCLAIM (QUOTE (CL:SPECIAL *EVALHOOK*))) (OR (BOUNDP (QUOTE *EVALHOOK*)) (CL:SETQ *EVALHOOK* NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *APPLYHOOK*))) (OR (BOUNDP (QUOTE *APPLYHOOK*)) (CL:SETQ *APPLYHOOK* NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL CL::*SKIP-EVALHOOK*))) (OR (BOUNDP (QUOTE CL::*SKIP-EVALHOOK*)) (CL:SETQ CL::*SKIP-EVALHOOK* NIL)) (SET-DOCUMENTATION (QUOTE CL::*SKIP-EVALHOOK*) (QUOTE CL:VARIABLE) "Used with non-null *EVALHOOK* to suppress the use of the hook-function for one level of eval.") (CL:PROCLAIM (QUOTE (CL:SPECIAL CL::*SKIP-APPLYHOOK*))) (OR (BOUNDP (QUOTE CL::*SKIP-APPLYHOOK*)) (CL:SETQ CL::*SKIP-APPLYHOOK* NIL)) (SET-DOCUMENTATION (QUOTE CL::*SKIP-APPLYHOOK*) (QUOTE CL:VARIABLE) "Used with non-null *APPLYHOOK* to suppress the use of the hook function for one level of eval.") CL:CONSTANTP :D8 (L (1 ENVIRONMENT 0 OBJECT) F 5 COMPVARMACROHASH F 6 CONSTANTFOLDFNS) £@AH3³{HdÃ³r ³kHd ³bÃ²(@hðµW@iðµR@ µJU´G@U b´@1A¹hdºIµ+[HJKÉ¿KJ X³ùh °×(58 \\COPY-ENVIRONMENT 48 CL::|interpret-TAGBODYA0001| 17 \\MAKE-ENVIRONMENT) (31 ENVIRONMENT 23 ENVIRONMENT) () (PUTPROP (QUOTE CL:TAGBODY) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-TAGBODY|)) CL:TAGBODY :D8 (L (0 TAIL)) h@d (8 \\PROG0) NIL () CACHEMACRO :D8 (L (2 ENV 1 BODY 0 FN) F 2 *IN-COMPILER-LET*) ^BÃ²B²BÉHµh¢R²ABl@Ygð•Iµéi°æHX°ÜA` µAdBl@`(91 PUTHASH 72 GETHASH) (86 CLISPARRAY 67 CLISPARRAY 47 :MACRO 16 ENVIRONMENT 5 ENVIRONMENT) () (CL:PROCLAIM (QUOTE (CL:SPECIAL *MACROEXPAND-HOOK*))) (SETQ *MACROEXPAND-HOOK* (QUOTE CACHEMACRO)) (RPAQQ *IN-COMPILER-LET* NIL) CL:PROCLAIM :D8 (L (0 CL::PROCLAMATION)) @´‚±ú@1Hdgð²0¿@°&dYgi¿Igh¿Ih ¿µÚhgð²/@°&dZgi¿Jgh¿Jh ¿µÚhHdgð²0¿@°&d[i ¿Kgh¿Kgh¿µÚhgð²@ˆdi ¿µõhHdgð²¿@ˆdi ¿µõhgð´@ˆdh ¿µõh(248 XCL::SET-GLOBALLY-NOTINLINE-P 223 XCL::SET-GLOBALLY-NOTINLINE-P 195 XCL::SET-DECL-SPECIFIER-P 170 PUTPROP 157 PUTPROP 144 XCL::SET-CONSTANTP 114 XCL::SET-CONSTANTP 106 PUTPROP 93 PUTPROP 61 XCL::SET-CONSTANTP 53 PUTPROP 40 PUTPROP) (235 CL:INLINE 209 CL:NOTINLINE 182 CL:DECLARATION 164 GLOBALLY-SPECIAL 151 GLOBALVAR 128 SI::CONSTANT 100 GLOBALLY-SPECIAL 87 GLOBALVAR 73 GLOBAL 47 GLOBALVAR 34 GLOBALLY-SPECIAL 19 CL:SPECIAL) () (PUTPROPS VARIABLE-GLOBALLY-SPECIAL-P MACRO ((VARIABLE) (GET VARIABLE (QUOTE GLOBALLY-SPECIAL)))) (PUTPROPS VARIABLE-GLOBAL-P MACRO ((VARIABLE) (GET VARIABLE (QUOTE GLOBALVAR)))) XCL::DECL-SPECIFIER-P :D8 (L (0 CL:SYMBOL)) @ÁÉg'NIL (9 SI::DECLARATION-SPECIFIER) () XCL::SET-DECL-SPECIFIER-P :D8 (L (1 XCL::VAL 0 XCL::SPEC)) @gA(11 PUTPROP) (5 SI::DECLARATION-SPECIFIER) () XCL::GLOBALLY-NOTINLINE-P :D8 (L (0 XCL::FN)) @ÁÉg'NIL (9 SI::GLOBALLY-NOTINLINE) () XCL::SET-GLOBALLY-NOTINLINE-P :D8 (L (1 XCL::VAL 0 XCL::FN)) @gA(11 PUTPROP) (5 SI::GLOBALLY-NOTINLINE) () (CL::SET-SETF-INVERSE (QUOTE XCL::DECL-SPECIFIER-P) (QUOTE XCL::SET-DECL-SPECIFIER-P)) (CL::SET-SETF-INVERSE (QUOTE XCL::GLOBALLY-NOTINLINE-P) (QUOTE XCL::SET-GLOBALLY-NOTINLINE-P)) (PUTPROPS GLOBALLY-SPECIAL PROPTYPE IGNORE) (PUTPROPS GLOBALVAR PROPTYPE IGNORE) (PUTPROPS SI::DECLARATION-SPECIFIER PROPTYPE IGNORE) (PUTPROPS SI::GLOBALLY-NOTINLINE PROPTYPE IGNORE) (PUTPROPS SPECIAL-FORM PROPTYPE IGNORE) (PUTPROPS CMLEVAL FILETYPE BCOMPL) (PUTPROPS CMLEVAL MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "INTERLISP")) NIL