(FILECREATED "10-Oct-86 01:39:06" ("compiled on " {ERIS}SOURCES>D-ASSEM.;4) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED "10-Oct-86 01:30:07" {ERIS}SOURCES>D-ASSEM.;4 93147 changes to: (FUNCTIONS STORE-DIGEST-INFO REF-VAR STORE-VAR INTERN-VAR STACK-ANALYZE STACK-ANALYZE-CODE) previous date: "10-Oct-86 00:42:21" {ERIS}SOURCES>D-ASSEM.;3) (RPAQQ D-ASSEMCOMS ((COMS (* ;; "Data structures and utilities") (STRUCTURES DCODE DJUMP DLAMBDA DTAG DVAR) (P (DEFPRINT (QUOTE DTAG) NIL)) (FUNCTIONS CREATE-HUNK TYPE-NAME-FROM-SIZE) (FUNCTIONS RELEASE-CIRCULARITIES)) (COMS (* ;; "Handy constants") (VARIABLES +IVAR-CODE+ +PVAR-CODE+ +FVAR-CODE+) (VARIABLES +LAMBDA-SPREAD+ +NLAMBDA-SPREAD+ +LAMBDA-NO-SPREAD+ +NLAMBDA-NO-SPREAD+) (VARIABLES +CONSTANT-OPCODES+)) (COMS (* ;; "Opcode generation") (VARIABLES *BYTES* *BYTE-COUNT*) (FUNCTIONS START-BYTES EMIT-BYTE EMIT-BYTE-LIST END-BYTES) (FUNCTIONS CHOOSE-OP REF-VAR STORE-VAR MAX-ARG PUSH-INTEGER)) (COMS (* ;; "Main driving") (VARIABLES *DTAG-ENV* *DVAR-ENV* *HUNK-MAP* *DCODE* *LEVEL* ) (FUNCTIONS ASSEMBLE-FUNCTION DCODE-FROM-DLAMBDA DLAMBDA-FROM-LAMBDA)) (COMS (* ;; "Digesting the function") (VARIABLES *HUNK-SIZE* *PVAR-COUNT* *FREE-VARS* *BOUND-SPECIALS*) (FUNCTIONS DIGEST-FUNCTION DIGEST-CODE STORE-DIGEST-INFO) (FUNCTIONS DVAR-FROM-LAP-VAR LAP-VAR-ID INSTALL-LOCAL INSTALL-VAR INTERN-VAR INTERN-TAG)) (COMS (* ;; "Function entry code") (FUNCTIONS EASY-ENTRY-P GENERATE-EASY-ENTRY) (FUNCTIONS GENERATE-HARD-ENTRY GENERATE-ARG-CHECK GENERATE-KEY GENERATE-OPT-AND-REST)) (COMS (* ;; "Stack analysis") (VARIABLES *ENDING-DEPTH* *STACK-NOTES*) ( FUNCTIONS STACK-ANALYZE STACK-ANALYZE-CODE)) (COMS (* ;; "The guts of assembly") (FUNCTIONS ASSEMBLE ASSEMBLE-CODE)) (COMS (* ;; "Jump resolution") (VARIABLES *JUMP-LIST*) (VARIABLES +JUMP-CHOICES+ +JUMP-RANGE-SIZE-MAP+ +JUMP-SIZES+) (FUNCTIONS RESOLVE-JUMPS REDUCE-UNCERTAINTY SPLICE-IN-JUMPS COMPUTE-JUMP-SIZE) (COMS (* ; "Debugging jump resolution") (FUNCTIONS PRETTY-JUMPS))) (COMS (* ;; "Conversion to binary") (FUNCTIONS CONVERT-TO-BINARY)) (COMS (* ;; "Setting up the debugging information") (FUNCTIONS COMPUTE-DEBUGGING-INFO)) (COMS (* ;; "Fixup resolution and DCODE interning") (FUNCTIONS ALLOCATE-CODE-BLOCK FIXUP-PTR FIXUP-WORD INTERN-DCODE)) (PROP FILETYPE D-ASSEM) (DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) LLBASIC LLCODE LLGC MODARITH)))) DCODE-CLOSURE-P D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-CLOSURE-P D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-CLOSURE-P) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-CLOSURE-P SETF-INVERSE setf-DCODE-CLOSURE-P) DCODE-TYPE-FIXUPS D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-TYPE-FIXUPS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-TYPE-FIXUPS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-TYPE-FIXUPS SETF-INVERSE setf-DCODE-TYPE-FIXUPS) DCODE-LIT-FIXUPS D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-LIT-FIXUPS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-LIT-FIXUPS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-LIT-FIXUPS SETF-INVERSE setf-DCODE-LIT-FIXUPS) DCODE-SYM-FIXUPS D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-SYM-FIXUPS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-SYM-FIXUPS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-SYM-FIXUPS SETF-INVERSE setf-DCODE-SYM-FIXUPS) DCODE-FN-FIXUPS D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-FN-FIXUPS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-FN-FIXUPS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-FN-FIXUPS SETF-INVERSE setf-DCODE-FN-FIXUPS) DCODE-CODE-ARRAY D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-CODE-ARRAY D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-CODE-ARRAY) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-CODE-ARRAY SETF-INVERSE setf-DCODE-CODE-ARRAY) DCODE-DEBUGGING-INFO D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-DEBUGGING-INFO D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-DEBUGGING-INFO) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-DEBUGGING-INFO SETF-INVERSE setf-DCODE-DEBUGGING-INFO) DCODE-NAME-TABLE D1 (L (0 OBJECT)) @É NIL (3 DCODE) () setf-DCODE-NAME-TABLE D1 (L (1 VALUE 0 OBJECT)) @A ANIL (3 DCODE) () (REMPROP (QUOTE DCODE-NAME-TABLE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-NAME-TABLE SETF-INVERSE setf-DCODE-NAME-TABLE) DCODE-NUM-ARGS D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-NUM-ARGS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-NUM-ARGS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-NUM-ARGS SETF-INVERSE setf-DCODE-NUM-ARGS) DCODE-ARG-TYPE D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-ARG-TYPE D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-ARG-TYPE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-ARG-TYPE SETF-INVERSE setf-DCODE-ARG-TYPE) DCODE-NFREEVARS D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-NFREEVARS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-NFREEVARS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-NFREEVARS SETF-INVERSE setf-DCODE-NFREEVARS) DCODE-NLOCALS D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-NLOCALS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-NLOCALS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-NLOCALS SETF-INVERSE setf-DCODE-NLOCALS) DCODE-FRAME-NAME D1 (L (0 OBJECT)) @ÉNIL (3 DCODE) () setf-DCODE-FRAME-NAME D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DCODE) () (REMPROP (QUOTE DCODE-FRAME-NAME) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DCODE-FRAME-NAME SETF-INVERSE setf-DCODE-FRAME-NAME) DCODE-P D1 (L (0 OBJECT)) @ÃNIL (3 DCODE) () COPY-DCODE D1 (L (0 OBJECT)) `@ (6 NCREATE2) (2 DCODETYPE#) () (DEFPRINT (QUOTE DCODE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) MAKE-DCODE D1 (L (0 -args-)) §&eHkJdIó¢±i¿oñð`%Hk»ºKdJó¢±c¿j¼Hk¾½NdMó¢±i¿j_¿Hk_¿_¿OdOó¢±g¿h_¿Hk_¿_¿OdOó¢±h¿j_¿Hk_¿_¿OdOó¢±i¿h_ ¿Hk_$¿_"¿O$dO"ó¢±j¿h_&¿Hk_*¿_(¿O*dO(ó¢±k¿h_,¿Hk_0¿_.¿O0dO.ó¢±l¿h_2¿Hk_6¿_4¿O6dO4ó¢±m¿h_8¿Hk_<¿_:¿O¿Hk_B¿_@¿OBdO@ó¢±o¿h_D¿Hk_H¿_F¿OHdOFó¢±p¿h_J¿`dI¿dL¿dO¿dO¿dO¿dO ¿dO&¿dO,¿dO2¿dO8¿dO>¿dOD¿dOJ¿agð–JkØa±þ•JlÔZ±þagð–KkØa±þ˜KlÔ[±þ‡agð–NkØa±þ’NlÔ^±þ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ð—O0kØa±þŽO0lÔ_0±þzagð—O6kØa±þO6lÔ_6±þyagð—OO$lÔ_$±ÿ*NIL (515Q :SIZE-UNCERTAINTY 465Q :FORWARD-P 435Q :MIN-SIZE 405Q :MIN-PC 360Q :PTR 333Q :TAG 306Q :KIND 230Q DJUMPTYPE#) () (PUTPROP (QUOTE DJUMP) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE MAKE-DJUMP)) (PUTPROP (QUOTE DJUMP) (QUOTE %%STRUCTURE-CLASS) (QUOTE STRUCTURE-CLASS)) (PUTPROP (QUOTE DJUMP) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (KIND TAG PTR MIN-PC MIN-SIZE FORWARD-P SIZE-UNCERTAINTY))) (PUTPROP (QUOTE DJUMP) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (SIZE-UNCERTAINTY FORWARD-P MIN-SIZE MIN-PC PTR TAG KIND))) (/DECLAREDATATYPE (QUOTE DJUMP) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) ( QUOTE ((DJUMP 0 POINTER) (DJUMP 2 POINTER) (DJUMP 4 POINTER) (DJUMP 6 POINTER) (DJUMP 8 POINTER) ( DJUMP 10 POINTER) (DJUMP 12 POINTER))) (QUOTE 14)) DLAMBDA-BODY D1 (L (0 OBJECT)) @ÉNIL (3 DLAMBDA) () setf-DLAMBDA-BODY D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DLAMBDA) () (REMPROP (QUOTE DLAMBDA-BODY) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DLAMBDA-BODY SETF-INVERSE setf-DLAMBDA-BODY) DLAMBDA-NON-LOCAL D1 (L (0 OBJECT)) @ÉNIL (3 DLAMBDA) () setf-DLAMBDA-NON-LOCAL D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DLAMBDA) () (REMPROP (QUOTE DLAMBDA-NON-LOCAL) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DLAMBDA-NON-LOCAL SETF-INVERSE setf-DLAMBDA-NON-LOCAL) DLAMBDA-CLOSED-OVER D1 (L (0 OBJECT)) @ÉNIL (3 DLAMBDA) () setf-DLAMBDA-CLOSED-OVER D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DLAMBDA) () (REMPROP (QUOTE DLAMBDA-CLOSED-OVER) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DLAMBDA-CLOSED-OVER SETF-INVERSE setf-DLAMBDA-CLOSED-OVER) DLAMBDA-BLIP D1 (L (0 OBJECT)) @ÉNIL (3 DLAMBDA) () setf-DLAMBDA-BLIP D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DLAMBDA) () (REMPROP (QUOTE DLAMBDA-BLIP) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DLAMBDA-BLIP SETF-INVERSE setf-DLAMBDA-BLIP) DLAMBDA-NAME D1 (L (0 OBJECT)) @ÉNIL (3 DLAMBDA) () setf-DLAMBDA-NAME D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DLAMBDA) () (REMPROP (QUOTE DLAMBDA-NAME) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DLAMBDA-NAME SETF-INVERSE setf-DLAMBDA-NAME) DLAMBDA-OTHERS D1 (L (0 OBJECT)) @É NIL (3 DLAMBDA) () setf-DLAMBDA-OTHERS D1 (L (1 VALUE 0 OBJECT)) @A ANIL (3 DLAMBDA) () (REMPROP (QUOTE DLAMBDA-OTHERS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DLAMBDA-OTHERS SETF-INVERSE setf-DLAMBDA-OTHERS) DLAMBDA-ALLOW-OTHER-KEYS D1 (L (0 OBJECT)) @ÉNIL (3 DLAMBDA) () setf-DLAMBDA-ALLOW-OTHER-KEYS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DLAMBDA) () (REMPROP (QUOTE DLAMBDA-ALLOW-OTHER-KEYS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DLAMBDA-ALLOW-OTHER-KEYS SETF-INVERSE setf-DLAMBDA-ALLOW-OTHER-KEYS) DLAMBDA-KEY D1 (L (0 OBJECT)) @ÉNIL (3 DLAMBDA) () setf-DLAMBDA-KEY D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DLAMBDA) () (REMPROP (QUOTE DLAMBDA-KEY) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DLAMBDA-KEY SETF-INVERSE setf-DLAMBDA-KEY) DLAMBDA-REST D1 (L (0 OBJECT)) @ÉNIL (3 DLAMBDA) () setf-DLAMBDA-REST D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DLAMBDA) () (REMPROP (QUOTE DLAMBDA-REST) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DLAMBDA-REST SETF-INVERSE setf-DLAMBDA-REST) DLAMBDA-OPTIONAL D1 (L (0 OBJECT)) @ÉNIL (3 DLAMBDA) () setf-DLAMBDA-OPTIONAL D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DLAMBDA) () (REMPROP (QUOTE DLAMBDA-OPTIONAL) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DLAMBDA-OPTIONAL SETF-INVERSE setf-DLAMBDA-OPTIONAL) DLAMBDA-REQUIRED D1 (L (0 OBJECT)) @ÉNIL (3 DLAMBDA) () setf-DLAMBDA-REQUIRED D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DLAMBDA) () (REMPROP (QUOTE DLAMBDA-REQUIRED) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DLAMBDA-REQUIRED SETF-INVERSE setf-DLAMBDA-REQUIRED) DLAMBDA-P D1 (L (0 OBJECT)) @ÃNIL (3 DLAMBDA) () COPY-DLAMBDA D1 (L (0 OBJECT)) `@ (6 NCREATE2) (2 DLAMBDATYPE#) () (DEFPRINT (QUOTE DLAMBDA) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%internal-make-DLAMBDA D1 (L (0 -args-)) 7 eHkJdIó¢±)¿hñðHk»ºKdJó¢±)¿h¼Hk¾½NdMó¢±/¿h_¿Hk_¿_¿OdOó¢±-¿h_¿Hk_¿_¿OdOó¢±.¿h_¿Hk_¿_¿OdOó¢±/¿h_ ¿Hk_$¿_"¿O$dO"ó¢±0¿h_&¿Hk_*¿_(¿O*dO(ó¢±1¿h_,¿Hk_0¿_.¿O0dO.ó¢±2¿h_2¿Hk_6¿_4¿O6dO4ó¢±3¿h_8¿Hk_<¿_:¿O¿`dI¿dL¿dO¿dO¿dO¿dO ¿dO&¿dO,¿dO2¿dO8¿dO>¿agð–JkØa±þÒJlÔZ±þÁagð–KkØa±þÒKlÔ[±þÁagð–NkØa±þÌNlÔ^±þ»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ð—O0kØa±þÈO0lÔ_0±þ´agð—O6kØa±þÇO6lÔ_6±þ³agð—O ¿±éO0gð³#O0gð³O0gð³O0gð©O0dgð²¿O2_ _¿O O¿±ªgð¢±¢W>kÔW>jó‘k€j0O2°Yd_(_&¿WB_$¿gggO6gO4gO( _"¿O&O$O"¿O6kÔ_6_8¿O:‘h€i–O8h_<„O:O8&_:¿µ¨O<_.¿O2_,¿O.W@O2_*¿O,O*¿W@kÔc@¿O2 µ‚±þ,h(717Q DIGEST-CODE 577Q CL:PUTHASH 563Q MAKE-DVAR 434Q INTERN-TAG 346Q setf-DTAG-LEVEL 334Q setf-DTAG-PTR 312Q INTERN-TAG 255Q CL:LENGTH 231Q CL:LENGTH 163Q CL:MAPCAR 135Q CL:MAPCAR 74Q DLAMBDA-FROM-LAMBDA 50Q INTERN-VAR) (553Q :NAME 546Q :LEVEL 541Q :SLOT 536Q :CLOSED 533Q :KIND 454Q CLOSE 417Q NTJUMP 407Q NFJUMP 377Q TJUMP 367Q FJUMP 357Q JUMP 276Q TAG 214Q DUNBIND 204Q UNBIND 153Q DIGEST-CODEA0001 126Q DIGEST-CODEA0001 114Q BIND 64Q LAMBDA 34Q VAR_ 24Q VAR) () STORE-DIGEST-INFO D1 (F 12Q *DCODE* F 13Q *PVAR-COUNT* F 14Q *FREE-VARS* F 15Q *BOUND-SPECIALS*) Ä Wg gg aHd WÔkÕ OµW ±€_¿WºlOO hJ ¹JI ¿OO ¿O_¿OmÿÔ_¿°ºd¾W½N [dgð”¿l°gð´j‹oKoN N hM ¼ML ¿µ¼WW WH (301Q setf-DCODE-NFREEVARS 276Q CL:LENGTH 270Q setf-DCODE-NLOCALS 254Q setf-DCODE-NAME-TABLE 245Q DCODE-NAME-TABLE 235Q DVAR-NAME 231Q DVAR-SLOT 225Q ECASE-FAIL 165Q DVAR-KIND 132Q setf-DVAR-SLOT 121Q setf-DCODE-NAME-TABLE 112Q DCODE-NAME-TABLE 102Q DVAR-NAME 56Q CL:NREVERSE 33Q CL:LENGTH 23Q CL:SORT 20Q SYMBOL-FUNCTION 7 SYMBOL-FUNCTION) (204Q :ARGUMENT 172Q :LOCAL 15Q CDR 12Q :KEY 4 <) ( 222Q (:LOCAL :ARGUMENT) 215Q (DVAR-KIND DVAR)) DVAR-FROM-LAP-VAR D1 (L (0 LAP-VAR) F 0 *DVAR-ENV*) @ P µ o@ (21Q CL:ERROR 7 GETHASH 3 LAP-VAR-ID) NIL ( 15Q "The LAP var ~S should have been interned by now.") LAP-VAR-ID D1 (L (0 VAR)) @d’NIL NIL () INSTALL-LOCAL D1 (L (1 CLOSED-OVER 0 VAR) F 1 *PVAR-COUNT*) "@d²AgQHd gð–¿QkÔcH(23Q DVAR-KIND 13Q INSTALL-VAR) (26Q :LOCAL 7 :LOCAL) () INSTALL-VAR D1 (L (3 SLOT 2 KIND 1 CLOSED-OVER 0 VAR) F 14Q *HUNK-SIZE* F 15Q *DVAR-ENV* F 16Q *BOUND-SPECIALS* F 17Q *FREE-VARS* F 20Q *LEVEL*) ¨@d¢±£±H¹HZ»J\Agg ²1L_¿W¾gggWgW gK ½ONMWkÔc¿L_¿W_¿gIgð“g€BgCgK _¿OOO_¿Idgð™¿OWc¿gð˜OkWcO(201Q CL:PUTHASH 165Q MAKE-DVAR 112Q CL:PUTHASH 102Q MAKE-DVAR 41Q CL:MEMBER 36Q SYMBOL-FUNCTION) (230Q F 211Q S 160Q :NAME 154Q :SLOT 147Q :FREE 142Q F 136Q :KIND 75Q :NAME 70Q :LEVEL 63Q :SLOT 60Q :CLOSED 55Q :KIND 33Q LAP-VAR-ID 30Q :KEY) () INTERN-VAR D1 (L (0 VAR) F 3 *DVAR-ENV* F 4 *FREE-VARS*) M@d²:dgð³@S !H¡h€i²Hd gðž¿HT ZkÔ¹JIH@ S µ o@ (112Q CL:ERROR 100Q GETHASH 73Q INSTALL-LOCAL 55Q CL:ASSOC 42Q DVAR-KIND 23Q GETHASH) (45Q :FREE 11Q G) ( 106Q "Unknown LAP variable ID: ~S") INTERN-TAG D1 (L (0 ID) F 3 *DTAG-ENV*) @S µ@!S¹ºHIJ(26Q CL:PUTHASH 17Q MAKE-DTAG 4 GETHASH) NIL () EASY-ENTRY-P D1 (L (0 DLAMBDA)) @@d ›¿@ gð´@ hð´@ HµiYo ´I‘hHX°ä(60Q CL:EQUAL 34Q DLAMBDA-OPTIONAL 24Q DLAMBDA-KEY 12Q DLAMBDA-REST 4 DLAMBDA-REST) (15Q :IGNORED) ( 55Q ((CONST NIL))) GENERATE-EASY-ENTRY D1 (L (0 DLAMBDA) F 3 *HUNK-SIZE* F 4 *HUNK-MAP* F 5 *LEVEL* F 6 *DCODE*) i@ ¡h€iSTUkó´j¿@ g @ jHµ Vj Z gð²oI gJ àh ¿H¸IkÔ¹°É(135Q EMIT-BYTE-LIST 132Q \APPEND2 123Q DVAR-SLOT 114Q CHOOSE-OP 76Q DVAR-KIND 70Q setf-DCODE-ARG-TYPE 52Q \APPEND2 47Q CL:MAPCAR 44Q DLAMBDA-OPTIONAL 40Q SYMBOL-FUNCTION 32Q DLAMBDA-REQUIRED 25Q CREATE-HUNK 3 DLAMBDA-CLOSED-OVER) (117Q RPLPTR.N 101Q :CLOSED 35Q CL:FIRST) ( 110Q (IVAR . IVARX)) GENERATE-HARD-ENTRY D1 (L (0 DLAMBDA) F 4 *HUNK-SIZE* F 5 *HUNK-MAP* F 6 *DCODE* F 7 *LEVEL*) µ@ @ "@ ¡h€iŸTUWkó´ji¿H ‘h€i³@ ‘h€iª@d gðŸ¿@ ‘h€i”@ ¿@ j»ºJµ@HI@HIVl Vmÿ gð²)oU oK gTào ¿JºKkÔ»°«(251Q EMIT-BYTE-LIST 246Q \APPEND2 243Q \APPEND2 225Q CHOOSE-OP 215Q CHOOSE-OP 175Q DVAR-KIND 170Q setf-DCODE-NUM-ARGS 162Q setf-DCODE-ARG-TYPE 154Q GENERATE-KEY 146Q GENERATE-OPT-AND-REST 131Q DLAMBDA-REQUIRED 124Q GENERATE-ARG-CHECK 113Q DLAMBDA-KEY 101Q DLAMBDA-REST 67Q DLAMBDA-REST 55Q CL:ZEROP 50Q CREATE-HUNK 24Q DLAMBDA-CLOSED-OVER 15Q CL:LENGTH 12Q DLAMBDA-OPTIONAL 6 CL:LENGTH 3 DLAMBDA-REQUIRED) (230Q RPLPTR.N 200Q :CLOSED 104Q :IGNORED) ( 236Q (POP) 221Q (IVAR . IVARX) 207Q (PVAR . PVARX)) GENERATE-ARG-CHECK D1 (L (0 DLAMBDA)) Î@ 1@ hð´@ hð´H@ Ô¹º»I³@gHkÕ ggJhH ggoggJhh gHkÕ ggKhgI ggJhgKhH I goggJhh (313Q EMIT-BYTE-LIST 307Q \APPEND2 301Q \APPEND2 273Q \APPEND2 270Q \APPEND2 237Q PUSH-INTEGER 233Q PUSH-INTEGER 206Q PUSH-INTEGER 165Q PUSH-INTEGER 153Q EMIT-BYTE-LIST 147Q \APPEND2 142Q \APPEND2 105Q PUSH-INTEGER 67Q PUSH-INTEGER 52Q MAKE-DTAG 46Q MAKE-DTAG 41Q CL:LENGTH 36Q DLAMBDA-OPTIONAL 25Q DLAMBDA-KEY 15Q DLAMBDA-REST 6 CL:LENGTH 3 DLAMBDA-REQUIRED) (254Q TAG 251Q POP 242Q FN2 223Q TAG 214Q FJUMP 211Q GREATERP 202Q MYARGCOUNT 173Q FJUMP 170Q GREATERP 157Q MYARGCOUNT 125Q TAG 122Q POP 113Q FN2 110Q 'NIL 75Q TJUMP 72Q GREATERP 61Q MYARGCOUNT) ( 246Q (FN SI::ARGUMENT-ERROR) 117Q (FN SI::ARGUMENT-ERROR)) GENERATE-KEY D1 (L (2 NUM-OPTIONAL 1 NUM-REQUIRED 0 DLAMBDA)) µ ABkÔÔ‘ @ ±Ÿd__¿O_¾O]¼M»º¹ggOhgHgIhh ¿Lk ¿L ¿Ni K´gKi gJhgIhgNi K´gKi gJhh ¿µ‚±ÿ`h(250Q EMIT-BYTE-LIST 245Q \APPEND2 242Q \APPEND2 234Q \APPEND2 231Q \APPEND2 214Q STORE-VAR 201Q STORE-VAR 152Q STORE-VAR 137Q STORE-VAR 131Q ASSEMBLE 124Q STACK-ANALYZE 116Q EMIT-BYTE-LIST 55Q MAKE-DTAG 52Q MAKE-DTAG 13Q DLAMBDA-KEY) (220Q TAG 207Q 'T 174Q ARG0 165Q TAG 156Q JUMP 145Q 'NIL 101Q NTJUMP 75Q FINDKEY 65Q SYM 62Q ACONST) () (LET* ((A0324 (QUOTE GENERATE-KEY)) (A0325 (QUOTE CL:FUNCTION)) (A0326 "Generate code to check for and default the keyword arguments.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0324 A0325 A0326))) A0326)) GENERATE-OPT-AND-REST D1 (L (2 NUM-OPTIONAL 1 NUM-REQUIRED 0 DLAMBDA)) ŠB ‘h€i¢±±gA ‘h€i´ A o ¿@ AkÔO_¿O²~_¿O^½N\»LºO´ogggOhO gMi J´gJi O´o ¿MJOKI¹O_¿OkÔ_¿°@ ².@ gð‘h€i² gggABkÔÔ@ i ¿B ‘h€i´‚±‹gHh I °Jd_¿gOh ¿Ok ¿O ¿Oi ¿OŸgOi ¿µ·@ ²@ gð‘h€iŸg@ i ¿gHh (607Q EMIT-BYTE 574Q EMIT-BYTE-LIST 570Q STORE-VAR 564Q DLAMBDA-REST 544Q DLAMBDA-REST 536Q DLAMBDA-REST 525Q EMIT-BYTE-LIST 521Q STORE-VAR 500Q EMIT-BYTE-LIST 475Q STORE-VAR 465Q ASSEMBLE 454Q STACK-ANALYZE 442Q EMIT-BYTE 415Q CL:NREVERSE 411Q EMIT-BYTE 365Q CL:ZEROP 360Q EMIT-BYTE-LIST 351Q STORE-VAR 345Q DLAMBDA-REST 311Q DLAMBDA-REST 303Q DLAMBDA-REST 243Q EMIT-BYTE-LIST 240Q \APPEND2 232Q \APPEND2 226Q \APPEND2 223Q \APPEND2 206Q STORE-VAR 173Q STORE-VAR 163Q PUSH-INTEGER 105Q MAKE-DTAG 62Q DLAMBDA-OPTIONAL 55Q EMIT-BYTE-LIST 51Q \APPEND2 42Q PUSH-INTEGER 30Q CL:ZEROP 11Q CL:ZEROP 2 MAKE-DTAG) (600Q TAG 560Q 'NIL 547Q :IGNORED 511Q 'NIL 427Q TAG 402Q JUMP 334Q RESTLIST 331Q MYARGCOUNT 326Q 'NIL 314Q :IGNORED 201Q 'T 166Q ARG0 151Q TJUMP 146Q EQ 143Q '0 24Q MYARGCOUNT) ( 220Q ('1 IDIFFERENCE) 140Q (COPY) 46Q (IDIFFERENCE)) (PROCLAIM (QUOTE (SPECIAL *ENDING-DEPTH*))) (OR (BOUNDP (QUOTE *ENDING-DEPTH*)) (SETQ *ENDING-DEPTH* NIL)) (LET* ((A0327 (QUOTE *ENDING-DEPTH*)) (A0328 (QUOTE VARIABLE)) (A0329 "An AList mapping lexical level to the stack depth at exit from that level.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0327 A0328 A0329))) A0329)) (PROCLAIM (QUOTE (SPECIAL *STACK-NOTES*))) (OR (BOUNDP (QUOTE *STACK-NOTES*)) (SETQ *STACK-NOTES* NIL)) (LET* ((A0330 (QUOTE *STACK-NOTES*)) (A0331 (QUOTE VARIABLE)) (A0332 "An AList mapping the IDs of NOTE-STACK directives into the absolute stack depth at that point in the code." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0330 A0331 A0332))) A0332)) STACK-ANALYZE D1 (L (0 -args-) P 6 *STACK-NOTES* P 5 *ENDING-DEPTH* P 4 *LEVEL* F 7 *LEVEL*) >eka!lHñ‘j‚laºWdhhIj M[¿K•KJ “o °ì(72Q ASSERT-FAIL 62Q VALUES 56Q %%= 42Q STACK-ANALYZE-CODE) NIL ( 67Q "Code doesn't leave stack empty!") (LET* ((A0333 (QUOTE STACK-ANALYZE)) (A0334 (QUOTE CL:FUNCTION)) (A0335 "Walk the given code annotating the tags in it with information about the stack and binding depth of control at that point." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0333 A0334 A0335))) A0335)) STACK-ANALYZE-CODE D1 (L (2 INIT-BINDING-DEPTH 1 INIT-DEPTH 0 CODE) P 14Q *ENDING-DEPTH* P 13Q *LEVEL* F 15Q *LEVEL* F 16Q *STACK-NOTES* F 17Q *ENDING-DEPTH*) † AB’ @^µWW _¿O¢±Ch±@_]dgð²W¿O ³9OIH ¿WO •±oO °áoO ¿IHO ²çhgðO HIhMgð¨Mdgð²¿HkÕ¸O HI±£gð¨Mdgð²¿O HI¿HkÕX±gð³Mgð³MgðMgð§Mdgð—¿HkÔX±Ygð’±RMgð’±IMdgð—¿HkÕX±9gðOHWc±&Mgð¨Mdgð²O¿OW \§o ¿O»LºKJ¸I‘h€i³IHýó‘h€i‘h€i¤IY°èOgð¢±ÓHkÔX±Ëgð²1HO Õ¸OHI¹HkO lÔl ÔX±–Mgð¨Mdgð²0¿OI:‘h€i—o ¿II¹¸Ogð²`HkÔX°Ygð›HOkÕÕX°HMdgð’±þhgð´,WkÔOhWOHI¿OX´‚±þ<ŒoMo¿N±ý®i²¿O’±þO_¿H_¿OdO¿o ±ý‘(1201Q ASSERT-FAIL 1140Q VALUES 1124Q ECASE-FAIL 1071Q STACK-ANALYZE-CODE 746Q CL:ERROR 674Q MAX 671Q CL:FLOOR 661Q CL:LENGTH 632Q CL:LENGTH 522Q CL:ERROR 511Q CL:ASSOC 316Q STACK-ANALYZE-CODE 311Q DTAG-PTR 261Q STACK-ANALYZE-CODE 254Q DTAG-PTR 220Q STACK-ANALYZE-CODE 213Q DTAG-PTR 175Q VALUES 170Q CL:EQUAL 165Q DTAG-STACK-DEPTH 152Q ASSERT-FAIL 135Q ASSERT-FAIL 117Q VALUES 113Q %%= 110Q DTAG-LEVEL 76Q setf-DTAG-STACK-DEPTH 62Q DTAG-STACK-DEPTH 20Q CL:ASSOC) (1033Q CLOSE 1023Q RETURN 1000Q FN 764Q UNBIND 714Q DUNBIND 705Q UNBIND 617Q BIND 600Q SET-STACK 474Q DSET-STACK 465Q SET-STACK 441Q NOTE-STACK 424Q POP 412Q SWAP 401Q VAR_ 364Q PUSH-TAG 355Q LAMBDA 347Q CONST 340Q COPY 331Q VAR 276Q NTJUMP 267Q NFJUMP 235Q TJUMP 226Q FJUMP 202Q JUMP 47Q TAG) ( 1176Q "Ran off end twice" 1121Q (TAG JUMP FJUMP TJUMP NFJUMP NTJUMP VAR COPY CONST LAMBDA PUSH-TAG VAR_ SWAP POP NOTE-STACK SET-STACK DSET-STACK BIND UNBIND DUNBIND FN RETURN CLOSE) 1114Q (CAR INST) 743Q "Mismatched BIND and UNBIND." 517Q "NOTE-STACK not seen before SET-STACK" 143Q "Inconsistent stack depths at tag ~S" 126Q "Inconsistent level at tag ~S") (LET* ((A0336 (QUOTE STACK-ANALYZE-CODE)) (A0337 (QUOTE CL:FUNCTION)) (A0338 "Annotate the tags in CODE with the stack and binding depth at those points in execution, assuming that the stack depth is INIT-DEPTH and the binding depth is as in INIT-BINDING-DEPTH on entry to the code." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0336 A0337 A0338))) A0338)) ASSEMBLE D1 (L (0 LAP-CODE)) @j (4 ASSEMBLE-CODE) NIL () ASSEMBLE-CODEA0001 D1 (L (2 STARTING-SLOT 1 NUM-NILS 0 NUM-VALUES) F 0 A0517 F 1 DEPTH) M@ló˜o@ Aló²@lBlPjAlÕB@lÔÔlPgAàààà@ÔB@AÔÔkÕh Qd“kÔc(103Q EMIT-BYTE-LIST 14Q CL:ERROR) (56Q BIND) ( 10Q "Too many values bound in a BIND: ~S") ASSEMBLE-CODE D1 (L (2 BINDING-DEPTH 0 LAP-CODE) P 40Q *HUNK-MAP* P 37Q *LEVEL* P 36Q A0517 I 1 DEPTH F 41Q *HUNK-MAP* F 42Q *LEVEL*) }!@ñ°Hd ‘hY_4dgð²¿I ¿A¢±NAkÔb±Egð²$IHgð´H¸A•AkÕb¿i ±O4dgð²¿g ¿A¢±AkÔb±ÿgð˜g ±ñO4dgð²P¿I[o Z¡h€i–J °)Kdlð—¿gg3 ”K ŒggKhh ¿A¢±£AkÔb±šgð¢±»I_ µggkOhh°W!O6µaO8_¿WB h½\µoh__¿O¾gogggOOhgjoN o ¿A¢±AkÔb± _:¿O8•O:O8ó”O:_8¿O6_6°]Oýó‘h€i•Mµ‡i°„L±ÿ{O4dgð²¿g ¿A¢±ÅAkÕb±¼gð’±µO4gð«O4dgð¢±ê¿I_¿A³BgdIhIgð‘k€jh ¿B‘h€i’±tBOýó‘h€i‘h€i’±bBBb¿°ÝIgð“g‚g_¿B‘h€i³$BOýó‘h€i‘h€i³O ¿BBb¿b¿°ÙAOÕ_j:³DOk:²Ogð•o°-g °(Ogð²gOkÕgOkÕh†gOh ¿Ogð¢±ÉA¢±ÄAkÔb±»gð²Tg_<¿I_" _ ¿I_ _¿Ad—O OÔÕbBb¿O OO"µOµklO<±p °ó °íO4gð©O4dgð²T¿IIlÔÔl j_&¿_$¿O$O&ó‘h€i®I ¿O&kÔ_&¿°éBBb¿b¿Igð¢±A¢± AkÔb±gð²,gIh ¿I _(b¿g O( b±ÑO4dgð²¿I ¿A¢±¶AkÔb±gð³#O4gð³O4gð³O4gð©O4dgð²¿I ¿A¢±}AkÕb±tgð¢±II_2¿_0dlð¢±ØÁÉg'_.¡h€i²uO.²'¿O.d¡hh_,¿_*¿O*µoO0O2±¸oO0O.¿°Ê¦O*_,¿hˆO*_,¿O*_*¿O,µ jO,±‰™O,O2 ²µg O, °nO2dj:–¿o°6k:•o°-O2dl:–¿o°l:•o°O2l:”o‡gO2h ¿gO0h °žO0gð–O0 ˆoO0 ¿A²dAO2kÕÕb°YO4dgð˜¿g °Hgð´5I IWBi¿WDkÔO>IWB IABoO4o¿HX±ú(2564Q ECASE-FAIL 2544Q ASSEMBLE-CODE 2506Q CREATE-HUNK 2472Q CL:LENGTH 2454Q EMIT-BYTE 2417Q CL:ERROR 2405Q EMIT-BYTE-LIST 2363Q EMIT-BYTE 2347Q EMIT-BYTE-LIST 2241Q CL:MAPCAR 2233Q SYMBOL-FUNCTION 2223Q %%= 2145Q ASSERT-FAIL 2127Q CL:ERROR 2070Q VALUES 1765Q EMIT-BYTE 1674Q EMIT-BYTE-LIST 1671Q PUSH-INTEGER 1666Q DTAG-PC 1641Q CL:MAPCAR 1633Q SYMBOL-FUNCTION 1617Q DTAG-STACK-DEPTH 1610Q EMIT-BYTE 1513Q EMIT-BYTE 1465Q CL:FLOOR 1422Q DVAR-SLOT 1414Q DVAR-SLOT 1337Q CL:LENGTH 1323Q CL:LENGTH 1244Q EMIT-BYTE-LIST 1174Q EMIT-BYTE 1114Q EMIT-BYTE 772Q EMIT-BYTE-LIST 655Q EMIT-BYTE 556Q DVAR-LEVEL 553Q DVAR-FROM-LAP-VAR 531Q EMIT-BYTE-LIST 517Q \APPEND2 510Q CHOOSE-OP 423Q CL:REVERSE 355Q DLAMBDA-NON-LOCAL 317Q EMIT-BYTE-LIST 276Q PUSH-INTEGER 246Q EMIT-BYTE 233Q CL:ASSOC 203Q EMIT-BYTE 152Q EMIT-BYTE 127Q EMIT-BYTE-LIST 124Q STORE-VAR 44Q EMIT-BYTE-LIST 41Q REF-VAR 13Q ENDP) (2461Q CLOSE 2451Q RETURN 2443Q RETURN 2375Q :OPCODES 2353Q FN 2337Q FNX 2230Q EMIT-BYTE 2047Q DOPVAL 2006Q FN 1755Q NFJUMP 1745Q NTJUMP 1735Q FJUMP 1725Q TJUMP 1715Q JUMP 1654Q PUSH-TAG 1630Q CDR 1577Q TAG 1571Q TAG 1544Q UNBIND 1441Q DUNBIND 1431Q UNBIND 1310Q ASSEMBLE-CODEA0001 1277Q BIND 1252Q UNBIND 1234Q POP.N 1220Q POP.N 1211Q STORE.N 1203Q UNBIND 1171Q POP 1156Q UNBIND 1055Q DUNBIND 1051Q UNBIND 1044Q SET-STACK 756Q SET-STACK 742Q UNWIND 720Q DSET-STACK 710Q SET-STACK 676Q NOTE-STACK 652Q POP 643Q POP 477Q RPLPTR.N 464Q LAMBDA 461Q GCONST 456Q CREATECELL 447Q SICX 365Q LAMBDA 362Q GCONST 340Q LAMBDA 305Q LIT 302Q GCONST 266Q SYM 263Q ACONST 214Q CONST 200Q SWAP 173Q SWAP 147Q COPY 140Q COPY 102Q POP 65Q VAR_ 27Q VAR) ( 2561Q (VAR VAR_ COPY SWAP CONST LAMBDA POP NOTE-STACK SET-STACK DSET-STACK BIND UNBIND DUNBIND TAG PUSH-TAG JUMP TJUMP FJUMP NTJUMP NFJUMP FN RETURN CLOSE) 2553Q (CAR INST) 2412Q "BUG: Weird argument to FN: ~S" 2333Q (FN4) 2317Q (FN3) 2305Q (FN2) 2267Q (FN1) 2256Q (FN0) 2136Q "DOPVAL for ~S is not a list: ~S" 2120Q "Illegal number of arguments to ~S: ~S" 1164Q (SWAP POP) 514Q (RPLPTR.N 2) 504Q (PVAR . PVARX) 453Q (TYPE COMPILED-CLOSURE) 230Q ((0 . '0) (1 . '1) (NIL . 'NIL) (T . 'T))) (PROCLAIM (QUOTE (SPECIAL *JUMP-LIST*))) (OR (BOUNDP (QUOTE *JUMP-LIST*)) (SETQ *JUMP-LIST* NIL)) (LET* ((A0340 (QUOTE *JUMP-LIST*)) (A0341 (QUOTE VARIABLE)) (A0342 "A list of DJUMP and DTAG structures for use by jump resolution.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0340 A0341 A0342))) A0342)) (SETQ +JUMP-CHOICES+ (QUOTE ((JUMP JUMPX JUMPXX) (FJUMP FJUMPX (TJUMP 2)) (TJUMP TJUMPX (FJUMP 2)) ( NFJUMP NFJUMPX) (NTJUMP NTJUMPX)))) (PUTHASH (QUOTE +JUMP-CHOICES+) (QUOTE (CONSTANT +JUMP-CHOICES+)) COMPVARMACROHASH) (LET* ((A0343 (QUOTE +JUMP-CHOICES+)) (A0344 (QUOTE VARIABLE)) (A0345 "AList from kinds of jumps to lists of choices for implementation of that kind of jump. See SPLICE-IN-JUMPS for details." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0343 A0344 A0345))) A0345)) (SETQ +JUMP-RANGE-SIZE-MAP+ (QUOTE ((JUMP (-128 . 3) (2 . 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))))) (PUTHASH (QUOTE +JUMP-RANGE-SIZE-MAP+) (QUOTE (CONSTANT +JUMP-RANGE-SIZE-MAP+)) COMPVARMACROHASH) (LET* ((A0346 (QUOTE +JUMP-RANGE-SIZE-MAP+)) (A0347 (QUOTE VARIABLE)) (A0348 "An AList mapping kinds of jumps into an range-to-size table. The table is a list of pairs, sorted on the CAR. The shortest jump for a given distance is the CDR of the first pair whose CAR is strictly greater than the distance." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0346 A0347 A0348))) A0348)) (SETQ +JUMP-SIZES+ (QUOTE ((JUMP 1 3) (FJUMP 1 4) (TJUMP 1 4) (NFJUMP 2 6) (NTJUMP 2 6)))) (PUTHASH (QUOTE +JUMP-SIZES+) (QUOTE (CONSTANT +JUMP-SIZES+)) COMPVARMACROHASH) (LET* ((A0349 (QUOTE +JUMP-SIZES+)) (A0350 (QUOTE VARIABLE)) (A0351 "AList mapping kinds of jumps into the range of sizes for that kind, in bytes.")) (PROGN (COND (( FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0349 A0350 A0351))) A0351)) RESOLVE-JUMPS D1 (L (0 JUMP-LIST)) w@j2Hµ@ ²`h°^Z\dÃ—¿JI °GÃ´7J o »Jd J ó ¿JK ¿IJKKÕ ÔYŠgLo¿HX°ši²›@ (164Q SPLICE-IN-JUMPS 147Q CHECK-TYPE-FAIL 131Q setf-DJUMP-SIZE-UNCERTAINTY 113Q setf-DJUMP-MIN-SIZE 103Q setf-DJUMP-FORWARD-P 77Q DJUMP-MIN-PC 73Q DTAG-MIN-PC 70Q DJUMP-TAG 62Q CL:ASSOC 53Q DJUMP-KIND 40Q setf-DTAG-PC-UNCERTAINTY 15Q REDUCE-UNCERTAINTY) (137Q JUMP-OR-TAG 45Q DJUMP 31Q DTAG) ( 144Q (OR DTAG DJUMP) 57Q ((JUMP 1 3) (FJUMP 1 4) (TJUMP 1 4) (NFJUMP 2 6) (NTJUMP 2 6))) REDUCE-UNCERTAINTY D1 (L (0 JUMP-LIST)) =jdds @± d__dÃ²¿OJ ¿O\ IÔ»LK ±ùÃ´‚±ä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 ‘h€i²#jOó‘h€i²!¿HO OÕÔ¸OO ¿JOÔZ°o ¿°ÏgOo¿µ‚±þßJ ¤H ‘hi(466Q CL:ZEROP 461Q CL:ZEROP 444Q CHECK-TYPE-FAIL 425Q ASSERT-FAIL 405Q setf-DJUMP-SIZE-UNCERTAINTY 371Q DJUMP-SIZE-UNCERTAINTY 362Q VALUES 337Q %%= 332Q DJUMP-SIZE-UNCERTAINTY 314Q setf-DJUMP-MIN-SIZE 302Q DJUMP-MIN-SIZE 267Q DJUMP-MIN-SIZE 255Q COMPUTE-JUMP-SIZE 243Q COMPUTE-JUMP-SIZE 224Q DTAG-PC-UNCERTAINTY 213Q DJUMP-MIN-PC 206Q DTAG-MIN-PC 174Q DTAG-PC-UNCERTAINTY 161Q DJUMP-MIN-PC 154Q DTAG-MIN-PC 145Q DJUMP-FORWARD-P 133Q DJUMP-KIND 126Q DJUMP-TAG 113Q DJUMP-SIZE-UNCERTAINTY 105Q setf-DJUMP-MIN-PC 75Q DJUMP-MIN-PC 53Q setf-DTAG-MIN-PC 43Q DTAG-MIN-PC 34Q setf-DTAG-PC-UNCERTAINTY) (433Q JUMP-OR-TAG 61Q DJUMP 23Q DTAG) ( 441Q (OR DTAG DJUMP) 422Q "The size uncertainty went negative") SPLICE-IN-JUMPS D1 (L (0 JUMP-LIST)) þ @±ódaHd ›¿Hd ±Ù ¾H H Õ½H \M »Lo ºKYdk:¿NLMlÕh±¡l:²"NJjMó•MnÔ€MN OOO°|Il:§Idl:²2¿Kl –NJŽNJgN¾N¿NMãlÿåMlÿåN°?l:´/NJlogMlÕãMlÕlÿåN OOO‹gIo¿µ‚±ÿh(360Q ECASE-FAIL 212Q %%= 75Q CL:ASSOC 64Q COMPUTE-JUMP-SIZE 57Q DJUMP-KIND 51Q DJUMP-MIN-PC 45Q DTAG-MIN-PC 42Q DJUMP-TAG 35Q DJUMP-PTR 27Q setf-DTAG-PC 24Q DTAG-MIN-PC 15Q DTAG-P) (350Q SIZE 305Q JUMPXX 232Q JUMPXX) ( 355Q (1 2 3 4 6) 302Q (JUMP 4) 72Q ((JUMP JUMPX JUMPXX) (FJUMP FJUMPX (TJUMP 2)) (TJUMP TJUMPX (FJUMP 2)) (NFJUMP NFJUMPX) (NTJUMP NTJUMPX))) COMPUTE-JUMP-SIZE D1 (L (1 DISTANCE 0 KIND)) %@o HµŠ¹AIýó•IµIHX°ë(7 CL:ASSOC) NIL ( 4 ((JUMP (-200Q . 3) (2 . 2) (22Q . 1) (200Q . 2) (100000Q . 3)) (FJUMP (-200Q . 4) (2 . 2) (22Q . 1) (200Q . 2) (100000Q . 4)) (TJUMP (-200Q . 4) (2 . 2) (22Q . 1) (200Q . 2) (100000Q . 4)) (NFJUMP (-200Q . 6) (200Q . 2) (100000Q . 6)) (NTJUMP (-200Q . 6) (200Q . 2) (100000Q . 6)))) PRETTY-JUMPS D1 (F 5 *JUMP-LIST*) –PU ±…d\[dÃ²¿ggL gL h°OÃ´?L gL gL gL gL ggL hhŠgKo¸I‘h€i”HhZ‚IH&¹µ‚±ÿzJ(172Q CHECK-TYPE-FAIL 137Q DTAG-MIN-PC 134Q DJUMP-TAG 122Q DJUMP-SIZE-UNCERTAINTY 113Q DJUMP-FORWARD-P 104Q DJUMP-MIN-SIZE 75Q DJUMP-MIN-PC 66Q DJUMP-KIND 45Q DTAG-PC-UNCERTAINTY 36Q DTAG-MIN-PC 6 CL:REVERSE) (162Q JUMP-OR-TAG 130Q :MIN-PC 125Q :TAG 116Q :SIZE-UNCERTAINTY 107Q :FORWARD-P 100Q :MIN-SIZE 71Q :MIN-PC 60Q DJUMP 41Q :PC-UNCERTAINTY 32Q :MIN-PC 27Q TAG 21Q DTAG) ( 167Q (OR DTAG DJUMP)) CONVERT-TO-BINARY D1 (L (0 BYTE-LIST) F 24Q *DCODE*) y@ goñW( W( ÔkØmþålÔ¹@jO"µ W(H _&¿H_ ¿O$_¿O&__dÃ•¿O&± Ã˜O& ±OÃ´‚±éO&_dgð²¿W(»O$O&hK ºKJ ¿j±Ìgð²W(½O$O&hM ¼ML ¿j±ªOdgð²#¿W(_¿O$O&hO ¾ON ¿j±€gð²$W(_¿O$O&hO _¿OO ¿j°WOdgð²-¿W(_¿O$O&O& hO _¿OO ¿j°#gð‘I‡O& O&Ô‹gOoO O·¿O"_"¿O$kÔ_$¿±þ¸(541Q CHECK-TYPE-FAIL 515Q \FINDOP 474Q setf-DCODE-LIT-FIXUPS 461Q DCODE-LIT-FIXUPS 451Q DCODE-FROM-DLAMBDA 410Q setf-DCODE-TYPE-FIXUPS 375Q DCODE-TYPE-FIXUPS 337Q setf-DCODE-FN-FIXUPS 327Q DCODE-FN-FIXUPS 265Q setf-DCODE-LIT-FIXUPS 256Q DCODE-LIT-FIXUPS 223Q setf-DCODE-SYM-FIXUPS 214Q DCODE-SYM-FIXUPS 140Q \FINDOP 70Q setf-DCODE-CODE-ARRAY 35Q DCODE-NFREEVARS 30Q DCODE-NLOCALS 15Q MAKE-ARRAY 3 CL:LENGTH) (530Q BYTE 503Q UNWIND 422Q LAMBDA 347Q TYPE 300Q FN 233Q LIT 170Q SYM 151Q LISTP 132Q LITATOM 120Q SMALLP 6 :ELEMENT-TYPE) ( 536Q (OR FIXNUM SYMBOL CONS) 12Q (UNSIGNED-BYTE 10Q)) COMPUTE-DEBUGGING-INFOA0001 D1 (L (0 OPT-VAR)) @ (4 DVAR-NAME) NIL () COMPUTE-DEBUGGING-INFO D1 (L (0 DLAMBDA) F 0 *DCODE*) uPg @ @ ´gg@ @ ´@ gðhð´g@ h@ ´gg @ @ ´o h (162Q setf-DCODE-DEBUGGING-INFO 155Q \APPEND2 152Q \APPEND2 147Q \APPEND2 144Q \APPEND2 133Q DLAMBDA-ALLOW-OTHER-KEYS 126Q CL:MAPCAR 123Q DLAMBDA-KEY 117Q SYMBOL-FUNCTION 104Q DLAMBDA-KEY 75Q DVAR-NAME 72Q DLAMBDA-REST 53Q DLAMBDA-REST 45Q DLAMBDA-REST 40Q CL:MAPCAR 35Q DLAMBDA-OPTIONAL 21Q DLAMBDA-OPTIONAL 15Q CL:MAPCAR 12Q DLAMBDA-REQUIRED 6 SYMBOL-FUNCTION) (114Q CL:FIRST 111Q &KEY 66Q &REST 56Q :IGNORED 31Q COMPUTE-DEBUGGING-INFOA0001 26Q &OPTIONAL 3 DVAR-NAME) ( 141Q (&ALLOW-OTHER-KEYS)) ALLOCATE-CODE-BLOCK D1 (L (1 CODE-LEN 0 NT-COUNT)) <@kÔlØmüå@ ’l‚HdÔl ÔlÖYAÔlØmøåIl kÔkØmþå I (71Q VALUES 65Q \ALLOC.CODE.BLOCK 53Q CEILING 17Q CL:ZEROP) NIL () (LET* ((A0352 (QUOTE ALLOCATE-CODE-BLOCK)) (A0353 (QUOTE CL:FUNCTION)) (A0354 "Return a code-array that is large enough to hold a compiled function with a name-table NT-COUNT entries long and with CODE-LEN bytecodes. Also return, as a second value, the index in that code-array of the place to put the first bytecode." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0352 A0353 A0354))) A0354)) FIXUP-PTR D1 (L (2 PTR 1 OFFSET 0 BASE) P 1 \INTERRUPTABLE) 'BÓB¿@ABÒÇ¿@AkÔHãÇ¿@AlÔHlÿåÇBNIL NIL () FIXUP-WORD D1 (L (2 WORD 1 OFFSET 0 BASE)) @ABãÇ@AkÔBlÿåÇBNIL NIL () INTERN-DCODE D1 (L (0 -args-) P 54Q \INTERRUPTABLE P 53Q \INTERRUPTABLE) '-ekañðP$lHñ—I ‚laºI [ kÔlØmüå\lÖ½K ’l‚LdÔ¾h__¿J¥I °WI _¿K O __¿O_¿O kÕjO'OLOJó³OONOOL¶Ç¿OLkÔ_L¿ONkÔ_N¿°àO_¿K jl*OPORó‘h€i³ZKOR _¿OOTOÓ¿OOTMÔOáààààààOÔ¿O³Ol ™OTl _¿ORkÔOTlÔ_T¿_R¿°ŸOI nÿÿåÍOI I Ôl kÕnÿÿåÍOlNlÖlÔÔÍOI Ï!I _¿+O¿,Ol OÒlÿåÇ¿OOÓÍOLÍOI ÏOOµjÏ‡OI gð‘k€j_Ïp¿OjðhðOdÈdnÿñ•nÿÿÙkÙOÈdnÿñ•nÿÿÙkÙkØàØàl,ØÍOlNlÖkÔÔI OÈ_H¿I j_(¿_&¿O&O(ó‘h€i³/I O( _$_"¿O$_ ¿OOHO"ÔO Ó¿O(kÔ_(¿°ÊI j_2¿_0¿O0O2ó‘h€i³/I O2 _._,¿O._*¿OOHO,ÔO*Ó¿O2kÔ_2¿°ÊI j_<¿_:¿O:O<ó‘h€i³9I O< _8_6¿O8_4¿OOHO6ÔO4d •¿O4 ¿O¿OOHO@ÔO> ¿OFkÔ_F¿°ÈI gð•O O(1441Q MAKE-COMPILED-CLOSURE 1427Q DCODE-CLOSURE-P 1411Q FIXUP-WORD 1406Q \RESOLVE.TYPENUMBER 1355Q CL:ELT 1350Q DCODE-TYPE-FIXUPS 1322Q CL:LENGTH 1317Q DCODE-TYPE-FIXUPS 1301Q FIXUP-PTR 1276Q INTERN-DCODE 1267Q DCODE-P 1235Q CL:ELT 1230Q DCODE-LIT-FIXUPS 1202Q CL:LENGTH 1177Q DCODE-LIT-FIXUPS 1161Q FIXUP-WORD 1127Q CL:ELT 1122Q DCODE-SYM-FIXUPS 1074Q CL:LENGTH 1071Q DCODE-SYM-FIXUPS 1053Q FIXUP-WORD 1021Q CL:ELT 1014Q DCODE-FN-FIXUPS 766Q CL:LENGTH 763Q DCODE-FN-FIXUPS 750Q FIXUP-PTR 745Q DCODE-DEBUGGING-INFO 627Q DCODE-CLOSURE-P 604Q DCODE-NLOCALS 526Q DCODE-FRAME-NAME 517Q DCODE-ARG-TYPE 463Q CEILING 455Q DCODE-NFREEVARS 451Q DCODE-NLOCALS 435Q DCODE-NUM-ARGS 402Q CL:FLOOR 372Q %%= 355Q FIXUP-WORD 324Q FIXUP-WORD 304Q CL:ELT 255Q CL:LENGTH 171Q CL:LENGTH 147Q \MVLIST 144Q ALLOCATE-CODE-BLOCK 141Q CL:LENGTH 134Q CL:LENGTH 125Q DCODE-CODE-ARRAY 117Q DCODE-CODE-ARRAY 73Q CL:ZEROP 70Q CL:LENGTH 47Q CL:LENGTH 43Q DCODE-NAME-TABLE 32Q CL:ARRAYP 27Q DCODE-CODE-ARRAY) (1432Q :FUNCTION 632Q :CLOSURE) () (PUTPROPS D-ASSEM FILETYPE COMPILE-FILE) (PUTPROPS D-ASSEM COPYRIGHT ("Xerox Corporation" 1986)) NIL