(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "D-ASSEM" (USE "LISP" "XCL"))) (IL:FILECREATED "25-Jan-98 12:01:26" ("compiled on " IL:|{DSK}sources>D-ASSEM.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED " 1-Dec-92 02:18:56" "{Pele:mv:envos}Sources>D-ASSEM.;12" 131316 IL:|changes| IL:|to:| (IL:FUNCTIONS EMIT-BYTE FIXUP-PTR FIXUP-PTR-NO-REF FIXUP-SYMBOL FIXUP-NTENTRY INTERN-DCODE) IL:|previous| IL:|date:| "17-Nov-92 02:55:57" "{Pele:mv:envos}Sources>D-ASSEM.;11") (IL:RPAQQ IL:D-ASSEMCOMS ((IL:* IL:|;;;| "D-machine Assembler.") (IL:FILES IL:D-ASSEM-PACKAGE) (IL:COMS (IL:* IL:|;;| "Data structures and utilities") (IL:STRUCTURES DCODE DJUMP DLAMBDA DTAG DVAR) ( IL:FUNCTIONS RELEASE-DCODE) (IL:FUNCTIONS CREATE-HUNK TYPE-NAME-FROM-SIZE) (IL:FUNCTIONS COPY-LAP-FN COPY-LAP-CODE) (IL:FUNCTIONS MAXF)) (IL:COMS (IL:* IL:|;;| "Handy constants") (IL:VARIABLES +IVAR-CODE+ +PVAR-CODE+ +FVAR-CODE+) (IL:VARIABLES +LAMBDA-SPREAD+ +NLAMBDA-SPREAD+ +LAMBDA-NO-SPREAD+ +NLAMBDA-NO-SPREAD+) (IL:VARIABLES +CONSTANT-OPCODES+)) (IL:COMS (IL:* IL:|;;| "Opcode generation") ( IL:VARIABLES *BYTES* *BYTE-COUNT*) (IL:FUNCTIONS START-BYTES EMIT-BYTE EMIT-BYTE-LIST END-BYTES) ( IL:FUNCTIONS CHOOSE-OP FETCH-HUNK REF-VAR STORE-VAR MAX-ARG PUSH-INTEGER)) (IL:COMS (IL:* IL:|;;| "Main driving") (IL:VARIABLES *DTAG-ENV* *DVAR-ENV* *STACK-ENV*) (IL:VARIABLES *HUNK-MAP* *DCODE* *LEVEL*) (IL:FUNCTIONS ASSEMBLE-FUNCTION DLAMBDA-FROM-LAMBDA DCODE-FROM-DLAMBDA)) (IL:COMS (IL:* IL:|;;| "Digesting the function") (IL:VARIABLES *HUNK-SIZE* *PVAR-COUNT* *FREE-VARS* *BOUND-SPECIALS*) ( IL:VARIABLES +MAX-ALLOWABLE-PVAR-COUNT+ +MAX-ALLOWABLE-SPECIAL-COUNT+ +SLOW-FVAR-SLOT+) (IL:FUNCTIONS DIGEST-FUNCTION DETERMINE-LOCAL-FN-LEXICAL-LEVEL DIGEST-CODE STORE-DIGEST-INFO) (IL:FUNCTIONS DVAR-FROM-LAP-VAR LAP-VAR-ID INSTALL-LOCAL INSTALL-VAR INTERN-VAR INTERN-TAG)) (IL:COMS (IL:* IL:|;;| "Function entry code") (IL:FUNCTIONS EASY-ENTRY-P GENERATE-EASY-ENTRY) (IL:FUNCTIONS GENERATE-HARD-ENTRY GENERATE-ARG-CHECK GENERATE-KEY GENERATE-OPT-AND-REST)) (IL:COMS (IL:* IL:|;;| "Stack analysis") (IL:VARIABLES *ENDING-DEPTH*) (IL:FUNCTIONS GATHER-TAGS GATHER-ROOTS REACH-TAGS STACK-ANALYZE STACK-ANALYZE-CODE)) (IL:COMS (IL:* IL:|;;| "The guts of assembly") (IL:FUNCTIONS ASSEMBLE ASSEMBLE-CODE)) (IL:COMS (IL:* IL:|;;| "Jump resolution") (IL:VARIABLES *JUMP-LIST*) ( IL:VARIABLES +JUMP-CHOICES+ +JUMP-RANGE-SIZE-MAP+ +JUMP-SIZES+) (IL:FUNCTIONS RESOLVE-JUMPS REDUCE-UNCERTAINTY SPLICE-IN-JUMPS COMPUTE-JUMP-SIZE) (IL:COMS (IL:* IL:\; "Debugging jump resolution" ) (IL:FUNCTIONS PRETTY-JUMPS))) (IL:COMS (IL:* IL:|;;| "Conversion to binary") (IL:VARIABLES *LOCAL-FN-FIXUPS*) (IL:FUNCTIONS CONVERT-TO-BINARY)) (IL:COMS (IL:* IL:|;;| "Setting up the debugging information") (IL:FUNCTIONS COMPUTE-DEBUGGING-INFO)) (IL:COMS (IL:* IL:|;;| "Fixup resolution and DCODE interning") (IL:FUNCTIONS START-PC-FROM-NT-COUNT START-PC-FROM-NT-COUNT-LOCAL ALLOCATE-CODE-BLOCK FIXUP-PTR FIXUP-PTR-NO-REF FIXUP-SYMBOL FIXUP-NTENTRY FIXUP-WORD INTERN-DCODE PERFORM-LOCAL-FN-FIXUPS)) (IL:* IL:|;;| "Arrange for the correct compiler to be used") (IL:PROP IL:FILETYPE IL:D-ASSEM) (IL:* IL:|;;| "Arrange for the proper makefile environment") (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:D-ASSEM) ( IL:DECLARE\: IL:EVAL@COMPILE IL:DONTCOPY (IL:FILES (IL:LOADCOMP) IL:LLBASIC IL:LLCODE IL:LLGC IL:MODARITH)))) (IL:FILESLOAD IL:D-ASSEM-PACKAGE) (CL::SET-PARSED-STRUCTURE (QUOTE DCODE) T (QUOTE (CL::PS DCODE MAKE-DCODE (FRAME-NAME NLOCALS NFREEVARS ARG-TYPE NUM-ARGS NAME-TABLE DEBUGGING-INFO CODE-ARRAY FN-FIXUPS SYM-FIXUPS LIT-FIXUPS TYPE-FIXUPS CLOSURE-P LOCAL-FN-FIXUPS INTERN-RESULT) CL::DATATYPE NIL NIL "DCODE-" (MAKE-DCODE) DCODE-P CL::DEFAULT-STRUCTURE-PRINTER COPY-DCODE NIL 0 NIL ((FRAME-NAME NIL T NIL (DCODE 0 IL:POINTER) DCODE-FRAME-NAME) (NLOCALS NIL T NIL (DCODE 2 IL:POINTER) DCODE-NLOCALS) (NFREEVARS NIL T NIL (DCODE 4 IL:POINTER) DCODE-NFREEVARS) (ARG-TYPE NIL T NIL (DCODE 6 IL:POINTER) DCODE-ARG-TYPE) (NUM-ARGS NIL T NIL (DCODE 8 IL:POINTER) DCODE-NUM-ARGS) (NAME-TABLE NIL T NIL (DCODE 10 IL:POINTER) DCODE-NAME-TABLE) (DEBUGGING-INFO NIL T NIL (DCODE 12 IL:POINTER) DCODE-DEBUGGING-INFO) (CODE-ARRAY NIL T NIL (DCODE 14 IL:POINTER) DCODE-CODE-ARRAY) (FN-FIXUPS NIL T NIL (DCODE 16 IL:POINTER) DCODE-FN-FIXUPS) (SYM-FIXUPS NIL T NIL (DCODE 18 IL:POINTER) DCODE-SYM-FIXUPS) (LIT-FIXUPS NIL T NIL ( DCODE 20 IL:POINTER) DCODE-LIT-FIXUPS) (TYPE-FIXUPS NIL T NIL (DCODE 22 IL:POINTER) DCODE-TYPE-FIXUPS) (CLOSURE-P NIL T NIL (DCODE 24 IL:POINTER) DCODE-CLOSURE-P) (LOCAL-FN-FIXUPS NIL T NIL (DCODE 26 IL:POINTER) DCODE-LOCAL-FN-FIXUPS) (INTERN-RESULT NIL T NIL (DCODE 28 IL:POINTER) DCODE-INTERN-RESULT) ) NIL NIL (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER 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 DCODE) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((DCODE 0 IL:POINTER) (DCODE 2 IL:POINTER) (DCODE 4 IL:POINTER) (DCODE 6 IL:POINTER) (DCODE 8 IL:POINTER) (DCODE 10 IL:POINTER) (DCODE 12 IL:POINTER) (DCODE 14 IL:POINTER) ( DCODE 16 IL:POINTER) (DCODE 18 IL:POINTER) (DCODE 20 IL:POINTER) (DCODE 22 IL:POINTER) (DCODE 24 IL:POINTER) (DCODE 26 IL:POINTER) (DCODE 28 IL:POINTER))) 30 (QUOTE CL::STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE DCODE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) DCODE-P :D8 (IL:L (0 CL::OBJECT)) @ÃNIL (5 DCODE) () (CL::ESTABLISH-PREDICATE (QUOTE DCODE)) DCODE-FRAME-NAME :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-NLOCALS :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-NFREEVARS :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-ARG-TYPE :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-NUM-ARGS :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-NAME-TABLE :D8 (IL:L (0 DCODE)) @É NIL (5 DCODE) () DCODE-DEBUGGING-INFO :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-CODE-ARRAY :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-FN-FIXUPS :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-SYM-FIXUPS :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-LIT-FIXUPS :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-TYPE-FIXUPS :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-CLOSURE-P :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-LOCAL-FN-FIXUPS :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () DCODE-INTERN-RESULT :D8 (IL:L (0 DCODE)) @ÉNIL (5 DCODE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE DCODE)) MAKE-DCODE :D8 (IL:L (0 IL:|-args-|)) Ñ>eiñðð.ð=Hk»ºKJó¢±4hY¼i½Hk_¿¾OdNó¢±7¿h]_¿i_¿Hk_¿_¿OdOó¢±5¿h__¿i_¿Hk_¿_¿OdOó¢±2¿h__ ¿i_"¿Hk_&¿_$¿O&dO$ó¢±/¿h_"_(¿i_*¿Hk_.¿_,¿O.dO,ó¢±,¿h_*_0¿i_2¿Hk_6¿_4¿O6dO4ó¢±)¿h_2_8¿i_:¿Hk_>¿_<¿O>dO<ó¢±&¿h_:_@¿i_B¿Hk_F¿_D¿OFdODó¢±#¿h_B_H¿i_J¿Hk_N¿_L¿ONdOLó¢± ¿h_J_P¿i_R¿Hk_V¿_T¿OVdOTó¢±¿h_R_X¿i_Z¿Hk_^¿_\¿O^dO\ó¢±¿h_Z_`¿i_b¿Hk_f¿_d¿OfdOdó¢±¿h_b_h¿i_j¿Hk_n¿_l¿OndOló¢±¿h_j_p¿i_r¿Hk_v¿_t¿OvdOtó¢±¿h_r_x¿`_z¿I•OzL¿M–OzO¿O–OzO¿O–OzO ¿O"–OzO(¿O*–OzO0 ¿O2–OzO8¿O:–OzO@¿OB–OzOH¿OJ–OzOP¿OR–OzOX¿OZ–OzO`¿Ob–OzOh¿Oj–OzOp¿Or•OzOxOzKdagð¦lÔ[±ý»kØa±ý½agð—OkØa±ýÂOlÔ_±ý®agð—OkØa±ýÅOlÔ_±ý¯agð—OkØa±ýÈOlÔ_±ý²agð—O&kØa±ýËO&lÔ_&±ýµagð—O.kØa±ýÎO.lÔ_.±ý¸agð—O6kØa±ýÑO6lÔ_6±ý»agð—O>kØa±ýÔO>lÔ_>±ý¾agð—OFkØa±ý×OFlÔ_F±ýÁagð—ONkØa±ýÚONlÔ_N±ýÄagð—OVkØa±ýÝOVlÔ_V±ýÇagð—O^kØa±ýàO^lÔ_^±ýÊagð—OfkØa±ýãOflÔ_f±ýÍagð—OnkØa±ýæOnlÔ_n±ýÐagð—OvkØa±ýéOvlÔ_v±ýÓNIL (955 :INTERN-RESULT 929 :LOCAL-FN-FIXUPS 903 :CLOSURE-P 877 :TYPE-FIXUPS 851 :LIT-FIXUPS 825 :SYM-FIXUPS 799 :FN-FIXUPS 773 :CODE-ARRAY 747 :DEBUGGING-INFO 721 :NAME-TABLE 695 :NUM-ARGS 669 :ARG-TYPE 643 :NFREEVARS 617 :NLOCALS 596 :FRAME-NAME 435 |DCODETYPE#|) () COPY-DCODE :D8 (IL:L (0 DCODE)) Œ@HÃ²h`H@ÉH@ÉH@ÉH@ÉH@ÉH@É H@ÉH@ÉH@ÉH@ÉH@ÉH@ÉH@ÉH@ÉH@ÉHigHgh b±ÿx(132 IL:CHECK-TYPE-FAIL) (125 DCODE 119 DCODE 17 |DCODETYPE#| 9 DCODE) () (CL::SET-PARSED-STRUCTURE (QUOTE DJUMP) T (QUOTE (CL::PS DJUMP MAKE-DJUMP (KIND TAG PTR MIN-PC MIN-SIZE FORWARD-P SIZE-UNCERTAINTY) CL::DATATYPE NIL NIL "DJUMP-" (MAKE-DJUMP) DJUMP-P CL::DEFAULT-STRUCTURE-PRINTER COPY-DJUMP NIL 0 NIL ((KIND NIL T NIL (DJUMP 0 IL:POINTER) DJUMP-KIND) ( TAG NIL T NIL (DJUMP 2 IL:POINTER) DJUMP-TAG) (PTR NIL T NIL (DJUMP 4 IL:POINTER) DJUMP-PTR) (MIN-PC NIL T NIL (DJUMP 6 IL:POINTER) DJUMP-MIN-PC) (MIN-SIZE NIL T NIL (DJUMP 8 IL:POINTER) DJUMP-MIN-SIZE) (FORWARD-P NIL T NIL (DJUMP 10 IL:POINTER) DJUMP-FORWARD-P) (SIZE-UNCERTAINTY NIL T NIL (DJUMP 12 IL:POINTER) DJUMP-SIZE-UNCERTAINTY)) NIL NIL (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 DJUMP) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((DJUMP 0 IL:POINTER) (DJUMP 2 IL:POINTER) (DJUMP 4 IL:POINTER ) (DJUMP 6 IL:POINTER) (DJUMP 8 IL:POINTER) (DJUMP 10 IL:POINTER) (DJUMP 12 IL:POINTER))) 14 (QUOTE CL::STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE DJUMP) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) DJUMP-P :D8 (IL:L (0 CL::OBJECT)) @ÃNIL (5 DJUMP) () (CL::ESTABLISH-PREDICATE (QUOTE DJUMP)) DJUMP-KIND :D8 (IL:L (0 DJUMP)) @ÉNIL (5 DJUMP) () DJUMP-TAG :D8 (IL:L (0 DJUMP)) @ÉNIL (5 DJUMP) () DJUMP-PTR :D8 (IL:L (0 DJUMP)) @ÉNIL (5 DJUMP) () DJUMP-MIN-PC :D8 (IL:L (0 DJUMP)) @ÉNIL (5 DJUMP) () DJUMP-MIN-SIZE :D8 (IL:L (0 DJUMP)) @ÉNIL (5 DJUMP) () DJUMP-FORWARD-P :D8 (IL:L (0 DJUMP)) @É NIL (5 DJUMP) () DJUMP-SIZE-UNCERTAINTY :D8 (IL:L (0 DJUMP)) @ÉNIL (5 DJUMP) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE DJUMP)) MAKE-DJUMP :D8 (IL:L (0 IL:|-args-|)) ÃeiñÐHk»ºKJó¢±ühY¼i½Hk_¿¾OdNó¢±ÿ¿h]_¿i_¿Hk_¿_¿OdOó¢±ý¿h__¿i_¿Hk_¿_¿OdOó¢±ú¿h__ ¿i_"¿Hk_&¿_$¿O&dO$ó¢±÷¿h_"_(¿i_*¿Hk_.¿_,¿O.dO,ó¢±ô¿h_*_0¿i_2¿Hk_6¿_4¿O6dO4ó¢±ñ¿h_2_8¿`_:¿I•O:L¿M–O:O¿O–O:O¿O–O:O ¿O"–O:O(¿O*–O:O0 ¿O2•O:O8O:Kdagð¦lÔ[±þókØa±þõagð—OkØa±þúOlÔ_±þæagð—OkØa±þýOlÔ_±þçagð—OkØa±ÿOlÔ_±þêagð—O&kØa±ÿO&lÔ_&±þíagð—O.kØa±ÿO.lÔ_.±þðagð—O6kØa±ÿ O6lÔ_6±þóNIL (429 :SIZE-UNCERTAINTY 403 :FORWARD-P 377 :MIN-SIZE 351 :MIN-PC 325 :PTR 299 :TAG 278 :KIND 197 |DJUMPTYPE#|) () COPY-DJUMP :D8 (IL:L (0 DJUMP)) [@HÃ²8`H@ÉH@ÉH@ÉH@ÉH@ÉH@É H@ÉHigHgh b°¨(84 IL:CHECK-TYPE-FAIL) (77 DJUMP 71 DJUMP 17 |DJUMPTYPE#| 9 DJUMP) () (CL::SET-PARSED-STRUCTURE (QUOTE DLAMBDA) T (QUOTE (CL::PS DLAMBDA NIL (REQUIRED OPTIONAL REST KEY ALLOW-OTHER-KEYS OTHERS NAME ARG-TYPE BLIP CLOSED-OVER NON-LOCAL BODY LOCAL-FUNCTIONS) CL::DATATYPE NIL NIL "DLAMBDA-" ((MAKE-DLAMBDA (REQUIRED OPTIONAL REST KEY ALLOW-OTHER-KEYS OTHERS NAME ARG-TYPE BLIP CLOSED-OVER NON-LOCAL BODY LOCAL-FUNCTIONS))) DLAMBDA-P CL::DEFAULT-STRUCTURE-PRINTER COPY-DLAMBDA NIL 0 NIL ((REQUIRED NIL T NIL (DLAMBDA 0 IL:POINTER) DLAMBDA-REQUIRED) (OPTIONAL NIL T NIL (DLAMBDA 2 IL:POINTER) DLAMBDA-OPTIONAL) (REST NIL T NIL (DLAMBDA 4 IL:POINTER) DLAMBDA-REST) (KEY NIL T NIL (DLAMBDA 6 IL:POINTER) DLAMBDA-KEY) (ALLOW-OTHER-KEYS NIL T NIL (DLAMBDA 8 IL:POINTER) DLAMBDA-ALLOW-OTHER-KEYS) (OTHERS NIL T NIL (DLAMBDA 10 IL:POINTER) DLAMBDA-OTHERS) (NAME NIL T NIL ( DLAMBDA 12 IL:POINTER) DLAMBDA-NAME) (ARG-TYPE NIL T NIL (DLAMBDA 14 IL:POINTER) DLAMBDA-ARG-TYPE) ( BLIP NIL T NIL (DLAMBDA 16 IL:POINTER) DLAMBDA-BLIP) (CLOSED-OVER NIL T NIL (DLAMBDA 18 IL:POINTER) DLAMBDA-CLOSED-OVER) (NON-LOCAL NIL T NIL (DLAMBDA 20 IL:POINTER) DLAMBDA-NON-LOCAL) (BODY NIL T NIL ( DLAMBDA 22 IL:POINTER) DLAMBDA-BODY) (LOCAL-FUNCTIONS NIL T NIL (DLAMBDA 24 IL:POINTER) DLAMBDA-LOCAL-FUNCTIONS)) NIL NIL (IL:POINTER IL:POINTER IL:POINTER IL:POINTER 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 DLAMBDA) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) ( QUOTE ((DLAMBDA 0 IL:POINTER) (DLAMBDA 2 IL:POINTER) (DLAMBDA 4 IL:POINTER) (DLAMBDA 6 IL:POINTER) ( DLAMBDA 8 IL:POINTER) (DLAMBDA 10 IL:POINTER) (DLAMBDA 12 IL:POINTER) (DLAMBDA 14 IL:POINTER) (DLAMBDA 16 IL:POINTER) (DLAMBDA 18 IL:POINTER) (DLAMBDA 20 IL:POINTER) (DLAMBDA 22 IL:POINTER) (DLAMBDA 24 IL:POINTER))) 26 (QUOTE CL::STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE DLAMBDA) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) DLAMBDA-P :D8 (IL:L (0 CL::OBJECT)) @ÃNIL (5 DLAMBDA) () (CL::ESTABLISH-PREDICATE (QUOTE DLAMBDA)) DLAMBDA-REQUIRED :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () DLAMBDA-OPTIONAL :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () DLAMBDA-REST :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () DLAMBDA-KEY :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () DLAMBDA-ALLOW-OTHER-KEYS :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () DLAMBDA-OTHERS :D8 (IL:L (0 DLAMBDA)) @É NIL (5 DLAMBDA) () DLAMBDA-NAME :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () DLAMBDA-ARG-TYPE :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () DLAMBDA-BLIP :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () DLAMBDA-CLOSED-OVER :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () DLAMBDA-NON-LOCAL :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () DLAMBDA-BODY :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () DLAMBDA-LOCAL-FUNCTIONS :D8 (IL:L (0 DLAMBDA)) @ÉNIL (5 DLAMBDA) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE DLAMBDA)) MAKE-DLAMBDA :D8 (IL:L (12 LOCAL-FUNCTIONS 11 BODY 10 NON-LOCAL 9 CLOSED-OVER 8 BLIP 7 ARG-TYPE 6 NAME 5 OTHERS 4 ALLOW-OTHER-KEYS 3 KEY 2 REST 1 OPTIONAL 0 REQUIRED)) F `H@HAHBHCHDHE HFHGHGHGHGHGHGHNIL (4 |DLAMBDATYPE#|) () COPY-DLAMBDA :D8 (IL:L (0 DLAMBDA)) @HÃ²\`H@ÉH@ÉH@ÉH@ÉH@ÉH@É H@ÉH@ÉH@ÉH@ÉH@ÉH@ÉH@ÉHigHgh b°„(120 IL:CHECK-TYPE-FAIL) (113 DLAMBDA 107 DLAMBDA 17 |DLAMBDATYPE#| 9 DLAMBDA) () (CL::SET-PARSED-STRUCTURE (QUOTE DTAG) T (QUOTE (CL::PS DTAG MAKE-DTAG (LEVEL STACK-DEPTH PTR PC MIN-PC PC-UNCERTAINTY REACHABLE?) CL::DATATYPE NIL NIL "DTAG-" (MAKE-DTAG) DTAG-P CL::DEFAULT-STRUCTURE-PRINTER COPY-DTAG NIL 0 NIL ((LEVEL NIL T NIL (DTAG 0 IL:POINTER) DTAG-LEVEL) ( STACK-DEPTH NIL T NIL (DTAG 2 IL:POINTER) DTAG-STACK-DEPTH) (PTR NIL T NIL (DTAG 4 IL:POINTER) DTAG-PTR) (PC NIL T NIL (DTAG 6 IL:POINTER) DTAG-PC) (MIN-PC NIL T NIL (DTAG 8 IL:POINTER) DTAG-MIN-PC ) (PC-UNCERTAINTY NIL T NIL (DTAG 10 IL:POINTER) DTAG-PC-UNCERTAINTY) (REACHABLE? NIL T NIL (DTAG 12 IL:POINTER) DTAG-REACHABLE?)) NIL NIL (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 DTAG) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((DTAG 0 IL:POINTER) (DTAG 2 IL:POINTER) (DTAG 4 IL:POINTER) (DTAG 6 IL:POINTER) (DTAG 8 IL:POINTER) (DTAG 10 IL:POINTER) (DTAG 12 IL:POINTER))) 14 (QUOTE CL::STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE DTAG) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) DTAG-P :D8 (IL:L (0 CL::OBJECT)) @ÃNIL (5 DTAG) () (CL::ESTABLISH-PREDICATE (QUOTE DTAG)) DTAG-LEVEL :D8 (IL:L (0 DTAG)) @ÉNIL (5 DTAG) () DTAG-STACK-DEPTH :D8 (IL:L (0 DTAG)) @ÉNIL (5 DTAG) () DTAG-PTR :D8 (IL:L (0 DTAG)) @ÉNIL (5 DTAG) () DTAG-PC :D8 (IL:L (0 DTAG)) @ÉNIL (5 DTAG) () DTAG-MIN-PC :D8 (IL:L (0 DTAG)) @ÉNIL (5 DTAG) () DTAG-PC-UNCERTAINTY :D8 (IL:L (0 DTAG)) @É NIL (5 DTAG) () DTAG-REACHABLE? :D8 (IL:L (0 DTAG)) @ÉNIL (5 DTAG) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE DTAG)) MAKE-DTAG :D8 (IL:L (0 IL:|-args-|)) ÃeiñÐHk»ºKJó¢±ühY¼i½Hk_¿¾OdNó¢±ÿ¿h]_¿i_¿Hk_¿_¿OdOó¢±ý¿h__¿i_¿Hk_¿_¿OdOó¢±ú¿h__ ¿i_"¿Hk_&¿_$¿O&dO$ó¢±÷¿h_"_(¿i_*¿Hk_.¿_,¿O.dO,ó¢±ô¿h_*_0¿i_2¿Hk_6¿_4¿O6dO4ó¢±ñ¿h_2_8¿`_:¿I•O:L¿M–O:O¿O–O:O¿O–O:O ¿O"–O:O(¿O*–O:O0 ¿O2•O:O8O:Kdagð¦lÔ[±þókØa±þõagð—OkØa±þúOlÔ_±þæagð—OkØa±þýOlÔ_±þçagð—OkØa±ÿOlÔ_±þêagð—O&kØa±ÿO&lÔ_&±þíagð—O.kØa±ÿO.lÔ_.±þðagð—O6kØa±ÿ O6lÔ_6±þóNIL (429 :REACHABLE? 403 :PC-UNCERTAINTY 377 :MIN-PC 351 :PC 325 :PTR 299 :STACK-DEPTH 278 :LEVEL 197 |DTAGTYPE#|) () COPY-DTAG :D8 (IL:L (0 DTAG)) [@HÃ²8`H@ÉH@ÉH@ÉH@ÉH@ÉH@É H@ÉHigHgh b°¨(84 IL:CHECK-TYPE-FAIL) (77 DTAG 71 DTAG 17 |DTAGTYPE#| 9 DTAG) () (CL::SET-PARSED-STRUCTURE (QUOTE DVAR) T (QUOTE (CL::PS DVAR MAKE-DVAR (KIND LEVEL SLOT NAME) CL::DATATYPE NIL NIL "DVAR-" (MAKE-DVAR) DVAR-P CL::DEFAULT-STRUCTURE-PRINTER COPY-DVAR NIL 0 NIL (( KIND NIL T NIL (DVAR 0 IL:POINTER) DVAR-KIND) (LEVEL NIL T NIL (DVAR 2 IL:POINTER) DVAR-LEVEL) (SLOT NIL T NIL (DVAR 4 IL:POINTER) DVAR-SLOT) (NAME NIL T NIL (DVAR 6 IL:POINTER) DVAR-NAME)) NIL NIL ( IL:POINTER IL:POINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE DVAR) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) ( QUOTE ((DVAR 0 IL:POINTER) (DVAR 2 IL:POINTER) (DVAR 4 IL:POINTER) (DVAR 6 IL:POINTER))) 8 (QUOTE CL::STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE DVAR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) DVAR-P :D8 (IL:L (0 CL::OBJECT)) @ÃNIL (5 DVAR) () (CL::ESTABLISH-PREDICATE (QUOTE DVAR)) DVAR-KIND :D8 (IL:L (0 DVAR)) @ÉNIL (5 DVAR) () DVAR-LEVEL :D8 (IL:L (0 DVAR)) @ÉNIL (5 DVAR) () DVAR-SLOT :D8 (IL:L (0 DVAR)) @ÉNIL (5 DVAR) () DVAR-NAME :D8 (IL:L (0 DVAR)) @ÉNIL (5 DVAR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE DVAR)) MAKE-DVAR :D8 (IL:L (0 IL:|-args-|)) eiñHk»ºKJó¢±‡hY¼i½Hk_¿¾OdNó¢±Š¿h]_¿i_¿Hk_¿_¿OdOó¢±ˆ¿h__¿i_¿Hk_¿_¿OdOó¢±…¿h__ ¿`_"¿I•O"L¿M–O"O¿O–O"O¿O•O"O O"Kdagð¦lÔ[±ÿhkØa±ÿjagð—OkØa±ÿoOlÔ_±ÿ[agð—OkØa±ÿrOlÔ_±ÿ\agð—OkØa±ÿuOlÔ_±ÿ_NIL (234 :NAME 208 :SLOT 182 :LEVEL 161 :KIND 110 |DVARTYPE#|) () COPY-DVAR :D8 (IL:L (0 DVAR)) I@HÃ²&`H@ÉH@ÉH@ÉH@ÉHigHgh b°º(66 IL:CHECK-TYPE-FAIL) (59 DVAR 53 DVAR 17 |DVARTYPE#| 9 DVAR) () RELEASE-DCODE :D8 (IL:L (0 DCODE)) 2@É@h¿Hd Y ¿I ¿HX°ç(42 RELEASE-DCODE 32 RELEASE-DCODE) (13 DCODE 5 DCODE) () CREATE-HUNK :D8 (IL:L (3 POP-P 2 PREV-SLOT 1 MY-SLOT 0 HUNK-SIZE)) Fgg@ hgB´oB o AC (67 EMIT-BYTE-LIST 59 APPEND 54 STORE-VAR 47 APPEND 37 CHOOSE-OP 15 TYPE-NAME-FROM-SIZE) (23 IL:CREATECELL 9 :TYPE 4 IL:SICX) ( 42 (IL:RPLPTR.N 0) 31 (IL:PVAR . IL:PVARX)) TYPE-NAME-FROM-SIZE :D8 (IL:L (0 LEN) IL:F 2 IL:\\HUNK.PTRSIZES) 0gRHµo@ ¿h ¹@Ió¢I°òHX°Ý(31 IL:PACK* 23 ERROR) (4 \\PTRHUNK) ( 17 "Can't make a hunk that big: ~S") COPY-LAP-FN :D8 (IL:L (0 FN)) @h (7 COPY-LAP-CODE) NIL () COPY-LAP-CODEA0001 :D8 (IL:L (0 ARGS)) ¤@´"À@@b¿ ºH”IJ&¹„JhY¸@µH@b¿_¿@@b¿_¿O »H”IK&¹„KhY¸Ogð²8O_¿h^]¼OµN°/_ O ¼N”ML&½„Lh]¾O_°×O _¿H–IO&¹°ƒO±ÿ{(145 COPY-TREE 117 COPY-LAP-CODE 109 COPY-TREE 61 COPY-TREE 17 COPY-TREE) (81 :LOCAL-FUNCTIONS) () COPY-LAP-CODE :D8 (IL:L (0 CODE)) É@QHµI\]dgð™¿L ±—gð²gLkgL °sMdgð²¿gL L °Ogð²ALd²;dgð²/¿ggL L L …L »Jµ KhZ¹HX±ÿEK&º°÷(179 COPY-TREE 170 COPY-TREE 160 COPY-LAP-CODE 150 COPY-TREE 98 COPY-LAP-CODE 90 COPY-TREE 62 COPY-LAP-CODE 28 COPY-LIST) (140 :LAMBDA 135 :CALL 126 :LAMBDA 107 :CALL 82 :CLOSE 73 :CLOSE 53 COPY-LAP-CODEA0001 44 :LAMBDA 36 :LAMBDA 19 :CONST) () |expand-MAXF| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ©@ñ H¹HºA»IK \½L^_¿N__¿O__¿O_¿gM_"¿O_ ¿h__¿O"“O ³"OOgOJhh OhO"O h_¿O˜OO&_¿ˆOh__¿O"_"¿O _ ¿°¬(113 APPEND 27 IL:\\MVLIST 22 GET-SETF-METHOD) (98 MAX 66 LET*) () (IL:SETF-MACRO-FUNCTION (QUOTE MAXF) (QUOTE |expand-MAXF|)) (XCL::SET-CONSTANTP (QUOTE +IVAR-CODE+) NIL) (IL:SETQ +IVAR-CODE+ 0) (PROCLAIM (QUOTE (SI::CONSTANT +IVAR-CODE+))) (IL:SET-DOCUMENTATION (QUOTE +IVAR-CODE+) (QUOTE VARIABLE) "Code in name-table for IVARs") (XCL::SET-CONSTANTP (QUOTE +PVAR-CODE+) NIL) (IL:SETQ +PVAR-CODE+ 2) (PROCLAIM (QUOTE (SI::CONSTANT +PVAR-CODE+))) (IL:SET-DOCUMENTATION (QUOTE +PVAR-CODE+) (QUOTE VARIABLE) "Code in name-table for PVARs") (XCL::SET-CONSTANTP (QUOTE +FVAR-CODE+) NIL) (IL:SETQ +FVAR-CODE+ 3) (PROCLAIM (QUOTE (SI::CONSTANT +FVAR-CODE+))) (IL:SET-DOCUMENTATION (QUOTE +FVAR-CODE+) (QUOTE VARIABLE) "Code in name-table for FVARs") (XCL::SET-CONSTANTP (QUOTE +LAMBDA-SPREAD+) NIL) (IL:SETQ +LAMBDA-SPREAD+ 0) (PROCLAIM (QUOTE (SI::CONSTANT +LAMBDA-SPREAD+))) (IL:SET-DOCUMENTATION (QUOTE +LAMBDA-SPREAD+) (QUOTE VARIABLE) "ARGTYPE value for lambda spread functions") (XCL::SET-CONSTANTP (QUOTE +NLAMBDA-SPREAD+) NIL) (IL:SETQ +NLAMBDA-SPREAD+ 1) (PROCLAIM (QUOTE (SI::CONSTANT +NLAMBDA-SPREAD+))) (IL:SET-DOCUMENTATION (QUOTE +NLAMBDA-SPREAD+) (QUOTE VARIABLE) "ARGTYPE value for nlambda spread functions") (XCL::SET-CONSTANTP (QUOTE +LAMBDA-NO-SPREAD+) NIL) (IL:SETQ +LAMBDA-NO-SPREAD+ 2) (PROCLAIM (QUOTE (SI::CONSTANT +LAMBDA-NO-SPREAD+))) (IL:SET-DOCUMENTATION (QUOTE +LAMBDA-NO-SPREAD+) (QUOTE VARIABLE) "ARGTYPE value for lambda no-spread functions") (XCL::SET-CONSTANTP (QUOTE +NLAMBDA-NO-SPREAD+) NIL) (IL:SETQ +NLAMBDA-NO-SPREAD+ 3) (PROCLAIM (QUOTE (SI::CONSTANT +NLAMBDA-NO-SPREAD+))) (IL:SET-DOCUMENTATION (QUOTE +NLAMBDA-NO-SPREAD+) (QUOTE VARIABLE) "ARGTYPE value for nlambda no-spread functions") (XCL::SET-CONSTANTP (QUOTE +CONSTANT-OPCODES+) NIL) (IL:SETQ +CONSTANT-OPCODES+ (QUOTE ((0 . IL:\'0) (1 . IL:\'1) (NIL . IL:\'NIL) (T . IL:\'T)))) (PROCLAIM (QUOTE (SI::CONSTANT +CONSTANT-OPCODES+))) (IL:SET-DOCUMENTATION (QUOTE +CONSTANT-OPCODES+) (QUOTE VARIABLE) "An AList of all constants with dedicated opcodes.") (PROCLAIM (QUOTE (SPECIAL *BYTES*))) (OR (BOUNDP (QUOTE *BYTES*)) (SETQ *BYTES* NIL)) (IL:SET-DOCUMENTATION (QUOTE *BYTES*) (QUOTE VARIABLE) "The data-structure holding the bytes of the current function. Use (start-bytes) to create an empty one, (emit-byte) or (emit-op) to add more bytes on the end, and (end-bytes) to close it off and get an array of the bytes." ) (PROCLAIM (QUOTE (SPECIAL *BYTE-COUNT*))) (OR (BOUNDP (QUOTE *BYTE-COUNT*)) (SETQ *BYTE-COUNT* 0)) (IL:SET-DOCUMENTATION (QUOTE *BYTE-COUNT*) (QUOTE VARIABLE) "The number of bytes put on *bytes* so far.") START-BYTES :D8 NIL hNIL NIL () EMIT-BYTE :D8 (IL:L (0 BYTE) IL:F 1 *BYTES* IL:F 2 *BYTE-COUNT* IL:F 3 COMPILER::*ENVIRONMENT* IL:F 4 *JUMP-LIST*) @d¢±€Hdgð²¿@R@Tcgð³'Hgð³Hgð³HgðªHdgð²<¿@Qcg@g@gQgR TcR@oÔcgð²gQc@QcjQcRlÔcHgðªHdgð²Q¿@QcgSÉ²RkÔckÔc¿jQc¿°gSÉ›RkÔc¿jQc¿jQcRlÔcgð²@QcjQcRlÔcHgð³HgðªHdgð²?¿@QcgSÉ²jQcjQcjQcRlÔcjQcjQcRlÔcgð²rQcgSÉ”QcgSÉ”Qc¿g@hQcgSÉ–jQc¿ŽgSÉ•jQc¿jQcRkÔcHgð²wgSÉ²1Qcdcdcg@hQcjQcjQcjQcRkÔcgSÉ´O8_@¿OD_>¿O@WLOD_<¿O>O<¿WLkÔcL¿OD µ‚±ýh_6WNgggOHgOFgO6 _2¿O8˜O:O2&_:¿ˆO2h_:_8¿OHkÔ_H¿O4±ÿj(701 CL::PUTHASH 696 MAKE-DVAR 635 DIGEST-CODE 540 INTERN-TAG 428 INTERN-TAG 395 LENGTH 373 LENGTH 327 MAPCAR 297 MAPCAR 227 DETERMINE-LOCAL-FN-LEXICAL-LEVEL 203 GETHASH 179 DLAMBDA-FROM-LAMBDA 151 INTERN-VAR 101 DIGEST-CODE 49 INTERN-VAR) (686 :NAME 679 :LEVEL 672 :SLOT 667 :CLOSED 662 :KIND 557 :CLOSE 525 :PUSH-TAG 515 :NTJUMP 505 :NFJUMP 495 :TJUMP 485 :FJUMP 475 :JUMP 460 DTAG 447 DTAG 414 :TAG 358 :DUNBIND 348 :UNBIND 317 DIGEST-CODEA0003 288 DIGEST-CODEA0003 275 :BIND 215 DVAR 190 DLAMBDA 168 :LAMBDA 136 :FN 128 :S 119 :F 110 :L 87 :LAMBDA 63 :CALL 35 :VAR_ 25 :VAR) () STORE-DIGEST-INFO :D8 (IL:F 14 *PVAR-COUNT* IL:F 15 *DCODE* IL:F 16 *BOUND-SPECIALS* IL:F 17 *FREE-VARS*) ~W"g gg ¡ H ¹W ºWl€óžoWl€¿JdlwóŸ¿oJlw¿JIÔlwÕWIÔl€Õjj¼»KLó²HH¸mÿ¿IkÕ¹LkÔ¼°ãHIWÔkÕ Oµ W ±»_¿W¾lOOÉhNÉ ½NM ¿OO¿O_¿OmÿÔ_¿°¨d_¿W_¿OÉ_dgð”¿l°gð´j°oOoOÉOÉhOÉ _¿OO ¿µ‘WWWII(306 IL:ECASE-FAIL 167 NREVERSE 110 MAX 90 COMPILER:ASSEMBLER-ERROR 69 COMPILER:ASSEMBLER-ERROR 48 LIST-LENGTH 40 LIST-LENGTH 31 SORT 26 SYMBOL-FUNCTION 11 SYMBOL-FUNCTION) (375 DCODE 364 DCODE 348 DCODE 335 DCODE 322 DVAR 313 DVAR 283 :ARGUMENT 271 :LOCAL 261 DVAR 223 DVAR 211 DCODE 201 DCODE 189 DVAR 129 DVAR 21 CDR 16 :KEY 6 <) ( 301 (:LOCAL :ARGUMENT) 294 (DVAR-KIND DVAR) 82 "Too many bound special variables: ~D. Limit is ~D." 60 "Too many bound variables: ~D. Limit is ~D.") DVAR-FROM-LAP-VAR :D8 (IL:L (0 LAP-VAR) IL:F 0 *DVAR-ENV*) @d’P µ o@ (25 ERROR 12 IL:GETHASH) NIL ( 19 "The LAP var ~S should have been interned by now.") LAP-VAR-ID :D8 (IL:L (0 VAR)) @d’NIL NIL () |definline-LAP-VAR-ID| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @oHNIL NIL ( 9 (LAMBDA (VAR) (BLOCK LAP-VAR-ID (IF (CONSP VAR) (THIRD VAR) VAR)))) (IL:PUTPROP (QUOTE LAP-VAR-ID) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-LAP-VAR-ID|) (GET (QUOTE LAP-VAR-ID) (QUOTE COMPILER:OPTIMIZER-LIST)))) INSTALL-LOCAL :D8 (IL:L (1 CLOSED-OVER 0 VAR) IL:F 1 *PVAR-COUNT*) ,@d²(AgQHdÉgð–¿QkÔcH(15 INSTALL-VAR) (32 :LOCAL 25 DVAR 9 :LOCAL) () INSTALL-VAR :D8 (IL:L (3 SLOT 2 KIND 1 CLOSED-OVER 0 VAR) IL:F 6 *HUNK-SIZE* IL:F 7 *DVAR-ENV* IL:F 8 *BOUND-SPECIALS* IL:F 9 *FREE-VARS* IL:F 10 *LEVEL*) ±@d¢±¬QH¹HZ»J\Agg ²4LWgggVgWgK VkÔc¿LWgIgð•g€BgCgK ½Idgð˜¿MWc¿Žgð—MkWcM(139 CL::PUTHASH 134 MAKE-DVAR 86 CL::PUTHASH 81 MAKE-DVAR 41 MEMBER 36 SYMBOL-FUNCTION) (163 :F 147 :S 127 :NAME 121 :SLOT 114 :FREE 107 :F 101 :KIND 74 :NAME 67 :LEVEL 61 :SLOT 56 :CLOSED 51 :KIND 31 LAP-VAR-ID 26 :KEY) () INTERN-VAR :D8 (IL:L (0 VAR) IL:F 3 *DVAR-ENV* IL:F 4 *FREE-VARS*) X@d²@dgð³IS !Hµ @h dÉgðœ¿HTZkÔ¹JIHS µ o@ (85 ERROR 72 IL:GETHASH 36 INSTALL-LOCAL 23 GETHASH) (50 :FREE 43 DVAR 11 :G) ( 79 "Unknown LAP variable ID: ~S") INTERN-TAG :D8 (IL:L (0 ID) IL:F 0 *DTAG-ENV*) @P µ@P(20 CL::PUTHASH 15 MAKE-DTAG 6 IL:GETHASH) NIL () EASY-ENTRY-P :D8 (IL:L (0 DLAMBDA)) R@dÉ²¿@Égð´@Éhð´@ÉHµiYoÌ´I‘hHX°åNIL (45 DLAMBDA 33 DLAMBDA 24 :IGNORED 17 DLAMBDA 6 DLAMBDA) ( 65 ((:CONST NIL))) GENERATE-EASY-ENTRY :D8 (IL:L (0 DLAMBDA) IL:F 4 *DCODE* IL:F 5 *HUNK-SIZE* IL:F 6 *HUNK-MAP* IL:F 7 *LEVEL*) @dÉ²¿UVWkó´jh¿@É@É1HµmK jHµr@dÉœ¿g ¿@ÉµjTHTHjÿ¦Hdkÿ²v¿@É @É Ô°f¹K”JI&º„IhZ»HX°ZÉgð²)oI gJÉàh ¿H¸IkÔ¹±ÿMlÿ’mÿ†Hlÿ´kYI(233 EMIT-BYTE-LIST 228 APPEND 206 CHOOSE-OP 155 LENGTH 142 LENGTH 88 EMIT-BYTE 58 APPEND 28 CREATE-HUNK) (217 DVAR 211 IL:RPLPTR.N 192 :CLOSED 185 DVAR 148 DLAMBDA 135 DLAMBDA 118 DCODE 109 DCODE 95 DLAMBDA 83 IL:POP 74 DLAMBDA 43 DLAMBDA 35 DLAMBDA 6 DLAMBDA) ( 200 (IL:IVAR . IL:IVARX)) GENERATE-HARD-ENTRY :D8 (IL:L (0 DLAMBDA) IL:F 5 *HUNK-MAP* IL:F 6 *DCODE* IL:F 7 *HUNK-SIZE* IL:F 8 *LEVEL*) ø@É @É @É²WUWkó´ji¿jHÿ²)@dÉ²¿@dÉgð²¿@É¦@ ¿@ÉjJµ*@HI@HIVlVmÿmÿ\Égð²:oU oK gLÉào ¿JºKkÔ»°„(236 EMIT-BYTE-LIST 231 APPEND 205 CHOOSE-OP 194 CHOOSE-OP 141 GENERATE-KEY 133 GENERATE-OPT-AND-REST 107 GENERATE-ARG-CHECK 56 CREATE-HUNK 25 LENGTH 12 LENGTH) (216 DVAR 210 IL:RPLPTR.N 178 :CLOSED 171 DVAR 157 DCODE 147 DCODE 114 DLAMBDA 98 DLAMBDA 88 :IGNORED 81 DLAMBDA 69 DLAMBDA 34 DLAMBDA 18 DLAMBDA 5 DLAMBDA) ( 224 (IL:POP) 199 (IL:IVAR . IL:IVARX) 186 (IL:PVAR . IL:PVARX)) GENERATE-ARG-CHECK :D8 (IL:L (0 DLAMBDA)) -@É 1@Éhð´)@Éhð´@Éhð´H@É Ô¹º»I³YgHkÕ ggJhH ggoggJhh gHkÕ ggKhgI ggJhgKhH I goggJhh (298 EMIT-BYTE-LIST 292 APPEND 284 APPEND 276 APPEND 242 PUSH-INTEGER 236 PUSH-INTEGER 207 PUSH-INTEGER 182 PUSH-INTEGER 168 EMIT-BYTE-LIST 162 APPEND 155 APPEND 115 PUSH-INTEGER 95 PUSH-INTEGER 78 MAKE-DTAG 72 MAKE-DTAG 65 LENGTH 12 LENGTH) (262 :TAG 257 IL:POP 247 IL:FN2 226 :TAG 217 :FJUMP 212 IL:GREATERP 201 IL:MYARGCOUNT 192 :FJUMP 187 IL:GREATERP 174 IL:MYARGCOUNT 140 :TAG 135 IL:POP 125 IL:FN2 120 IL:\'NIL 105 :TJUMP 100 IL:GREATERP 87 IL:MYARGCOUNT 58 DLAMBDA 45 DLAMBDA 33 DLAMBDA 21 DLAMBDA 5 DLAMBDA) ( 252 (:FN SI::ARGUMENT-ERROR) 130 (:FN SI::ARGUMENT-ERROR)) GENERATE-KEY :D8 (IL:L (2 NUM-OPTIONAL 1 NUM-REQUIRED 0 DLAMBDA)) ß kAÔBÔ‘ @É±Åd__¿O_¾O]¼M»º¹ggOhgHgIhh ¿Lk ¿L ¿Ni K´gKi gJhgIhgNi K´gKi gJhh ¿µ‚±ÿ:h(210 EMIT-BYTE-LIST 205 APPEND 197 APPEND 180 STORE-VAR 165 STORE-VAR 134 STORE-VAR 119 STORE-VAR 111 ASSEMBLE 104 STACK-ANALYZE 96 EMIT-BYTE-LIST 53 MAKE-DTAG 48 MAKE-DTAG) (186 :TAG 173 IL:\'T 158 IL:ARG0 149 :TAG 140 :JUMP 127 IL:\'NIL 81 :NTJUMP 75 IL:FINDKEY 65 :SYM 60 IL:ACONST 13 DLAMBDA) () (IL:SET-DOCUMENTATION (QUOTE GENERATE-KEY) (QUOTE FUNCTION) "Generate code to check for and default the keyword arguments.") GENERATE-OPT-AND-REST :D8 (IL:L (2 NUM-OPTIONAL 1 NUM-REQUIRED 0 DLAMBDA)) êjBÿ’±×gjAÿhð´A o ¿@ÉAkÔO_¿O¢±™_¿O^½N\»LºO´ogggOhO gMi J´gJi O´o ¿MJOKI¹O_¿OkÔ_¿±ÿf@É²>@Égð³.gggkAÔBÔ@Éi ¿jBÿ’±ºgHh I °]d_¿gOh ¿Ok ¿O ¿Oi ¿O²gOi ¿µ¤@É²,@Égð³g@Éi ¿gHh h(485 EMIT-BYTE 470 EMIT-BYTE-LIST 464 STORE-VAR 414 EMIT-BYTE-LIST 408 STORE-VAR 386 EMIT-BYTE-LIST 381 STORE-VAR 371 ASSEMBLE 360 STACK-ANALYZE 348 EMIT-BYTE 323 NREVERSE 317 EMIT-BYTE 295 EMIT-BYTE-LIST 286 STORE-VAR 197 EMIT-BYTE-LIST 192 APPEND 184 APPEND 178 APPEND 162 STORE-VAR 147 STORE-VAR 135 PUSH-INTEGER 80 MAKE-DTAG 48 EMIT-BYTE-LIST 42 APPEND 32 PUSH-INTEGER 4 MAKE-DTAG) (476 :TAG 456 DLAMBDA 450 IL:\'NIL 442 :IGNORED 435 DLAMBDA 425 DLAMBDA 398 IL:\'NIL 335 :TAG 308 :JUMP 278 DLAMBDA 267 IL:RESTLIST 262 IL:MYARGCOUNT 257 IL:\'NIL 249 :IGNORED 242 DLAMBDA 232 DLAMBDA 155 IL:\'T 140 IL:ARG0 123 :TJUMP 118 EQ 113 IL:\'0 55 DLAMBDA 19 IL:MYARGCOUNT) ( 173 (IL:\'1 IL:IDIFFERENCE) 108 (IL:COPY) 37 (IL:IDIFFERENCE)) (PROCLAIM (QUOTE (SPECIAL *ENDING-DEPTH*))) (OR (BOUNDP (QUOTE *ENDING-DEPTH*)) (SETQ *ENDING-DEPTH* NIL)) (IL:SET-DOCUMENTATION (QUOTE *ENDING-DEPTH*) (QUOTE VARIABLE) "An AList mapping lexical level to the stack depth at exit from that level.") GATHER-TAGS :D8 (IL:L (0 CODE)) 80@YµHZdgð—¿JH°gðŸJ H ¸I°Ï(49 IL:\\NCONC2 43 GATHER-TAGS) (32 :CLOSE 17 :TAG) () GATHER-ROOTS :D8 (IL:L (0 CODE)) =@ !@ HYµgH ZÉ®JÉ ¿I°Ö(54 REACH-TAGS 29 REMOVE-IF 14 REACH-TAGS 5 GATHER-TAGS) (46 DTAG 37 DTAG 23 DTAG-REACHABLE?) () REACH-TAGS :D8 (IL:L (0 CODE)) R@!HµhYZdgð²¿IdÉ³åi±gð³Jgð³JgðªJdgð²¿IÉ ±ægð²IÉ hJdgð’±ÿ~dgðœ¿I ±¬gð’±£Jgð’±˜Jgð’±Jgð’±‚Jgð³xJgð³oJgð³fJgð³]Jgð³TJgð³KJgð³BJgð³9Jgð³0Jgð³'Jgð³Jgð´°oJo¿HX±þ·(329 IL:ECASE-FAIL 157 REACH-TAGS 125 REACH-TAGS 99 REACH-TAGS) (308 :STKCALL 299 :CALL 290 :DUNBIND 281 :UNBIND 272 :BIND 263 :SWAP 254 :DSET-STACK 245 :SET-STACK 236 :NOTE-STACK 227 :PUSH-TAG 218 :COPY 209 :LAMBDA 198 :POP 187 :CONST 176 :VAR_ 165 :VAR 145 :CLOSE 134 :RETURN 118 DTAG 107 :JUMP 92 DTAG 80 :NTJUMP 71 :TJUMP 62 :NFJUMP 53 :FJUMP 42 DTAG 31 DTAG 18 :TAG) ( 324 (:TAG :FJUMP :NFJUMP :TJUMP :NTJUMP :JUMP :RETURN :CLOSE :VAR :VAR_ :CONST :POP :LAMBDA :COPY :PUSH-TAG :NOTE-STACK :SET-STACK :DSET-STACK :SWAP :BIND :UNBIND :DUNBIND :CALL :STKCALL) 318 (CAR INST)) STACK-ANALYZE :D8 (IL:L (0 IL:|-args-|) IL:P 10 *ENDING-DEPTH* IL:P 9 *LEVEL* IL:P 7 *ENDING-DEPTH* IL:P 6 *LEVEL* IL:F 11 *LEVEL*) ekaAlHñ‘j‚laºWdhhI IjhO[µO]¿Md”Jÿ²8h\É³'LÉ Ohh LÉhdK°¼o °¸(125 IL:ASSERT-FAIL 109 STACK-ANALYZE-CODE 43 STACK-ANALYZE-CODE 32 GATHER-ROOTS) (100 DTAG 80 DTAG 70 DTAG) ( 120 "Code doesn't leave stack empty!") STACK-ANALYZE-CODEA0001 :D8 (IL:L (0 OPCODE)) o@ (10 ERROR) NIL ( 4 "BUG: The LAP opcode ~S should not appear in stack-ambiguous territory.") STACK-ANALYZE-CODE :D8 (IL:L (2 INIT-BINDING-DEPTH 1 INIT-DEPTH 0 CODE) IL:P 13 *ENDING-DEPTH* IL:P 12 *LEVEL* IL:F 14 *LEVEL* IL:F 15 *ENDING-DEPTH* IL:F 16 *STACK-ENV*) µAB¢@_µ(WW_¿O’±‘O³~O_¿H_¿OdO¿_^dgð²`¿OZÉ³5JIH¿WJÉýó¢±;o °åo ¿IJÉÌ²êHJÉÌ²Ýhgð²OÉHIb¿b¿b±ÿFNgðªNdgð²*¿HµOkg¿HkÕ¸OÉHI±¬gðªNdgð²*¿HªOkg¿OÉHI¿HkÕX±sgð³'Ngð³Ngð³NgðªNdgð²¿HµOkg¿HkÔX±1gðªNdgð²¿H’±Okg± gð²HµOkg¿HkÕX±ðNdgð²#¿HªOkg¿OW HIh±ÅgðªNdgð²^¿OW [¿K³o °òo ¿H²HKýó³íKdšI ²ÞK¸K¹Ogð¢±`HkÔX±Xgð²IHµOkg¿HO Õ¸OHI¹HO lÔl ¼kLó‘k€LÔX± NgðªNdgð²C¿HªOkg¿OI:ªo ¿I½I¹M¸Ogð¢±¾HkÔX±¶gð²,HµOgð’±žOkg±OkÕÕX±„Ndgð²¿HµOkg¿HOkÔÕX°_gð’±ýPNgð´kÕb¿A²ìjAó²çog °èORdgð²6¿g ¿A¢± AkÔb¿A¢±újAó¢±óog °ägðœg ±ÍORdgð²v¿IZoµJdd3@ð²¿gg° °#3 —J °ggJhh ¿A¢±rAkÔb¿A¢±gjAó¢±`og °ägð²|II¼»gogggLKhgjdLÿhð´L o ¿Aµ±ïkÔb¿A¢±åjAó¢±Þog °äORdgð²6¿g ¿A¢±±AkÕb¿A¢±¦jAó¢±Ÿog °ägð’±„ORgðORdgð¢±½¿Igð_¿IWZ __¿O_¿h_^½Oµ$O_¿A³5OOlg¿Ob¿Ob¿±å½O”NM&¾†Mh^_¿O_°ÅBdOð¢±Ï¿O²!AkÕb¿A´jAó²og °èAOÕ_¿jOóœoO ¿Odjð³vkð²Ošg ¿g °XO²/Ol€ó³#glOkÕÖgOkÕh °,Oi°Onó³gOkÕh ŠOhlg¿Ob¿O¢±8AkÔb±/OÌ²HOdO:²A¿O•g„g ¿B_¿Bb¿Ob¿A²¾jAó²¹og °èOOlg¿Ob¿Ob¿A²ŽjAó²‰og °ègð²oI_$ _"¿I_ _¿Ad²"O"Õb¿A´jAó²og °èABb¿O"OO$µO µk±RÉ°ðÉ°æORgðORdgð¢±’¿Idgð–¿gŒgð´g_*¿IIÔlÔl j_(¿_&¿O&O(ó²O* ¿O(kÔ_(¿°êBBb¿b¿A²jAó²og °èIgð¢±§A¢±¢AkÔb±™gð²vgIh ¿IÉ_4b¿A²jAó²og °èO4_2¿h_0_._,¿O2µ O0b±>_,¿O0˜O.O,&_.¿ˆO,h_._0¿O2_2°ØORdgð²¿I ¿A¢±AkÔb±ýgð˜I ±íORgð³!ORgð³ORgð«ORdgð²2¿I ¿A¢±¹AkÕb¿A¢±®jAó¢±§og °ägð¢±¿I_P_N¿OP_L_J¿OL_H¿gOH d_F¿gOH ¿OHo ¿ON_DdÃ¢±¿ONÁÉg'_<¿OF³1O<²-O<µoONO<¿°ì¤O¿ggO@O>hO@ o ° oOBo‹oON ¿Aµ±õOJkÕÕb¿A¢±èjAó¢±áog °äORdgð²:¿g ¿A¢±´AIkÔÕb¿A¢±¥jAó¢±žog °ägð›g °xORgð´]I WX¡j€kÔIWXi¿W\kÔ*OTIWX+IABb¿jAó²hog°ê°oORo¿HX±öH(2494 IL:ECASE-FAIL 2471 IL:ASSERT-FAIL 2447 ASSEMBLE-CODE 2415 CREATE-HUNK 2394 LIST-LENGTH 2374 EMIT-BYTE 2355 IL:ASSERT-FAIL 2312 EMIT-BYTE 2288 IL:ASSERT-FAIL 2246 ERROR 2233 IL:ECASE-FAIL 2214 EMIT-BYTE-LIST 2207 APPEND 2197 FETCH-HUNK 2156 EMIT-BYTE-LIST 2151 PUSH-INTEGER 2134 EMIT-BYTE-LIST 2100 EMIT-BYTE 2089 EMIT-BYTE-LIST 2084 REF-VAR 2076 EMIT-BYTE 2065 EMIT-BYTE-LIST 2060 FETCH-HUNK 2045 EMIT-BYTE-LIST 2020 IL:ASSERT-FAIL 1970 EMIT-BYTE-LIST 1965 PUSH-INTEGER 1946 EMIT-BYTE-LIST 1918 EMIT-BYTE-LIST 1913 PUSH-INTEGER 1905 EMIT-BYTE 1889 EMIT-BYTE-LIST 1821 EMIT-BYTE 1714 IL:ASSERT-FAIL 1656 IL:KEYWORD-TEST 1643 IL:FIND-KEYWORD 1625 IL:FIND-KEYWORD 1578 IL:ASSERT-FAIL 1539 EMIT-BYTE 1489 EMIT-BYTE 1462 EMIT-BYTE 1384 IL:ASSERT-FAIL 1344 EMIT-BYTE 1293 IL:ASSERT-FAIL 1250 EMIT-BYTE 1229 FLOOR 1132 ASSEMBLE-CODEA0002 1106 IL:ASSERT-FAIL 1070 LENGTH 1056 LENGTH 1036 IL:ASSERT-FAIL 988 IL:ASSERT-FAIL 949 EMIT-BYTE 882 EMIT-BYTE-LIST 850 EMIT-BYTE-LIST 806 EMIT-BYTE 795 EMIT-BYTE 770 HELP 744 IL:ASSERT-FAIL 618 GETHASH 562 IL:ASSERT-FAIL 523 EMIT-BYTE 499 IL:ASSERT-FAIL 460 EMIT-BYTE-LIST 448 APPEND 438 FETCH-HUNK 369 IL:ASSERT-FAIL 330 EMIT-BYTE-LIST 306 PUSH-INTEGER 295 EMIT-BYTE 241 EMIT-BYTE 222 IL:ASSERT-FAIL 183 EMIT-BYTE 159 IL:ASSERT-FAIL 128 EMIT-BYTE-LIST 123 STORE-VAR 86 IL:ASSERT-FAIL 47 EMIT-BYTE-LIST 42 REF-VAR 15 ENDP) (2466 :CLOSE 2383 :CLOSE 2369 RETURN 2362 :RETURN 2350 :STKCALL 2307 IL:APPLYFN 2298 :STKCALL 2283 :CALL 2182 :LAMBDA 2177 IL:GCONST 2141 :LAMBDA 2123 :OPCODES 2110 IL:LISTP 2095 IL:APPLYFN 2071 IL:ENVCALL 2053 DVAR 2032 :LOCAL-FUNCTION 2027 IL:GCONST 2013 DVAR 1997 DVAR 1986 :FUNCTION 1979 DVAR 1954 DVAR 1929 :FN 1924 IL:ACONST 1895 :FN 1879 IL:FNX 1683 IL:DOPVAL 1667 IL:LITATOM 1636 :SPREAD-LAST 1618 :NOT-INLINE 1585 :CALL 1573 :JUMP 1529 :NFJUMP 1519 :NTJUMP 1509 :FJUMP 1499 :TJUMP 1481 :JUMP 1452 :PUSH-TAG 1379 :TAG 1353 DTAG 1333 :TAG 1325 :TAG 1302 :UNBIND 1288 :UNBIND 1208 IL:DUNBIND 1200 :DUNBIND 1194 IL:UNBIND 1186 :UNBIND 1172 :DUNBIND 1162 :UNBIND 1151 DVAR 1141 DVAR 1101 :BIND 1043 :BIND 1031 :SET-STACK-USING-UNWIND 1001 ASSEMBLE-CODEA0001 983 :|pop-of-binding-stack| 944 IL:DUNBIND 938 IL:UNBIND 893 ASSEMBLE-CODEA0001 870 IL:POP.N 836 IL:POP.N 824 IL:STORE.N 801 IL:POP 790 IL:SWAP 739 :SET-STACK 659 ASSEMBLE-CODEA0001 604 :SET-STACK 591 :DSET-STACK 581 :SET-STACK 569 :NOTE-STACK 557 :POP 518 IL:POP 509 :POP 494 :LAMBDA 424 IL:RPLPTR.N 413 :LAMBDA 408 IL:GCONST 403 IL:CREATECELL 393 IL:SICX 376 :LAMBDA 364 :CONST 318 :LIT 313 IL:GCONST 287 :SYM 282 IL:ACONST 252 :CONST 236 IL:SWAP 229 :SWAP 217 :COPY 178 IL:COPY 169 :COPY 154 :VAR_ 108 :POP 93 :VAR_ 81 :VAR 30 :VAR) ( 2489 (:VAR :VAR_ :COPY :SWAP :CONST :LAMBDA :POP :NOTE-STACK :SET-STACK :DSET-STACK :BIND :UNBIND :DUNBIND :TAG :PUSH-TAG :JUMP :TJUMP :FJUMP :NTJUMP :NFJUMP :CALL :STKCALL :RETURN :CLOSE) 2482 (CAR INST) 2461 "Depth went negative in ~S." 2345 "Depth went negative in ~S." 2278 "Depth went negative in ~S." 2239 "BUG: Weird argument to :CALL ~S" 2228 (:OPCODES :LAMBDA) 2221 (FIRST FN-TO-CALL) 2202 (IL:ENVCALL) 2006 "BUG: The local function ~A should have a lexical level by now." 1939 (IL:APPLYFN) 1873 (IL:FN4) 1860 (IL:FN3) 1849 (IL:FN2) 1834 (IL:FN1) 1759 (IL:FN0) 1705 "DOPVAL for ~S is not a list: ~S" 1651 (:SPREAD-LAST :NOT-INLINE) 1568 "Depth went negative in ~S." 1374 "Depth went negative in ~S." 1283 "Depth went negative in ~S." 1096 "Depth went negative in ~S." 1026 "Depth went negative in ~S." 978 "Depth went negative in ~S." 763 "POP.N stack adjustment negative: " 734 "Depth went negative in ~S." 552 "Depth went negative in ~S." 489 "Depth went negative in ~S." 443 (IL:RPLPTR.N 2) 398 (:TYPE IL:COMPILED-CLOSURE) 359 "Depth went negative in ~S." 265 ((0 . IL:\'0) (1 . IL:\'1) (NIL . IL:\'NIL) (T . IL:\'T)) 212 "Depth went negative in ~S." 149 "Depth went negative in ~S." 76 "Depth went negative in ~S.") (PROCLAIM (QUOTE (SPECIAL *JUMP-LIST*))) (OR (BOUNDP (QUOTE *JUMP-LIST*)) (SETQ *JUMP-LIST* NIL)) (IL:SET-DOCUMENTATION (QUOTE *JUMP-LIST*) (QUOTE VARIABLE) "A list of DJUMP and DTAG structures for use by jump resolution.") (XCL::SET-CONSTANTP (QUOTE +JUMP-CHOICES+) NIL) (IL:SETQ +JUMP-CHOICES+ (QUOTE ((:JUMP IL:JUMP IL:JUMPX IL:JUMPXX) (:FJUMP IL:FJUMP IL:FJUMPX (IL:TJUMP 2)) (:TJUMP IL:TJUMP IL:TJUMPX (IL:FJUMP 2)) (:NFJUMP IL:NFJUMP IL:NFJUMPX) (:NTJUMP IL:NTJUMP IL:NTJUMPX)))) (PROCLAIM (QUOTE (SI::CONSTANT +JUMP-CHOICES+))) (XCL::SET-CONSTANTP (QUOTE +JUMP-RANGE-SIZE-MAP+) NIL) (IL:SETQ +JUMP-RANGE-SIZE-MAP+ (QUOTE ((:JUMP (-128 . 3) (1 . 2) (18 . 1) (128 . 2) (32768 . 3)) ( :FJUMP (-128 . 4) (2 . 2) (18 . 1) (128 . 2) (32768 . 4)) (:TJUMP (-128 . 4) (2 . 2) (18 . 1) (128 . 2 ) (32768 . 4)) (:NFJUMP (-128 . 6) (128 . 2) (32768 . 6)) (:NTJUMP (-128 . 6) (128 . 2) (32768 . 6)))) ) (PROCLAIM (QUOTE (SI::CONSTANT +JUMP-RANGE-SIZE-MAP+))) (XCL::SET-CONSTANTP (QUOTE +JUMP-SIZES+) NIL) (IL:SETQ +JUMP-SIZES+ (QUOTE ((:JUMP 1 3) (:FJUMP 1 4) (:TJUMP 1 4) (:NFJUMP 2 6) (:NTJUMP 2 6)))) (PROCLAIM (QUOTE (SI::CONSTANT +JUMP-SIZES+))) (IL:SET-DOCUMENTATION (QUOTE +JUMP-SIZES+) (QUOTE VARIABLE) "AList mapping kinds of jumps into the range of sizes for that kind, in bytes.") RESOLVE-JUMPS :D8 (IL:L (0 JUMP-LIST) IL:F 5 *DCODE*) æjA@±‰d\[dÃ›¿LH °oÃ´VLÉoºLLÉÉLÉó ¿LJ¿HLJJÕY¿IÔX°gKoh ¿µ‚±ÿvh@d ³ú¿@ UÉ 1@YµhdÃ²[ÉHÔºKJ¿I°Ú(184 START-PC-FROM-NT-COUNT-LOCAL 179 LENGTH 166 SPLICE-IN-JUMPS 157 REDUCE-UNCERTAINTY 139 IL:CHECK-TYPE-FAIL) (220 DTAG 209 DTAG 201 DTAG 172 DCODE 126 JUMP-OR-TAG 104 DJUMP 91 DJUMP 79 DJUMP 71 DTAG 64 DJUMP 58 DJUMP 43 DJUMP 35 DJUMP 25 DTAG 17 DTAG) ( 132 (OR DTAG DJUMP) 50 ((:JUMP 1 3) (:FJUMP 1 4) (:TJUMP 1 4) (:NFJUMP 2 6) (:NTJUMP 2 6))) REDUCE-UNCERTAINTY :D8 (IL:L (0 JUMP-LIST)) ‘jdds @±wd__dÃ²'¿OJ ¿O\ÉIÔ»LK±BÃ´‚±$O^ÉIÔ½NM¿OÉjó¢±OÉOÉOCOÉ ²(OÉOÉÕIÔ_¿OÉ HJÔ°"OÉOÉÕ_¿OÉ JÕOÔ_¿OO _¿OO _ ¿OOÉó²IOOÉÕÔ¹OO¿O OÕ_¿OÉOÿ³/jOóœo ¿°ðHOÉOÕÔ¸OO¿JOÔZ°gOoh ¿µ‚±þˆjJÿµjHÿhð(379 IL:CHECK-TYPE-FAIL 322 IL:ASSERT-FAIL 241 COMPUTE-JUMP-SIZE 229 COMPUTE-JUMP-SIZE) (365 JUMP-OR-TAG 347 DJUMP 333 DJUMP 300 DJUMP 280 DJUMP 268 DJUMP 253 DJUMP 210 DTAG 197 DJUMP 188 DTAG 174 DTAG 159 DJUMP 150 DTAG 139 DJUMP 125 DJUMP 116 DJUMP 101 DJUMP 90 DJUMP 79 DJUMP 65 DJUMP 54 DTAG 43 DTAG 31 DTAG 21 DTAG) ( 372 (OR DTAG DJUMP) 317 "The size uncertainty went negative") SPLICE-IN-JUMPS :D8 (IL:L (0 JUMP-LIST)) Z @±OdaHdÃ²¿HHÉ±*É¾HÉÉHÉÕ½HÉ\M »LoºKYdkð²5¿Mkÿ²!Lgð¬o ¿°íNg±ÄNJMlÕh±¶lð²#NJjMó•MnÔ€MN OOO±‘Ilð§Idlð²;¿Klÿ—NJ°MkÕ½NJ¿NgN¿N^¿NMãlÿåMlÿåN°Jlð´5MlÕ½NJlogMãlÿåMlÿåN OOO°gIo¿µ‚±þ°h(332 IL:ECASE-FAIL 126 IL:ASSERT-FAIL 85 COMPUTE-JUMP-SIZE) (321 SIZE 286 IL:JUMPXX 234 IL:JUMPXX 135 IL:NOP 114 :JUMP 76 DJUMP 66 DJUMP 58 DTAG 51 DJUMP 42 DJUMP 30 DTAG 24 DTAG 15 DTAG) ( 327 (1 2 3 4 6) 281 (IL:JUMP 4) 121 "BUG: SPLICE-IN-JUMPS found a wierd jump." 92 ((:JUMP IL:JUMP IL:JUMPX IL:JUMPXX) (:FJUMP IL:FJUMP IL:FJUMPX (IL:TJUMP 2)) (:TJUMP IL:TJUMP IL:TJUMPX (IL:FJUMP 2)) (:NFJUMP IL:NFJUMP IL:NFJUMPX) (:NTJUMP IL:NTJUMP IL:NTJUMPX))) COMPUTE-JUMP-SIZE :D8 (IL:L (1 DISTANCE 0 KIND)) $@oHµŠ¹AIýó•IµIHX°ëNIL NIL ( 5 ((:JUMP (-128 . 3) (1 . 2) (18 . 1) (128 . 2) (32768 . 3)) (:FJUMP (-128 . 4) (2 . 2) (18 . 1) (128 . 2) (32768 . 4)) (:TJUMP (-128 . 4) (2 . 2) (18 . 1) (128 . 2) (32768 . 4)) (:NFJUMP (-128 . 6) (128 . 2) (32768 . 6)) (:NTJUMP (-128 . 6) (128 . 2) (32768 . 6)))) PRETTY-JUMPS :D8 (IL:F 5 *JUMP-LIST*) ×PU ±Äd\[dÃ²+¿ggLÉgLÉ h±‚Ã´hLÉgLÉgLÉgLÉ gLÉggLÉÉhh°gKoh ¸IµHhZH&¹µ‚±ÿ;J(191 IL:CHECK-TYPE-FAIL 8 REVERSE) (178 JUMP-OR-TAG 154 DTAG 147 DJUMP 141 :MIN-PC 136 :TAG 129 DJUMP 123 :SIZE-UNCERTAINTY 116 DJUMP 110 :FORWARD-P 103 DJUMP 97 :MIN-SIZE 90 DJUMP 84 :MIN-PC 77 DJUMP 69 DJUMP 53 DTAG 47 :PC-UNCERTAINTY 40 DTAG 34 :MIN-PC 29 :TAG 21 DTAG) ( 184 (OR DTAG DJUMP)) (PROCLAIM (QUOTE (SPECIAL *LOCAL-FN-FIXUPS*))) CONVERT-TO-BINARY :D8 (IL:L (0 BYTE-LIST) IL:F 39 *DCODE* IL:F 40 *LOCAL-FN-FIXUPS*) '@ goñðP#WNÉWNÉÔkØmþålÔ¹hº@j&OHµJ±'_L¿H_8¿OJ_6¿OL_4_2dÃ²!¿OL [¿KµoOL °ð±šµBO2Ã´‚±vOL_0dgð²9¿WN¾OJOLhNÉ½NM¿j±V¼jLó³¼nLó²µOL±Dgð²-WN_¿OJOLhOÉ_¿OO¿j±O0dgð².¿WN_¿OJOLhOÉ_¿OO¿j±Úgð²-WN_¿OJOLhOÉ_¿OO¿j±§O0dgð²8¿WN_¿OJOLOL hOÉ_¿OO¿j±fgð¢±OLWPgggg _(_&¿O(_$¿O&_dÃ²¿O&OLÉ _&°Ã´°gOoh ¿O$_"¿WNOJO&hO"É_ ¿O"O ¿j±ÂO0dgð™¿IOLÔ±®gð²OJOLÉhJºj±OL _*¿O*µoOL °î_.¿O.O.3 —O.3 ³#oOL °àoOLOL¿OL_,¿jO,ó³ãO,O.O.Õó³ÖO.OLÔ°gO4oh O8O6·¿OH_H¿OJkÔ_J¿±ýd_F_D¿OF_B¿H_<¿OD_:¿OBmøçlÿåO¿OBlÿåO@O>·¿µÂWNHH(795 IL:CHECK-TYPE-FAIL 739 IL:ASSERT-FAIL 720 IL:ASSERT-FAIL 683 IL:ASSERT-FAIL 663 IL:\\FINDOP 559 IL:CHECK-TYPE-FAIL 527 DCODE-FROM-DLAMBDA 482 FIND 408 DCODE-FROM-DLAMBDA 126 IL:ASSERT-FAIL 109 IL:\\FINDOP 20 MAKE-ARRAY 5 LENGTH) (888 DCODE 781 BYTE 643 DTAG 629 :PUSH-TAG 612 :UNWIND 595 DCODE 582 DCODE 545 DCODE-FIXUP 536 DCODE 520 DVAR 506 DLAMBDA 476 CAR 471 :KEY 466 EQ 461 :TEST 445 :LOCAL-FUNCTION 431 DCODE 418 DCODE 383 :LAMBDA 366 DCODE 353 DCODE 329 :TYPE 315 DCODE 302 DCODE 277 :FN 260 DCODE 247 DCODE 223 :LIT 192 DCODE 182 DCODE 160 :SYM 143 IL:LISTP 99 IL:LITATOM 45 DCODE 36 DCODE 10 :ELEMENT-TYPE) ( 788 (OR SYMBOL (UNSIGNED-BYTE 8) CONS) 727 "BUG: Illegal argument to ~A opcode: ~S" 712 "BUG: Argument given to the ~A opcode, but it doesn't take one." 675 "BUG: Can't find purported opcode ~S" 552 (OR DLAMBDA DCODE) 119 "BUG: Can't find purported opcode ~S" 15 (UNSIGNED-BYTE 8)) COMPUTE-DEBUGGING-INFO :D8 (IL:L (0 DLAMBDA) IL:F 4 *DCODE*) T@É1Hµ‚±³K@É´g@É1Hµ‚±«K@É´+@Égðhð´g@ÉÉh@É©@É´g@É1HµjK@É´o @É´oHIIÉ¹K”JI&º„IhZ»HX±ÿ2É¹K”JI&º„IhZ»HX±ÿ9¹K”JI&º„IhZ»HX°„(174 APPEND) (233 DVAR 205 DVAR 180 DLAMBDA 159 DLAMBDA 142 DLAMBDA 136 &KEY 127 DLAMBDA 118 DLAMBDA 107 DVAR 100 DLAMBDA 94 &REST 84 :IGNORED 77 DLAMBDA 67 DLAMBDA 46 DLAMBDA 40 &OPTIONAL 31 DLAMBDA 11 DLAMBDA 5 DCODE) ( 189 (:INTERLISP T) 168 (&ALLOW-OTHER-KEYS)) START-PC-FROM-NT-COUNT :D8 (IL:L (0 NT-COUNT)) $@àkÔlØmüåj@ÿ’l‚HdÔ¹lIÔlÔlÖNIL NIL () START-PC-FROM-NT-COUNT-LOCAL :D8 (IL:L (0 NT-COUNT) IL:F 2 COMPILER::*ENVIRONMENT* IL:F 3 IL:CROSSCOMPILING) O@gRÉ’k°S²gRÉ‘k€j kÔlØmüåj@ÿ’l‚HdÔ¹lIÔlÔlÖ(44 IL:LLSH) (32 COMPILER:ENV 26 :3-BYTE-INIT 11 COMPILER:ENV 5 :3-BYTE) () ALLOCATE-CODE-BLOCK :D8 (IL:L (1 CODE-LEN 0 NT-COUNT)) ,@ HAÔlØmøåHl kÔkØmþå H$(37 IL:\\ALLOC.CODE.BLOCK 25 CEILING 5 START-PC-FROM-NT-COUNT) NIL () FIXUP-PTR :D8 (IL:L (2 PTR 1 OFFSET 0 BASE) IL:P 1 IL:\\INTERRUPTABLE IL:F 2 COMPILER::*HOST-ARCHITECTURE*) jBÓB¿gR²,@A@AÂBÒãäÇ¿@kAÔ@kAÔÂBÒlÿåäÇ¿@lAÔHãÇ¿@l°#gR²!@A@AÂBÒlÿåäÇ¿@kAÔHãÇ¿@lAÔHlÿåÇBNIL (67 :3-BYTE 16 :4-BYTE) () FIXUP-PTR-NO-REF :D8 (IL:L (2 PTR 1 OFFSET 0 BASE) IL:P 1 IL:\\INTERRUPTABLE IL:F 2 COMPILER::*HOST-ARCHITECTURE*) fBÓgR²,@A@AÂBÒãäÇ¿@kAÔ@kAÔÂBÒlÿåäÇ¿@lAÔHãÇ¿@l°#gR²!@A@AÂBÒlÿåäÇ¿@kAÔHãÇ¿@lAÔHlÿåÇBNIL (63 :3-BYTE 12 :4-BYTE) () FIXUP-SYMBOL :D8 (IL:L (2 SYMBOL 1 OFFSET 0 BASE) IL:P 2 IL:\\INTERRUPTABLE IL:F 3 COMPILER::*HOST-ARCHITECTURE*) —Bddd3@ð”¿¿BÓBd3@ð’BÒ€jgS²7@A@AÂIãäÇ¿@kAÔ@kAÔÂIlÿåäÇ¿@lAÔHãlÿåÇ¿@lAÔHlÿåÇHgS²(@A@AÂIlÿåäÇ¿@kAÔHãlÿåÇ¿@lAÔHlÿåÇH@AHãÇ@AkÔHlÿåÇHNIL (91 :3-BYTE 29 :4-BYTE) () FIXUP-NTENTRY :D8 (IL:L (2 SYMBOL 1 OFFSET 0 BASE) IL:P 2 IL:\\INTERRUPTABLE IL:F 3 COMPILER::*HOST-ARCHITECTURE*) kBddd3@ð”¿¿BÓBd3@ð’BÒ€jgS²:@A@AÂIãlÿåäÇ¿@kAÔ@kAÔÂIlÿåäÇ¿@lAÔHãlÿåÇ¿@lAÔHlÿåÇH@AHãÇ@AkÔHlÿåÇHNIL (29 :3-BYTE) () FIXUP-WORD :D8 (IL:L (2 WORD 1 OFFSET 0 BASE)) @ABãÇ@AkÔBlÿåÇBNIL NIL () INTERN-DCODE :D8 (IL:L (0 IL:|-args-|) IL:P 47 IL:\\INTERRUPTABLE IL:P 46 IL:\\INTERRUPTABLE) Ù0ekañð€'lHñIÉ ‚laºIÉ [ \àkÔlØmüå]lÖ¾jLÿ’l‚MdÔ_¿llÖ_¿h___¿J©IÉ°eIÉ_¿K O __¿O_¿O kÕjO*OROPó³OOTOOR¶Ç¿ORkÔ_R¿OTkÔ_T¿°àO_¿K jO-OVOXó²mKOX _ ¿OOZO ¿OOZNÔO áàààààà¿OOZNÔlÔO ¿O³O lÿ›OZl _¿OXkÔOZlÔ_Z¿_X¿°OIÉnÿÿåÍOIÉIÉÔl kÕnÿÿåÍOOOlÖÔlÔÍOIÉÏ!IÉ_"¿.O"¿/OdÈnðåO"ÒnÿåäÍ¿OlkØÐO"ÓÍOjLÿ‘j€MÍOIÉÏOOµjÏ‡OIÉgð‘k€j_$Ï¿O$jðhðOdi ÍOOOlÖÔIÉOÈ_N¿IÉ j_.¿_,¿O,O.ó²6IÉO. _*_(¿O*_&¿OONO(ÔO&¿O.kÔ_.¿°ÇIÉ j_8¿_6¿O6O8ó²6IÉO8 _4_2¿O4_0¿OONO2ÔO0¿O8kÔ_8¿°ÇIÉ j_B¿_@¿O@OBó²^IÉOB _>_<¿O>_:¿OONO<ÔO:dÃ™¿O: °ÃžO:É O:¿OBkÔ_B¿°ŸIÉ j_L¿_J¿OJOLó²;IÉOL _H_F¿OH_D¿OONOFÔOD ¿OLkÔ_L¿°ÂIIÉgð˜Oh O_I O(980 PERFORM-LOCAL-FN-FIXUPS 967 IL:MAKE-COMPILED-CLOSURE 928 FIXUP-WORD 923 IL:\\RESOLVE.TYPENUMBER 896 ELT 867 LENGTH 844 FIXUP-PTR 836 EVAL 814 INTERN-DCODE 777 ELT 748 LENGTH 725 FIXUP-SYMBOL 698 ELT 669 LENGTH 646 FIXUP-SYMBOL 619 ELT 590 LENGTH 570 FIXUP-PTR 545 IL:\\STKMIN 378 CEILING 315 FLOOR 294 FIXUP-WORD 275 FIXUP-WORD 253 FIXUP-NTENTRY 236 ELT 215 LENGTH 161 LENGTH 141 IL:\\MVLIST 136 ALLOCATE-CODE-BLOCK 131 LENGTH 124 LENGTH 51 LENGTH 32 ARRAYP) (957 :FUNCTION 950 DCODE 944 DCODE 887 DCODE 860 DCODE 829 COMPILER::EVAL-WHEN-LOAD 821 COMPILER::EVAL-WHEN-LOAD 805 DCODE 768 DCODE 741 DCODE 689 DCODE 662 DCODE 610 DCODE 583 DCODE 563 DCODE 519 :CLOSURE 512 DCODE 489 DCODE 420 DCODE 409 DCODE 368 DCODE 360 DCODE 344 DCODE 113 DCODE 103 DCODE 43 DCODE 25 DCODE) () PERFORM-LOCAL-FN-FIXUPSA0001 :D8 (IL:L (0 THING)) @dÃ˜¿@ÉNIL (14 IL:COMPILED-CLOSURE 6 IL:COMPILED-CLOSURE) () PERFORM-LOCAL-FN-FIXUPSA0002 :D8 (IL:L (0 DCODE)) @Éµ@ (15 INTERN-DCODE) (5 DCODE) () PERFORM-LOCAL-FN-FIXUPS :D8 (IL:L (0 DCODE)) | @É‘ H´@É–HYZµIo ¿°å__¿O_¾O½Okgkg¼Mkg»OMðœLdÈNÔK‹LdÈNÔK¿J° (117 FIXUP-PTR 104 FIXUP-PTR-NO-REF 39 IL:ASSERT-FAIL) (85 PERFORM-LOCAL-FN-FIXUPSA0002 76 PERFORM-LOCAL-FN-FIXUPSA0001 69 PERFORM-LOCAL-FN-FIXUPSA0002 19 DCODE 5 DCODE) ( 34 "BUG: Attempt to fix up an uninterned DCODE.") (IL:PUTPROPS IL:D-ASSEM IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:D-ASSEM IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE "D-ASSEM" (:USE "LISP" "XCL")))) (IL:PUTPROPS IL:D-ASSEM IL:COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1990 1991 1992)) NIL