(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "COMPILER" (USE "LISP" "XCL"))) (IL:FILECREATED "12-Nov-93 14:47:01" ("compiled on " IL:|{DSK}export>lispcore>sources>CLTL2>XCLC-ENV-CTXT.;1|) "11-Nov-93 16:58:33" "COMPILE-FILEd" IL:|in| "Medley 11-Nov-93 ..." IL:|dated| "11-Nov-93 17:07:44") (IL:FILECREATED " 4-Feb-92 10:32:41" IL:|{DSK}local>lde>lispcore>sources>XCLC-ENV-CTXT.;3| 18137 IL:|changes| IL:|to:| (IL:FUNCTIONS RESOLVE-VARIABLE-REFERENCE RESOLVE-VARIABLE-BINDING) IL:|previous| IL:|date:| " 4-Jan-92 12:28:35" IL:|{DSK}local>lde>lispcore>sources>XCLC-ENV-CTXT.;2|) (IL:RPAQQ IL:XCLC-ENV-CTXTCOMS ((IL:* IL:|;;;| "Contexts and Environments") (IL:STRUCTURES CONTEXT ENV ) (IL:FUNCTIONS ENV-SETF-FBOUNDP LOCAL-CONSTANT-P PRINT-CONTEXT PRINT-ENV) (IL:FUNCTIONS MAKE-CHILD-ENV ENV-BIND-VARIABLE ENV-BIND-FUNCTION ENV-ADD-DECLS ENV-DECL-P ENV-ALLOW-INLINES ENV-DISALLOW-INLINES ENV-INLINE-ALLOWED ENV-INLINE-DISALLOWED ENV-PROCLAIM-SPECIAL ENV-PROCLAIMED-SPECIAL-P ENV-PROCLAIM-GLOBAL ENV-PROCLAIMED-GLOBAL-P ENV-DECLARE-SPECIALS ENV-DECLARE-GLOBALS ENV-DECLARE-A-SPECIAL ENV-DECLARE-A-GLOBAL) (IL:FUNCTIONS FIND-TOP-ENVIRONMENT RESOLVE-VARIABLE-REFERENCE RESOLVE-VARIABLE-BINDING VALUE-FOLDABLE-P CHECK-GLOBAL-CONSTANT CONSTANT-VALUE SET-CONSTANT-VALUE LOCAL-CONSTANT-P) (IL:SETFS CONSTANT-VALUE) (IL:VARIABLES *CONSTANTS-HASH-TABLE*) (IL:VARIABLES *ENVIRONMENT* *CONTEXT* *ARGUMENT-CONTEXT* *EFFECT-CONTEXT* *NULL-CONTEXT* *PREDICATE-CONTEXT*) (IL:* IL:|;;| "External interface to environments") (IL:FUNCTIONS ENV-BOUNDP ENV-FBOUNDP COPY-ENV-WITH-FUNCTION COPY-ENV-WITH-VARIABLE MAKE-EMPTY-ENV) (IL:* IL:|;;| "Describe the machine we're running on and the target for hte compiled code") (IL:VARIABLES *HOST-ARCHITECTURE* *TARGET-ARCHITECTURE*) (IL:* IL:|;;| "Arrange for the correct compiler to be used.") (IL:PROP IL:FILETYPE IL:XCLC-ENV-CTXT) (IL:* IL:|;;| "Arrange for the correct reader environment.") (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:XCLC-ENV-CTXT))) (CL::SET-PARSED-STRUCTURE (QUOTE CONTEXT) T (QUOTE (CL::PS CONTEXT MAKE-CONTEXT (TOP-LEVEL-P VALUES-USED PREDICATE-P APPLIED-CONTEXT) CL::DATATYPE NIL NIL "CONTEXT-" (MAKE-CONTEXT) CONTEXT-P PRINT-CONTEXT COPY-CONTEXT NIL 0 NIL ((TOP-LEVEL-P NIL T NIL (CONTEXT 0 IL:POINTER) CONTEXT-TOP-LEVEL-P) (VALUES-USED :UNKNOWN T NIL (CONTEXT 2 IL:POINTER) CONTEXT-VALUES-USED) ( PREDICATE-P NIL T NIL (CONTEXT 4 IL:POINTER) CONTEXT-PREDICATE-P) (APPLIED-CONTEXT NIL T NIL (CONTEXT 6 IL:POINTER) CONTEXT-APPLIED-CONTEXT)) NIL NIL (IL:POINTER IL:POINTER IL:POINTER IL:POINTER) NIL ( :ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE CONTEXT) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((CONTEXT 0 IL:POINTER) (CONTEXT 2 IL:POINTER) (CONTEXT 4 IL:POINTER) (CONTEXT 6 IL:POINTER))) 8 (QUOTE CL::STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE CONTEXT) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) CONTEXT-P :D8 (IL:L (0 CL::OBJECT)) @NIL (5 CONTEXT) () (CL::ESTABLISH-PREDICATE (QUOTE CONTEXT)) CONTEXT-TOP-LEVEL-P :D8 (IL:L (0 CONTEXT)) @NIL (5 CONTEXT) () CONTEXT-VALUES-USED :D8 (IL:L (0 CONTEXT)) @NIL (5 CONTEXT) () CONTEXT-PREDICATE-P :D8 (IL:L (0 CONTEXT)) @NIL (5 CONTEXT) () CONTEXT-APPLIED-CONTEXT :D8 (IL:L (0 CONTEXT)) @NIL (5 CONTEXT) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE CONTEXT)) MAKE-CONTEXT :D8 (IL:L (0 IL:|-args-|)) eiHkKJhYHkNdMg_i_Hk__OdOh__i_Hk__OdO~h__`_ IO LO OOO OOO OO Kdagl[okaqagNkauNl^`agOkazOl_dagOka{Ol_gNIL (221 :APPLIED-CONTEXT 195 :PREDICATE-P 172 :VALUES-USED 151 :TOP-LEVEL-P 103 |CONTEXTTYPE#| 39 :UNKNOWN) () COPY-CONTEXT :D8 (IL:L (0 CONTEXT)) I@H&`H@H@H@H@HigHgh b(66 IL:CHECK-TYPE-FAIL) (59 CONTEXT 53 CONTEXT 17 |CONTEXTTYPE#| 9 CONTEXT) () (CL::SET-PARSED-STRUCTURE (QUOTE ENV) T (QUOTE (CL::PS ENV MAKE-ENV (PARENT VENV FENV ALLOWED-INLINES DISALLOWED-INLINES DECL-SPECIFIERS DECLARED-SPECIALS DECLARED-GLOBALS TARGET-ARCHITECTURE) CL::DATATYPE NIL NIL "ENV-" (MAKE-ENV) ENV-P PRINT-ENV COPY-ENV NIL 0 NIL ((PARENT NIL T NIL (ENV 0 IL:POINTER) ENV-PARENT) (VENV NIL T NIL (ENV 2 IL:POINTER) ENV-VENV) (FENV NIL T NIL (ENV 4 IL:POINTER) ENV-FENV) (ALLOWED-INLINES NIL T NIL (ENV 6 IL:POINTER) ENV-ALLOWED-INLINES) (DISALLOWED-INLINES NIL T NIL (ENV 8 IL:POINTER) ENV-DISALLOWED-INLINES) (DECL-SPECIFIERS NIL T NIL (ENV 10 IL:POINTER) ENV-DECL-SPECIFIERS) (DECLARED-SPECIALS NIL T NIL (ENV 12 IL:POINTER) ENV-DECLARED-SPECIALS) ( DECLARED-GLOBALS NIL T NIL (ENV 14 IL:POINTER) ENV-DECLARED-GLOBALS) (TARGET-ARCHITECTURE *TARGET-ARCHITECTURE* T NIL (ENV 16 IL:POINTER) ENV-TARGET-ARCHITECTURE)) NIL NIL (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ENV) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((ENV 0 IL:POINTER) (ENV 2 IL:POINTER) (ENV 4 IL:POINTER) (ENV 6 IL:POINTER) (ENV 8 IL:POINTER) (ENV 10 IL:POINTER) (ENV 12 IL:POINTER) (ENV 14 IL:POINTER) (ENV 16 IL:POINTER))) 18 (QUOTE CL::STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE ENV) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) ENV-P :D8 (IL:L (0 CL::OBJECT)) @NIL (5 ENV) () (CL::ESTABLISH-PREDICATE (QUOTE ENV)) ENV-PARENT :D8 (IL:L (0 ENV)) @NIL (5 ENV) () ENV-VENV :D8 (IL:L (0 ENV)) @NIL (5 ENV) () ENV-FENV :D8 (IL:L (0 ENV)) @NIL (5 ENV) () ENV-ALLOWED-INLINES :D8 (IL:L (0 ENV)) @NIL (5 ENV) () ENV-DISALLOWED-INLINES :D8 (IL:L (0 ENV)) @NIL (5 ENV) () ENV-DECL-SPECIFIERS :D8 (IL:L (0 ENV)) @ NIL (5 ENV) () ENV-DECLARED-SPECIALS :D8 (IL:L (0 ENV)) @ NIL (5 ENV) () ENV-DECLARED-GLOBALS :D8 (IL:L (0 ENV)) @NIL (5 ENV) () ENV-TARGET-ARCHITECTURE :D8 (IL:L (0 ENV)) @NIL (5 ENV) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ENV)) MAKE-ENV :D8 (IL:L (0 IL:|-args-|) IL:F 37 *TARGET-ARCHITECTURE*) @%eiP$HkKJBhYiHk_OdNEh]_i_Hk__OdOCh__i_Hk__OdO@h__ i_"Hk_&_$O&dO$=h_"_(i_*Hk_._,O.dO,:h_*_0i_2Hk_6_4O6dO47h_2_8i_:Hk_>_dO<4h_:_@Hk_D_BODdOB5WJ_F`_HIOHLMOHOOOHOOOHO O"OHO(O*OHO0 O2OHO8 O:OHO@OHOFOHKdagl[kaagOkaOl_agOkaOl_agOkaOl_agO&kaO&l_&agO.kaO.l_.agO6kaO6l_6agO>kaO>l_>agODkaODl_DNIL (554 :TARGET-ARCHITECTURE 528 :DECLARED-GLOBALS 502 :DECLARED-SPECIALS 476 :DECL-SPECIFIERS 450 :DISALLOWED-INLINES 424 :ALLOWED-INLINES 398 :FENV 372 :VENV 351 :PARENT 253 |ENVTYPE#|) () COPY-ENV :D8 (IL:L (0 ENV)) g@HD`H@H@H@H@H@H@  H@  H@H@HigHgh b(96 IL:CHECK-TYPE-FAIL) (89 ENV 83 ENV 17 |ENVTYPE#| 9 ENV) () ENV-SETF-FBOUNDPA0001 :D8 (IL:L (0 ENV) IL:F 1 NAME) ;@Hi*Q@gg Hdb$h(39 ASSOC) (34 EQUAL 29 :TEST 22 ENV 5 ENV) () ENV-SETF-FBOUNDP :D8 (IL:L (0 ENV) IL:I 1 NAME) @ (5 ENV-SETF-FBOUNDPA0001) NIL () LOCAL-CONSTANT-P :D8 (IL:L (0 SYMBOL) IL:F 0 *CONSTANTS-HASH-TABLE*) @P (6 GETHASH) NIL () PRINT-CONTEXT :D8 (IL:L (2 DEPTH 1 STREAM 0 STRUCT) IL:F 4 *PRINT-ESCAPE*) @@@@H IgJKAoT HiIjJKAoT wHdIjJKAoT ]HJIkJKAoT CH0IkJiKAoT 'HJKAoTI AoHIJK h(211 FORMAT 194 FORMAT 172 FORMAT 144 FORMAT 118 FORMAT 92 FORMAT 63 FORMAT) (43 :UNKNOWN 29 CONTEXT 21 CONTEXT 13 CONTEXT 5 CONTEXT) ( 201 "#" 187 "~:[~S values~;#~]" 166 "~:[Predicate~;#~]" 138 "~:[Argument~;#~]" 112 "~:[Effect~;#~]" 86 "~:[Top-level form~;#~]" 57 "~:[Null~;#~]") PRINT-ENV :D8 (IL:L (2 DEPTH 1 STREAM 0 STRUCT)) Ao@@ (14 FORMAT) NIL ( 5 "#") MAKE-CHILD-ENV :D8 (IL:L (0 PARENT)) g@ (10 MAKE-ENV) (4 :PARENT) () ENV-BIND-VARIABLE :D8 (IL:L (2 STRUCT 1 NAME 0 ENV)) @ABHHIINIL (22 ENV 12 ENV) () ENV-BIND-FUNCTION :D8 (IL:L (3 EXPN-OR-VAR 2 KIND 1 NAME 0 ENV)) !@ABChHHIINIL (26 ENV 16 ENV) () ENV-ADD-DECLS :D8 (IL:L (1 SPECIFIERS 0 ENV)) @A@ HI I(19 APPEND) (12 ENV 5 ENV) () ENV-DECL-P :D8 (IL:L (1 SPECIFIER 0 ENV)) 'A@ @HHbNIL (28 ENV 17 ENV 6 ENV) () ENV-ALLOW-INLINES :D8 (IL:L (1 NAMES 0 ENV)) 4@@A @@A HII(41 UNION 19 SET-DIFFERENCE) (33 ENV 27 ENV 11 ENV 5 ENV) () ENV-DISALLOW-INLINES :D8 (IL:L (1 NAMES 0 ENV)) 4@@A @@A HII(41 UNION 19 SET-DIFFERENCE) (33 ENV 27 ENV 11 ENV 5 ENV) () ENV-INLINE-ALLOWED :D8 (IL:L (1 NAME 0 ENV)) 4A@iA@h@HHbNIL (42 ENV 31 ENV 19 ENV 6 ENV) () ENV-INLINE-DISALLOWED :D8 (IL:L (1 NAME 0 ENV)) :A@iA@h@HHbA (55 XCL::GLOBALLY-NOTINLINE-P) (42 ENV 31 ENV 19 ENV 6 ENV) () ENV-PROCLAIM-SPECIAL :D8 (IL:L (1 NAME 0 ENV)) @ AH HI A(5 FIND-TOP-ENVIRONMENT) (25 ENV 15 ENV) () ENV-PROCLAIMED-SPECIAL-P :D8 (IL:L (1 NAME 0 ENV)) A@  (6 FIND-TOP-ENVIRONMENT) (11 ENV) () ENV-PROCLAIM-GLOBAL :D8 (IL:L (1 NAME 0 ENV)) @ AHHIA(5 FIND-TOP-ENVIRONMENT) (25 ENV 15 ENV) () ENV-PROCLAIMED-GLOBAL-P :D8 (IL:L (1 NAME 0 ENV)) A@ (6 FIND-TOP-ENVIRONMENT) (11 ENV) () ENV-DECLARE-SPECIALS :D8 (IL:L (1 SPECIALS 0 ENV)) @A@ HI I(19 APPEND) (12 ENV 5 ENV) () ENV-DECLARE-GLOBALS :D8 (IL:L (1 GLOBALS 0 ENV)) @A@ HII(19 APPEND) (12 ENV 5 ENV) () ENV-DECLARE-A-SPECIAL :D8 (IL:L (1 VAR 0 ENV)) @AH HI INIL (20 ENV 10 ENV) () ENV-DECLARE-A-GLOBAL :D8 (IL:L (1 VAR 0 ENV)) @AHHIINIL (20 ENV 10 ENV) () FIND-TOP-ENVIRONMENT :D8 (IL:L (0 ENV)) @d@bNIL (21 ENV 13 ENV 6 ENV) () RESOLVE-VARIABLE-REFERENCE :D8 (IL:L (2 SETQ-P 1 SYMBOL 0 CURRENT-ENV) IL:F 3 *AUTOMATIC-SPECIAL-DECLARATIONS* IL:F 4 IL:SPECVARS IL:F 5 IL:GLOBALVARS IL:F 6 IL:LOCALVARS IL:F 7 IL:LOCALFREEVARS) |@!HHiB"A Ad oA A gA Ad ,A ZJgAI g'AUTiAVATAWAdg'gAgg{SoA ASc@A gAggKAH AH gAgg!.AH?gAgggg B$HdgH HXH(363 MAKE-VAR-REF 335 MAKE-VARIABLE 227 ENV-DECLARE-A-SPECIAL 213 COMPILER-WARNING 122 MAKE-LITERAL 117 SET-CONSTANT-VALUE 95 IL:\\MVLIST 90 CHECK-GLOBAL-CONSTANT 81 CONSTANTP 71 MAKE-LITERAL 66 CONSTANT-VALUE 53 LOCAL-CONSTANT-P 43 COMPILER-WARNING 29 CONSTANTP 21 LOCAL-CONSTANT-P) (370 ENV 357 :VARIABLE 349 VARIABLE-STRUCT 329 :VARIABLE 324 :KIND 319 :GLOBAL 314 :SCOPE 308 :NAME 298 ENV 286 :SPECIAL 281 :SCOPE 275 :NAME 265 ENV 253 ENV 244 :SPECIAL 239 :SCOPE 233 :NAME 196 :SPECIAL 191 :SCOPE 185 :NAME 176 IL:GLOBALLY-SPECIAL 134 IL:GLOBALVAR 110 :VALUE 60 :VALUE) ( 207 "The variable ~S was unknown and has been declared SPECIAL." 37 "Attempt to SETQ a declared constant: ~S") RESOLVE-VARIABLE-BINDING :D8 (IL:L (1 SYMBOL 0 ENV) IL:F 0 IL:SPECVARS IL:F 1 *NEW-GLOBALS* IL:F 2 IL:GLOBALVARS IL:F 3 *NEW-SPECIALS* IL:F 4 IL:LOCALFREEVARS IL:F 5 IL:LOCALVARS) A Ad ooA gQ@A Ag'AdRooA gS+@A "Ag'ATPiAUhAPg(103 ENV-PROCLAIMED-SPECIAL-P 86 COMPILER-CERROR 49 ENV-PROCLAIMED-GLOBAL-P 32 COMPILER-CERROR 13 CONSTANTP 5 LOCAL-CONSTANT-P) (142 :SPECIAL 115 IL:GLOBALLY-SPECIAL 91 :LEXICAL 61 IL:GLOBALVAR 37 :LEXICAL) ( 80 "The symbol ~S is declared as a global and thus cannot be bound." 75 "Make a lexical binding anyway." 26 "The symbol ~S is declared as a constant and thus cannot be bound." 21 "Make a lexical binding anyway.") VALUE-FOLDABLE-P :D8 (IL:L (0 VALUE)) @HHd3iNIL (23 IL:CHARACTER 9 IL:LITATOM) () CHECK-GLOBAL-CONSTANT :D8 (IL:L (0 SYMBOL) IL:F 2 IL:COMPVARMACROHASH) g@R H @ @ i$o@ HgHHdo@H Y I@hd $(97 VALUE-FOLDABLE-P 84 EVAL 75 ERROR 41 ERROR 25 SYMBOL-VALUE 18 BOUNDP 6 GETHASH) (52 IL:CONSTANT) ( 68 "BUG: The value of ~S in the constants hash table, ~S, has an illegal form." 35 "BUG: ~S is declared as a constant, but no value for it is known.") CONSTANT-VALUE :D8 (IL:L (0 SYMBOL) IL:F 1 *CONSTANTS-HASH-TABLE*) @Q Ho@ (23 IL:ASSERT-FAIL 6 GETHASH) NIL ( 17 "~S is not a known constant") SET-CONSTANT-VALUE :D8 (IL:L (1 VALUE 0 SYMBOL) IL:F 0 *CONSTANTS-HASH-TABLE*) @PAh (9 CL::PUTHASH) NIL () LOCAL-CONSTANT-P :D8 (IL:L (0 SYMBOL) IL:F 0 *CONSTANTS-HASH-TABLE*) @P (6 GETHASH) NIL () (CL::SET-SETF-INVERSE (QUOTE CONSTANT-VALUE) (QUOTE SET-CONSTANT-VALUE)) (PROCLAIM (QUOTE (SPECIAL *CONSTANTS-HASH-TABLE*))) (OR (BOUNDP (QUOTE *CONSTANTS-HASH-TABLE*)) (SETQ *CONSTANTS-HASH-TABLE* NIL)) (PROCLAIM (QUOTE (SPECIAL *ENVIRONMENT*))) (OR (BOUNDP (QUOTE *ENVIRONMENT*)) (SETQ *ENVIRONMENT* NIL)) (PROCLAIM (QUOTE (SPECIAL *CONTEXT*))) (OR (BOUNDP (QUOTE *CONTEXT*)) (SETQ *CONTEXT* NIL)) (IL:SET-DOCUMENTATION (QUOTE *CONTEXT*) (QUOTE VARIABLE) "The evaluation context of the current form. Rebound at several places within the compiler.") (XCL::SET-CONSTANTP (QUOTE *ARGUMENT-CONTEXT*) NIL) (IL:SETQ *ARGUMENT-CONTEXT* (MAKE-CONTEXT :VALUES-USED 1)) (PROCLAIM (QUOTE (SI::CONSTANT *ARGUMENT-CONTEXT*))) (IL:SET-DOCUMENTATION (QUOTE *ARGUMENT-CONTEXT*) (QUOTE VARIABLE) "Context structure to be shared among all evaluations in return position.") (XCL::SET-CONSTANTP (QUOTE *EFFECT-CONTEXT*) NIL) (IL:SETQ *EFFECT-CONTEXT* (MAKE-CONTEXT :VALUES-USED 0)) (PROCLAIM (QUOTE (SI::CONSTANT *EFFECT-CONTEXT*))) (IL:SET-DOCUMENTATION (QUOTE *EFFECT-CONTEXT*) (QUOTE VARIABLE) "Context structure to be shared among all evaluations for effect.") (XCL::SET-CONSTANTP (QUOTE *NULL-CONTEXT*) NIL) (IL:SETQ *NULL-CONTEXT* (MAKE-CONTEXT)) (PROCLAIM (QUOTE (SI::CONSTANT *NULL-CONTEXT*))) (IL:SET-DOCUMENTATION (QUOTE *NULL-CONTEXT*) (QUOTE VARIABLE) "Context structure to be shared among all expressions in a position without any contextual information." ) (XCL::SET-CONSTANTP (QUOTE *PREDICATE-CONTEXT*) NIL) (IL:SETQ *PREDICATE-CONTEXT* (MAKE-CONTEXT :VALUES-USED 1 :PREDICATE-P T)) (PROCLAIM (QUOTE (SI::CONSTANT *PREDICATE-CONTEXT*))) (IL:SET-DOCUMENTATION (QUOTE *PREDICATE-CONTEXT*) (QUOTE VARIABLE) "Context structure to be shared among all evaluations as predicates.") ENV-BOUNDP :D8 (IL:L (1 NAME 0 ENV)) `A@A@ gHdHA@g@HHbNIL (86 ENV 75 ENV 68 :GLOBAL 59 ENV 49 VARIABLE-STRUCT 40 VARIABLE-STRUCT 28 :SPECIAL 18 ENV 6 ENV) () ENV-FBOUNDPA0001 :D8 (IL:L (0 ENV) IL:F 1 LEXICAL-ONLY IL:F 2 NAME) 6@QHi#R@HdihHb$hNIL (24 ENV 5 ENV) () ENV-FBOUNDP :D8 (IL:L (0 IL:|-args-|) IL:P 5 LEXICAL-ONLY IL:P 2 NAME) 7eka1laHlLKhI Ldagl\ka(31 ENV-FBOUNDPA0001) (40 :LEXICAL-ONLY) () COPY-ENV-WITH-FUNCTION :D8 (IL:L (0 IL:|-args-|)) BekaAlalHglalHhlaI]JKL M (62 COPY-ENV 55 ENV-BIND-FUNCTION 46 MAKE-EMPTY-ENV) (22 :FUNCTION) () COPY-ENV-WITH-VARIABLE :D8 (IL:L (0 IL:|-args-|)) 6eka1lalHglaI\JK L (50 COPY-ENV 43 ENV-BIND-VARIABLE 35 MAKE-EMPTY-ENV) (22 :LEXICAL) () MAKE-EMPTY-ENV :D8 NIL (4 MAKE-ENV) NIL () (PROCLAIM (QUOTE (SPECIAL *HOST-ARCHITECTURE*))) (OR (BOUNDP (QUOTE *HOST-ARCHITECTURE*)) (SETQ *HOST-ARCHITECTURE* NIL)) (PROCLAIM (QUOTE (SPECIAL *TARGET-ARCHITECTURE*))) (OR (BOUNDP (QUOTE *TARGET-ARCHITECTURE*)) (SETQ *TARGET-ARCHITECTURE* NIL)) (IL:PUTPROPS IL:XCLC-ENV-CTXT IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:XCLC-ENV-CTXT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE "COMPILER" (:USE "LISP" "XCL")))) (IL:PUTPROPS IL:XCLC-ENV-CTXT IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1992)) NIL