(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "D-ASSEM" (USE "LISP"))) (il:filecreated "30-Oct-86 16:18:27" ("compiled on " il:{eris}sources>d-assem.\;5) "21-Oct-86 04:13:01" "COMPILE-FILEd" il:|in| "Xerox Lisp 21-Oct-86 ..." il:|dated| "21-Oct-86 04:48:43") (il:filecreated "20-Oct-86 22:51:10" il:{eris}sources>d-assem.\;5 88318 il:|changes| il:|to:| (il:vars il:d-assemcoms) (il:structures dcode djump dlambda dtag dvar) (il:props (il:d-assem il:makefile-environment)) (il:variables +ivar-code+ +pvar-code+ +fvar-code+ +lambda-spread+ +nlambda-spread+ +lambda-no-spread+ +nlambda-no-spread+ +constant-opcodes+ *bytes* *byte-count* *dtag-env* *dvar-env* *hunk-map* *dcode* *level* *hunk-size* *pvar-count* *free-vars* *bound-specials* *ending-depth* *stack-notes* *jump-list* +jump-choices+ +jump-range-size-map+ +jump-sizes+) ( il:functions create-hunk type-name-from-size release-circularities start-bytes emit-byte emit-byte-list end-bytes choose-op ref-var store-var max-arg push-integer assemble-function dlambda-from-lambda dcode-from-dlambda digest-function digest-code store-digest-info dvar-from-lap-var lap-var-id install-local install-var intern-var intern-tag easy-entry-p generate-easy-entry generate-hard-entry generate-arg-check generate-key generate-opt-and-rest stack-analyze stack-analyze-code assemble assemble-code resolve-jumps reduce-uncertainty splice-in-jumps compute-jump-size convert-to-binary compute-debugging-info allocate-code-block fixup-ptr fixup-word intern-dcode pretty-jumps) il:|previous| il:|date:| "10-Oct-86 01:30:07" il:{eris}sources>d-assem.\;4) (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:p ( il:defprint (quote dtag) nil)) (il:functions create-hunk type-name-from-size) (il:functions release-circularities)) (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 ref-var store-var max-arg push-integer)) (il:coms (il:* il:|;;| "Main driving") (il:variables *dtag-env* *dvar-env* *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:functions digest-function 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* *stack-notes*) (il:functions 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: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 allocate-code-block fixup-ptr fixup-word intern-dcode)) (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) (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)) ( 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))) 26 (quote nil )) |type-expand-DCODE| il:d1 (il:l (0 il:$$type-form)) onil nil ( 3 (il:datatype dcode)) (il:put (quote dcode) (quote il:type-expander) (quote |type-expand-DCODE|)) dcode-p il:d1 (il:l (0 cl::object)) @inil (3 dcode) () dcode-frame-name il:d1 (il:l (0 dcode)) @nil (3 dcode) () dcode-nlocals il:d1 (il:l (0 dcode)) @nil (3 dcode) () dcode-nfreevars il:d1 (il:l (0 dcode)) @nil (3 dcode) () dcode-arg-type il:d1 (il:l (0 dcode)) @nil (3 dcode) () dcode-num-args il:d1 (il:l (0 dcode)) @nil (3 dcode) () dcode-name-table il:d1 (il:l (0 dcode)) @ nil (3 dcode) () dcode-debugging-info il:d1 (il:l (0 dcode)) @ nil (3 dcode) () dcode-code-array il:d1 (il:l (0 dcode)) @nil (3 dcode) () dcode-fn-fixups il:d1 (il:l (0 dcode)) @nil (3 dcode) () dcode-sym-fixups il:d1 (il:l (0 dcode)) @nil (3 dcode) () dcode-lit-fixups il:d1 (il:l (0 dcode)) @nil (3 dcode) () dcode-type-fixups il:d1 (il:l (0 dcode)) @nil (3 dcode) () dcode-closure-p il:d1 (il:l (0 dcode)) @nil (3 dcode) () (remprop (quote dcode-frame-name) (quote il:setf-method-expander)) (il:putprops dcode-frame-name il:setf-inverse %%setf-dcode-frame-name) %%setf-dcode-frame-name il:d1 (il:l (1 cl::value 0 dcode)) @AAnil (3 dcode) () (remprop (quote dcode-nlocals) (quote il:setf-method-expander)) (il:putprops dcode-nlocals il:setf-inverse %%setf-dcode-nlocals) %%setf-dcode-nlocals il:d1 (il:l (1 cl::value 0 dcode)) @AAnil (3 dcode) () (remprop (quote dcode-nfreevars) (quote il:setf-method-expander)) (il:putprops dcode-nfreevars il:setf-inverse %%setf-dcode-nfreevars) %%setf-dcode-nfreevars il:d1 (il:l (1 cl::value 0 dcode)) @AAnil (3 dcode) () (remprop (quote dcode-arg-type) (quote il:setf-method-expander)) (il:putprops dcode-arg-type il:setf-inverse %%setf-dcode-arg-type) %%setf-dcode-arg-type il:d1 (il:l (1 cl::value 0 dcode)) @AAnil (3 dcode) () (remprop (quote dcode-num-args) (quote il:setf-method-expander)) (il:putprops dcode-num-args il:setf-inverse %%setf-dcode-num-args) %%setf-dcode-num-args il:d1 (il:l (1 cl::value 0 dcode)) @AAnil (3 dcode) () (remprop (quote dcode-name-table) (quote il:setf-method-expander)) (il:putprops dcode-name-table il:setf-inverse %%setf-dcode-name-table) %%setf-dcode-name-table il:d1 (il:l (1 cl::value 0 dcode)) @A Anil (3 dcode) () (remprop (quote dcode-debugging-info) (quote il:setf-method-expander)) (il:putprops dcode-debugging-info il:setf-inverse %%setf-dcode-debugging-info) %%setf-dcode-debugging-info il:d1 (il:l (1 cl::value 0 dcode)) @A Anil (3 dcode) () (remprop (quote dcode-code-array) (quote il:setf-method-expander)) (il:putprops dcode-code-array il:setf-inverse %%setf-dcode-code-array) %%setf-dcode-code-array il:d1 (il:l (1 cl::value 0 dcode)) @AAnil (3 dcode) () (remprop (quote dcode-fn-fixups) (quote il:setf-method-expander)) (il:putprops dcode-fn-fixups il:setf-inverse %%setf-dcode-fn-fixups) %%setf-dcode-fn-fixups il:d1 (il:l (1 cl::value 0 dcode)) @AAnil (3 dcode) () (remprop (quote dcode-sym-fixups) (quote il:setf-method-expander)) (il:putprops dcode-sym-fixups il:setf-inverse %%setf-dcode-sym-fixups) %%setf-dcode-sym-fixups il:d1 (il:l (1 cl::value 0 dcode)) @AAnil (3 dcode) () (remprop (quote dcode-lit-fixups) (quote il:setf-method-expander)) (il:putprops dcode-lit-fixups il:setf-inverse %%setf-dcode-lit-fixups) %%setf-dcode-lit-fixups il:d1 (il:l (1 cl::value 0 dcode)) @AAnil (3 dcode) () (remprop (quote dcode-type-fixups) (quote il:setf-method-expander)) (il:putprops dcode-type-fixups il:setf-inverse %%setf-dcode-type-fixups) %%setf-dcode-type-fixups il:d1 (il:l (1 cl::value 0 dcode)) @AAnil (3 dcode) () (remprop (quote dcode-closure-p) (quote il:setf-method-expander)) (il:putprops dcode-closure-p il:setf-inverse %%setf-dcode-closure-p) %%setf-dcode-closure-p il:d1 (il:l (1 cl::value 0 dcode)) @AAnil (3 dcode) () make-dcode il:d1 (il:l (0 il:|-args-|)) 'eHkJdIop&HkKdJjHkNdMj_Hk__OdOh_Hk__OdOj_Hk__OdOh_ Hk_$_"O$dO"h_&Hk_*_(O*dO(h_,Hk_0_.O0dO.h_2Hk_6_4O6dO4h_8Hk_<_:OHk_B_@OBdO@h_DHk_H_FOHdOFh_J`_LIOLLOLOOLOOLOOLO  OLO& OLO,OLO2OLO8OLO>OLODOLOJOLagJkalJlZXagKkaoKl[^agNkaiNl^XagOkajOl_VagOkaiOl_UagOkahOl_TagO$kagO$l_$SagO*kafO*l_*RagO0kaeO0l_0QagO6kadO6l_6PagO representing the state of the stack analyzer last time it was here. PTR is the tail of the code list starting with this tag, used by the stack analyzer. PC is the final location of this tag, after jump resolution. MIN-PC is the least location at which this tag could end up, used during jump resolution. PC-UNCERTAINTY is the amount of slack there is in the final location of this tag, used during jump resolution." )) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0028 il:a0029 il:a0030 ))) il:a0030)) (si::%structure-declare-datatype (quote dtag) (quote (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))) 12 (quote nil)) |type-expand-DTAG| il:d1 (il:l (0 il:$$type-form)) onil nil ( 3 (il:datatype dtag)) (il:put (quote dtag) (quote il:type-expander) (quote |type-expand-DTAG|)) dtag-p il:d1 (il:l (0 cl::object)) @inil (3 dtag) () dtag-level il:d1 (il:l (0 dtag)) @nil (3 dtag) () dtag-stack-depth il:d1 (il:l (0 dtag)) @nil (3 dtag) () dtag-ptr il:d1 (il:l (0 dtag)) @nil (3 dtag) () dtag-pc il:d1 (il:l (0 dtag)) @nil (3 dtag) () dtag-min-pc il:d1 (il:l (0 dtag)) @nil (3 dtag) () dtag-pc-uncertainty il:d1 (il:l (0 dtag)) @ nil (3 dtag) () (remprop (quote dtag-level) (quote il:setf-method-expander)) (il:putprops dtag-level il:setf-inverse %%setf-dtag-level) %%setf-dtag-level il:d1 (il:l (1 cl::value 0 dtag)) @AAnil (3 dtag) () (remprop (quote dtag-stack-depth) (quote il:setf-method-expander)) (il:putprops dtag-stack-depth il:setf-inverse %%setf-dtag-stack-depth) %%setf-dtag-stack-depth il:d1 (il:l (1 cl::value 0 dtag)) @AAnil (3 dtag) () (remprop (quote dtag-ptr) (quote il:setf-method-expander)) (il:putprops dtag-ptr il:setf-inverse %%setf-dtag-ptr) %%setf-dtag-ptr il:d1 (il:l (1 cl::value 0 dtag)) @AAnil (3 dtag) () (remprop (quote dtag-pc) (quote il:setf-method-expander)) (il:putprops dtag-pc il:setf-inverse %%setf-dtag-pc) %%setf-dtag-pc il:d1 (il:l (1 cl::value 0 dtag)) @AAnil (3 dtag) () (remprop (quote dtag-min-pc) (quote il:setf-method-expander)) (il:putprops dtag-min-pc il:setf-inverse %%setf-dtag-min-pc) %%setf-dtag-min-pc il:d1 (il:l (1 cl::value 0 dtag)) @AAnil (3 dtag) () (remprop (quote dtag-pc-uncertainty) (quote il:setf-method-expander)) (il:putprops dtag-pc-uncertainty il:setf-inverse %%setf-dtag-pc-uncertainty) %%setf-dtag-pc-uncertainty il:d1 (il:l (1 cl::value 0 dtag)) @A Anil (3 dtag) () make-dtag il:d1 (il:l (0 il:|-args-|)) BeHkJdIhHkKdJhHkNdMh_Hk__OdOh_Hk__OdOh_Hk__OdOh_ `_"IO"LO"OO"OO"OO"O  O"agJkaOJlZ>agKkaOKl[>agNkaINl^8agOkaJOl_6agOkaIOl_5agOkaHOl_4nil (300 :pc-uncertainty 276 :min-pc 252 :pc 231 :ptr 210 :stack-depth 189 :level 178 dtag 169 dtag 160 dtag 151 dtag 143 dtag 135 dtag 129 il:|DTAGTYPE#|) () copy-dtag il:d1 (il:l (0 dtag)) [@HB`H@H@H@H@H@H@  HigHg b(84 il:check-type-fail) (81 dtag 77 dtag 66 dtag 57 dtag 48 dtag 39 dtag 30 dtag 21 dtag 13 il:|DTAGTYPE#| 7 dtag) () (il:defprint (quote dtag) (quote cl::default-structure-printer)) (cl::set-parsed-structure (quote dtag) (quote (cl::ps dtag make-dtag (level stack-depth ptr pc min-pc pc-uncertainty) cl::datatype nil nil dtag- (make-dtag) dtag-p cl::default-structure-printer copy-dtag nil 0 ((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)) ((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)) nil "LEVEL is the lexical level of this tag, for use by the stack analyzer. STACK-DEPTH is a pair representing the state of the stack analyzer last time it was here. PTR is the tail of the code list starting with this tag, used by the stack analyzer. PC is the final location of this tag, after jump resolution. MIN-PC is the least location at which this tag could end up, used during jump resolution. PC-UNCERTAINTY is the amount of slack there is in the final location of this tag, used during jump resolution." (il:pointer il:pointer il:pointer il:pointer il:pointer il:pointer)))) (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 nil) ) |type-expand-DVAR| il:d1 (il:l (0 il:$$type-form)) onil nil ( 3 (il:datatype dvar)) (il:put (quote dvar) (quote il:type-expander) (quote |type-expand-DVAR|)) dvar-p il:d1 (il:l (0 cl::object)) @inil (3 dvar) () dvar-kind il:d1 (il:l (0 dvar)) @nil (3 dvar) () dvar-level il:d1 (il:l (0 dvar)) @nil (3 dvar) () dvar-slot il:d1 (il:l (0 dvar)) @nil (3 dvar) () dvar-name il:d1 (il:l (0 dvar)) @nil (3 dvar) () (remprop (quote dvar-kind) (quote il:setf-method-expander)) (il:putprops dvar-kind il:setf-inverse %%setf-dvar-kind) %%setf-dvar-kind il:d1 (il:l (1 cl::value 0 dvar)) @AAnil (3 dvar) () (remprop (quote dvar-level) (quote il:setf-method-expander)) (il:putprops dvar-level il:setf-inverse %%setf-dvar-level) %%setf-dvar-level il:d1 (il:l (1 cl::value 0 dvar)) @AAnil (3 dvar) () (remprop (quote dvar-slot) (quote il:setf-method-expander)) (il:putprops dvar-slot il:setf-inverse %%setf-dvar-slot) %%setf-dvar-slot il:d1 (il:l (1 cl::value 0 dvar)) @AAnil (3 dvar) () (remprop (quote dvar-name) (quote il:setf-method-expander)) (il:putprops dvar-name il:setf-inverse %%setf-dvar-name) %%setf-dvar-name il:d1 (il:l (1 cl::value 0 dvar)) @AAnil (3 dvar) () make-dvar il:d1 (il:l (0 il:|-args-|)) eHkJdIbh HkKdJehHkNdMkh_Hk__OdOih_`_IOLOOOOOagJkaJlZagKkaKl[agNkaNl^agOkaOl_nil (171 :name 152 :slot 133 :level 114 :kind 103 dvar 94 dvar 86 dvar 78 dvar 72 il:|DVARTYPE#|) () copy-dvar il:d1 (il:l (0 dvar)) I@H0`H@H@H@H@HigHg b(66 il:check-type-fail) (63 dvar 59 dvar 48 dvar 39 dvar 30 dvar 21 dvar 13 il:|DVARTYPE#| 7 dvar) () (il:defprint (quote dvar) (quote cl::default-structure-printer)) (cl::set-parsed-structure (quote dvar) (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 ((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)) ((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)))) (il:defprint (quote dtag) nil) create-hunk il:d1 (il:l (3 pop-p 2 prev-slot 1 my-slot 0 hunk-size)) 2gg@ hgBoB o AC  (47 emit-byte-list 41 il:\\append2 38 store-var 33 il:\\append2 26 choose-op 9 type-name-from-size) (15 il:createcell 5 type 2 il:sicx) ( 30 (il:rplptr.n 0) 22 (il:pvar . il:pvarx)) type-name-from-size il:d1 (il:l (0 len) il:f 2 il:\\hunk.ptrsizes) )gRHo@ h @IIHX(24 il:pack* 18 error) (2 \\ptrhunk) ( 14 "Can't make a hunk that big: ~S") release-circularities il:d1 (il:l (0 code)) @dHgHh h(21 %%setf-dtag-ptr) (12 tag) () (let* ((il:a0039 (quote release-circularities)) (il:a0040 (quote function)) (il:a0041 "NIL out any circularities in the LAP code given.")) (progn (cond ((fboundp (quote il:set-documentation )) (il:set-documentation il:a0039 il:a0040 il:a0041))) il:a0041)) (il:setq +ivar-code+ 0) (il:puthash (quote +ivar-code+) (quote (il:constant +ivar-code+)) il:compvarmacrohash) (let* ((il:a0042 (quote +ivar-code+)) (il:a0043 (quote cl::variable)) (il:a0044 "Code in name-table for IVARs")) (progn (cond ((fboundp (quote il:set-documentation)) ( il:set-documentation il:a0042 il:a0043 il:a0044))) il:a0044)) (il:setq +pvar-code+ 2) (il:puthash (quote +pvar-code+) (quote (il:constant +pvar-code+)) il:compvarmacrohash) (let* ((il:a0045 (quote +pvar-code+)) (il:a0046 (quote cl::variable)) (il:a0047 "Code in name-table for PVARs")) (progn (cond ((fboundp (quote il:set-documentation)) ( il:set-documentation il:a0045 il:a0046 il:a0047))) il:a0047)) (il:setq +fvar-code+ 3) (il:puthash (quote +fvar-code+) (quote (il:constant +fvar-code+)) il:compvarmacrohash) (let* ((il:a0048 (quote +fvar-code+)) (il:a0049 (quote cl::variable)) (il:a0050 "Code in name-table for FVARs")) (progn (cond ((fboundp (quote il:set-documentation)) ( il:set-documentation il:a0048 il:a0049 il:a0050))) il:a0050)) (il:setq +lambda-spread+ 0) (il:puthash (quote +lambda-spread+) (quote (il:constant +lambda-spread+)) il:compvarmacrohash) (let* ((il:a0051 (quote +lambda-spread+)) (il:a0052 (quote cl::variable)) (il:a0053 "ARGTYPE value for lambda spread functions")) (progn (cond ((fboundp (quote il:set-documentation)) ( il:set-documentation il:a0051 il:a0052 il:a0053))) il:a0053)) (il:setq +nlambda-spread+ 1) (il:puthash (quote +nlambda-spread+) (quote (il:constant +nlambda-spread+)) il:compvarmacrohash) (let* ((il:a0054 (quote +nlambda-spread+)) (il:a0055 (quote cl::variable)) (il:a0056 "ARGTYPE value for nlambda spread functions")) (progn (cond ((fboundp (quote il:set-documentation)) ( il:set-documentation il:a0054 il:a0055 il:a0056))) il:a0056)) (il:setq +lambda-no-spread+ 2) (il:puthash (quote +lambda-no-spread+) (quote (il:constant +lambda-no-spread+)) il:compvarmacrohash) (let* ((il:a0057 (quote +lambda-no-spread+)) (il:a0058 (quote cl::variable)) (il:a0059 "ARGTYPE value for lambda no-spread functions")) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0057 il:a0058 il:a0059))) il:a0059)) (il:setq +nlambda-no-spread+ 3) (il:puthash (quote +nlambda-no-spread+) (quote (il:constant +nlambda-no-spread+)) il:compvarmacrohash) (let* ((il:a0060 (quote +nlambda-no-spread+)) (il:a0061 (quote cl::variable)) (il:a0062 "ARGTYPE value for nlambda no-spread functions")) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0060 il:a0061 il:a0062))) il:a0062)) (il:setq +constant-opcodes+ (quote ((0 . il:\'0) (1 . il:\'1) (nil . il:\'nil) (t . il:\'t)))) (il:puthash (quote +constant-opcodes+) (quote (il:constant +constant-opcodes+)) il:compvarmacrohash) (let* ((il:a0063 (quote +constant-opcodes+)) (il:a0064 (quote cl::variable)) (il:a0065 "An AList of all constants with dedicated opcodes.")) (progn (cond ((fboundp (quote il:set-documentation )) (il:set-documentation il:a0063 il:a0064 il:a0065))) il:a0065)) (proclaim (quote (special *bytes*))) (or (boundp (quote *bytes*)) (il:setq *bytes* nil)) (let* ((il:a0066 (quote *bytes*)) (il:a0067 (quote cl::variable)) (il:a0068 "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." )) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0066 il:a0067 il:a0068 ))) il:a0068)) (proclaim (quote (special *byte-count*))) (or (boundp (quote *byte-count*)) (il:setq *byte-count* 0)) (let* ((il:a0069 (quote *byte-count*)) (il:a0070 (quote cl::variable)) (il:a0071 "The number of bytes put on *bytes* so far.")) (progn (cond ((fboundp (quote il:set-documentation)) ( il:set-documentation il:a0069 il:a0070 il:a0071))) il:a0071)) start-bytes il:d1 nil hnil nil () emit-byte il:d1 (il:l (0 byte) il:f 1 *bytes* il:f 2 *byte-count* il:f 3 *jump-list* il:f 4 +jump-sizes+) @d Hdg@R @ScgHgHgHgHdg0@Qcg@g@gQgR ScR@T cgHgHdg@QcjQcRlcgHdg@QcjQcjQcRlcgQcg@hQcjQcRkcHg&Qcdcg@hQcjQcjQcRkc@QcRkcQcRkc(106 assoc 95 make-djump 25 %%setf-dtag-min-pc) (236 lit 222 il:ptr 198 sym 188 il:atom 159 lit 152 lambda 128 type 121 fn 115 sym 90 :min-pc 86 :ptr 80 :tag 75 :kind 63 :ntjump 56 :nfjump 50 :tjump 43 :fjump 36 :jump 15 :tag) () emit-byte-list il:d1 (il:l (0 l)) @d h(6 emit-byte) nil () end-bytes il:d1 (il:f 0 *bytes*) P (3 nreverse) nil () choose-op il:d1 (il:l (1 arg 0 choices)) A@ @Ahh@Ah(5 max-arg) nil () ref-var il:d1 (il:l (0 var) il:f 10 *hunk-map*) @d @ aHdgo@ go@ Hdgo@ gl@ W hZ6h\LoN MIk OO*Ogjh _Ok_IKKiJOg@ h oHo @ggg@hho@ (232 error 197 il:ecase-fail 184 il:\\append2 181 il:\\append2 174 dvar-slot 136 il:\\nconc2 110 choose-op 89 reverse 83 dvar-level 72 choose-op 69 dvar-slot 52 choose-op 49 dvar-slot 35 choose-op 32 dvar-slot 13 dvar-kind 4 dvar-p) (214 sym 211 il:gvar 206 :g 170 il:getbaseptr.n 129 il:getbaseptr.n 76 :closed 58 :free 39 :argument 21 :local) ( 228 "BUG: This variable is neither global nor a DVAR: ~S" 194 (:local :argument :free :closed) 189 (dvar-kind var) 106 (il:pvar . il:pvarx) 65 (il:fvar . il:fvarx) 45 (il:ivar . il:ivarx) 28 (il:pvar . il:pvarx)) (let* ((il:a0072 (quote ref-var)) (il:a0073 (quote function)) (il:a0074 "Return a list of instructions to push the given variable's value onto the stack.")) (progn (cond (( fboundp (quote il:set-documentation)) (il:set-documentation il:a0072 il:a0073 il:a0074))) il:a0074)) store-var il:d1 (il:l (1 pop-p 0 var-or-slot) il:f 14 *hunk-map*) e @[Zd@gX=@go@ g@YJ @ @ XgKo H\dg2A%Ig gIhhoI o oI ggIAoLdggIAog@ W h_^Fh__O_AhgoO OMk OO.Ogjh _Ok__MOOiNOggIo LgggIhhgLo (354 il:ecase-fail 321 il:\\append2 318 il:\\append2 315 il:\\append2 262 il:\\nconc2 235 choose-op 197 reverse 191 dvar-level 135 choose-op 126 il:\\append2 119 choose-op 99 max-arg 78 il:check-type-fail 65 dvar-kind 60 dvar-slot 39 error) (346 kind 335 sym 332 il:gvar_ 326 :global 303 il:rplptr.n 300 il:swap 255 il:getbaseptr.n 226 il:copy 182 :closed 167 il:fvarx_ 161 :free 144 il:ivarx_ 139 :argument 104 il:pvar_^ 96 il:pvar_^ 85 :local 70 var-or-slot 54 dvar 43 :global 29 :g 22 il:listp 16 :local 9 il:smallp) ( 351 (:local :argument :free :closed :global) 309 (il:pop) 230 (il:pvar . il:pvarx) 176 (il:pop) 153 (il:pop) 131 (il:pvar_ . il:pvarx_) 123 (il:pop) 115 (il:pvar_ . il:pvarx_) 75 (or fixnum cons dvar) 35 "BUG: This variable is neither a global nor a DVAR: ~S") (let* ((il:a0075 (quote store-var)) (il:a0076 (quote function)) (il:a0077 "Return a list of instructions to store the value on the top of stack into the given variable. If a slot number is given instead, it is assumed to refer to a PVAR. If POP-P is non-NIL, don't leave the value on the stack." )) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0075 il:a0076 il:a0077 ))) il:a0077)) max-arg il:d1 (il:l (0 opcode)) @ HH(3 il:\\findop) nil () push-integer il:d1 (il:l (0 n)) f@d ok om@@mg@nhj@@lg@hl@@ng@@lhgg@hh(14 il:%= 4 zerop) (92 lit 89 il:gconst 75 il:sicx 55 il:sic 34 il:snic) ( 19 (il:\'1) 9 (il:\'0)) (proclaim (quote (special *dtag-env*))) (or (boundp (quote *dtag-env*)) (il:setq *dtag-env* nil)) (let* ((il:a0078 (quote *dtag-env*)) (il:a0079 (quote cl::variable)) (il:a0080 "A hash-table mapping the EQL-unique ID of a LAP tag into the DTAG structure used by D-ASSEM.")) ( progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0078 il:a0079 il:a0080)) ) il:a0080)) (proclaim (quote (special *dvar-env*))) (or (boundp (quote *dvar-env*)) (il:setq *dvar-env* nil)) (let* ((il:a0081 (quote *dvar-env*)) (il:a0082 (quote cl::variable)) (il:a0083 "A hash-table mapping the EQL-unique ID of a LAP variable into the DVAR structure used by D-ASSEM.")) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0081 il:a0082 il:a0083) )) il:a0083)) (proclaim (quote (special *hunk-map*))) (or (boundp (quote *hunk-map*)) (il:setq *hunk-map* nil)) (let* ((il:a0084 (quote *hunk-map*)) (il:a0085 (quote cl::variable)) (il:a0086 "An AList mapping lexical level numbers into the PVAR number of a slot in the current frame holding the hunk for that level." )) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0084 il:a0085 il:a0086 ))) il:a0086)) (proclaim (quote (special *dcode*))) (or (boundp (quote *dcode*)) (il:setq *dcode* 0)) (let* ((il:a0087 (quote *dcode*)) (il:a0088 (quote cl::variable)) (il:a0089 "The currently-under-construction DCODE structure.")) (progn (cond ((fboundp (quote il:set-documentation )) (il:set-documentation il:a0087 il:a0088 il:a0089))) il:a0089)) (proclaim (quote (special *level*))) (or (boundp (quote *level*)) (il:setq *level* 0)) (let* ((il:a0090 (quote *level*)) (il:a0091 (quote cl::variable)) (il:a0092 "The current lexical nesting level.")) (progn (cond ((fboundp (quote il:set-documentation)) ( il:set-documentation il:a0090 il:a0091 il:a0092))) il:a0092)) assemble-function il:d1 (il:l (0 lap-fn)) !gg gg @ j (30 dcode-from-dlambda 26 dlambda-from-lambda 23 copy-tree 17 make-hash-table 8 make-hash-table) (14 eql 11 :test 5 eql 2 :test) () (let* ((il:a0093 (quote assemble-function)) (il:a0094 (quote function)) (il:a0095 "LAP-FN is a LAP-format function description (a LAMBDA). Return the DCODE structure that results from assembling it into D-machine bytecodes." )) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0093 il:a0094 il:a0095 ))) il:a0095)) dlambda-from-lambda il:d1 (il:l (0 lap-fn)) @ HYIgK dgK dgK dgK d_gK d_gK d_gK d_gK d_gK d_H_Ko JLMNOOOOOg O O (167 make-dlambda 161 mapcar 156 symbol-function 136 il:keyword-test 117 il:find-keyword 104 il:find-keyword 91 il:find-keyword 78 il:find-keyword 65 il:find-keyword 52 il:find-keyword 41 il:find-keyword 30 il:find-keyword 19 il:find-keyword) (153 lap-var-id 113 :non-local 100 :closed-over 87 :blip 74 :name 61 :others 48 :allow-other-keys 37 :key 26 :rest 15 :optional) ( 133 (:non-local :closed-over :blip :name :others :allow-other-keys :key :rest :optional)) (let* ((il:a0102 (quote dlambda-from-lambda)) (il:a0103 (quote function)) (il:a0104 "Break out the fields of a LAP lambda and return them in the form of a DLAMBDA structure.")) (progn ( cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0102 il:a0103 il:a0104))) il:a0104)) dcode-from-dlambda il:d1 (il:l (1 level 0 dlambda)) zg@ AjAjhAjkjjAjkjA@ @O O@ @ @ @ @ g d @ H@ gg H(118 %%setf-dcode-closure-p 107 dlambda-non-local 102 compute-debugging-info 98 convert-to-binary 94 end-bytes 91 emit-byte 85 release-circularities 82 dlambda-body 78 assemble 75 dlambda-body 71 stack-analyze 68 dlambda-body 63 generate-hard-entry 58 generate-easy-entry 51 digest-function 42 easy-entry-p 29 start-bytes 9 make-dcode 6 dlambda-name) (115 :closure 111 :function 88 il:-x- 2 :frame-name) () (let* ((il:a0105 (quote dcode-from-dlambda)) (il:a0106 (quote function)) (il:a0107 "LEVEL is the length of the chain of hunks that will be passed to the result of assembling DLAMBDA at runtime." )) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0105 il:a0106 il:a0107 ))) il:a0107)) (proclaim (quote (special *hunk-size*))) (or (boundp (quote *hunk-size*)) (il:setq *hunk-size* 0)) (let* ((il:a0108 (quote *hunk-size*)) (il:a0109 (quote cl::variable)) (il:a0110 "The number of hunk slots allocated so far.")) (progn (cond ((fboundp (quote il:set-documentation)) ( il:set-documentation il:a0108 il:a0109 il:a0110))) il:a0110)) (proclaim (quote (special *pvar-count*))) (or (boundp (quote *pvar-count*)) (il:setq *pvar-count* 0)) (let* ((il:a0111 (quote *pvar-count*)) (il:a0112 (quote cl::variable)) (il:a0113 "The number of PVAR allocated so far.")) (progn (cond ((fboundp (quote il:set-documentation)) ( il:set-documentation il:a0111 il:a0112 il:a0113))) il:a0113)) (proclaim (quote (special *free-vars*))) (or (boundp (quote *free-vars*)) (il:setq *free-vars* nil)) (let* ((il:a0114 (quote *free-vars*)) (il:a0115 (quote cl::variable)) (il:a0116 "An AList mapping DVARs for the free variables in a function into the number of times they're referenced in the function." )) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0114 il:a0115 il:a0116 ))) il:a0116)) (proclaim (quote (special *bound-specials*))) (or (boundp (quote *bound-specials*)) (il:setq *bound-specials* nil)) (let* ((il:a0117 (quote *bound-specials*)) (il:a0118 (quote cl::variable)) (il:a0119 "A list of the special variables bound in this frame.")) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0117 il:a0118 il:a0119))) il:a0119)) digest-function il:d1 (il:l (1 easy-entry 0 dlambda) il:f 20 *pvar-count* il:f 21 *level* il:f 22 *hunk-size* il:f 23 *hunk-map* il:f 24 *dvar-env* il:f 25 *dcode*) @ @j@ @ hgk lc(HW*kc*W(W.c.W(kc(@ d[HgI KJIkԹ@ Od_AO]HgI MLIkY.O_H ONO O_H _OOAW2I Ac@d @d g@d H @ :d__H _OOO O_H _OOHd_&@ W0 O&_$W0_"gggW,gW*gO& _ O$O"O W,kc,(371 cl::puthash 359 make-dvar 317 gethash 308 store-digest-info 305 digest-code 302 dlambda-body 269 install-local 256 digest-code 238 install-local 224 dlambda-key 219 %%setf-dlambda-rest 216 install-local 212 dlambda-rest 201 dlambda-rest 193 dlambda-rest 184 %%setf-dcode-num-args 161 install-local 149 digest-code 136 install-local 116 install-var 94 dlambda-optional 77 install-var 64 dlambda-required 29 install-var 21 dlambda-blip 15 dlambda-blip 3 dlambda-closed-over) (351 :name 346 :level 341 :slot 338 :closed 335 :kind 204 :ignored 112 :argument 73 :argument 25 :local) () il:digest-codea0001 il:d1 (il:l (0 var) il:f 0 *dvar-env*) @ddP @h P (26 gethash 18 install-local 11 gethash) nil () digest-code il:d1 (il:l (0 lap-code) il:f 31 *level* il:f 32 *pvar-count* il:f 33 *dvar-env*) @dH_6_4gO4dgO6Z JIgO6\ hLKO4dg3O6gO6 NMO6_gO6 _OOLgO4dg-O6_ _OOO6_ _OOg*O6_ _OOO6H O6W> O4g#O4gO4gO4gO4dgO6_  _O OgW>kW>jkj_2_00O6Td_(_&WB_$gggO2gO0gO( _"O&O$O" O2k_2_8O: O8h_ Jdlgg 3 J ggJhh AlAkbcgI_ ggkOhhT!O4^O6_W< h[lh_OgogggNOhgjoM o  AAkb _8O6O8O6O8_6O4_4\OLiKO2dgg AAkbgO2gO2dgԿI_A8ggIhIgkjh BGBdO;BbIggg_BAO_dj:ZOO BBbbk:Ogo-g (OggOkgOkhgOh OgAAkbgTg_:I_ _I_ _AdOObBbOOO O klO:W  O2gO2dgPIIll j_$_"O"O$I O$k_$BBbbIgAAkbg,gIh I _&bg O& bO2dgI AAkbg#O2gO2gO2gO2dgI AhAkb_gII_0_.dlg'_,uO,'O,dhh_*_(O(oO.O0 oO.O, O(_*hO(_*O(_(O* jO*O*O0 g O* nO0dj:o6k:o-O0dl:ol:oO0l:ogO0h gO.h O.gO. oO. ASAO0kbHO2dgg 7g$I IW<i W@kԿIAB oO2o HX(1335 il:ecase-fail 1321 assemble-code 1306 create-hunk 1294 length 1280 emit-byte 1251 error 1241 emit-byte-list 1223 emit-byte 1211 emit-byte-list 1141 mapcar 1135 symbol-function 1127 il:%= 1081 il:assert-fail 1067 error 1036 values 973 emit-byte 916 emit-byte-list 913 push-integer 910 dtag-pc 889 mapcar 883 symbol-function 871 dtag-stack-depth 864 emit-byte 803 emit-byte 785 floor 750 dvar-slot 744 dvar-slot 699 length 687 length 640 emit-byte-list 600 emit-byte 564 emit-byte 494 emit-byte-list 415 emit-byte 357 dvar-level 354 dvar-from-lap-var 336 emit-byte-list 326 il:\\append2 319 choose-op 269 reverse 231 dlambda-non-local 201 emit-byte-list 184 push-integer 175 emit-byte 153 assoc 131 emit-byte 106 emit-byte 87 emit-byte-list 84 store-var 36 emit-byte-list 33 ref-var 11 endp) (1285 :close 1277 return 1271 :return 1233 :opcodes 1215 fn 1203 il:fnx 1132 emit-byte 1023 il:dopval 990 :fn 965 :nfjump 957 :ntjump 949 :fjump 941 :tjump 933 :jump 900 :push-tag 880 cdr 855 :tag 849 :tag 828 :unbind 765 :dunbind 757 :unbind 676 il:assemble-codea0001 667 :bind 646 il:unbind 632 il:pop.n 620 il:pop.n 613 il:store.n 607 il:unbind 597 il:pop 586 il:unbind 533 il:dunbind 529 il:unbind 524 :set-stack 482 :set-stack 471 unwind 468 il:unwind 450 :dset-stack 442 :set-stack 432 :note-stack 412 il:pop 405 :pop 310 il:rplptr.n 300 lambda 297 il:gconst 294 il:createcell 287 il:sicx 239 lambda 236 il:gconst 218 :lambda 191 lit 188 il:gconst 169 sym 166 il:aconst 140 :const 128 il:swap 123 :swap 103 il:copy 96 :copy 66 :pop 53 :var_ 23 :var) ( 1332 (: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) 1326 (car inst) 1246 "BUG: Weird argument to :FN: ~S" 1199 (il:fn4) 1187 (il:fn3) 1177 (il:fn2) 1163 (il:fn1) 1154 (il:fn0) 1074 "DOPVAL for ~S is not a list: ~S" 1060 "Illegal number of arguments to ~S: ~S" 592 (il:swap il:pop) 323 (il:rplptr.n 2) 315 (il:pvar . il:pvarx) 291 (type il:compiled-closure)) (proclaim (quote (special *jump-list*))) (or (boundp (quote *jump-list*)) (il:setq *jump-list* nil)) (let* ((il:a0136 (quote *jump-list*)) (il:a0137 (quote cl::variable)) (il:a0138 "A list of DJUMP and DTAG structures for use by jump resolution.")) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0136 il:a0137 il:a0138))) il:a0138)) (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)))) (il:puthash (quote +jump-choices+) (quote (il:constant +jump-choices+)) il:compvarmacrohash) (il: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)))) ) (il:puthash (quote +jump-range-size-map+) (quote (il:constant +jump-range-size-map+)) il:compvarmacrohash) (il:setq +jump-sizes+ (quote ((:jump 1 3) (:fjump 1 4) (:tjump 1 4) (:nfjump 2 6) (:ntjump 2 6)))) (il:puthash (quote +jump-sizes+) (quote (il:constant +jump-sizes+)) il:compvarmacrohash) (let* ((il:a0139 (quote +jump-sizes+)) (il:a0140 (quote cl::variable)) (il:a0141 "AList mapping kinds of jumps into the range of sizes for that kind, in bytes.")) (progn (cond (( fboundp (quote il:set-documentation)) (il:set-documentation il:a0139 il:a0140 il:a0141))) il:a0141)) resolve-jumps il:d1 (il:l (0 jump-list) il:f 5 +jump-sizes+) p@j2H@d @ Z\dJI D4J U Jd J JK IJKK YgLo HX(104 il:check-type-fail 90 %%setf-djump-size-uncertainty 76 %%setf-djump-min-size 68 %%setf-djump-forward-p 64 djump-min-pc 60 dtag-min-pc 57 djump-tag 51 assoc 47 djump-kind 36 %%setf-dtag-pc-uncertainty 21 splice-in-jumps 14 reduce-uncertainty) (96 jump-or-tag 41 djump 29 dtag) ( 101 (or dtag djump)) reduce-uncertainty il:d1 (il:l (0 jump-list)) 4jdds @d__dOJ O\ IԻLK O^ IԽNM O jO O OCO O O I_O HJ԰O O _O JO_OO _OO _ OO IOO ԹOO O O_O O jO!HO OԸOO JOZo gOo J H h(303 zerop 297 zerop 284 il:check-type-fail 269 il:assert-fail 253 %%setf-djump-size-uncertainty 241 djump-size-uncertainty 234 values 223 il:%= 218 djump-size-uncertainty 204 %%setf-djump-min-size 194 djump-min-size 183 djump-min-size 173 compute-jump-size 163 compute-jump-size 148 dtag-pc-uncertainty 139 djump-min-pc 134 dtag-min-pc 124 dtag-pc-uncertainty 113 djump-min-pc 108 dtag-min-pc 101 djump-forward-p 91 djump-kind 86 djump-tag 75 djump-size-uncertainty 69 %%setf-djump-min-pc 61 djump-min-pc 43 %%setf-dtag-min-pc 35 dtag-min-pc 28 %%setf-dtag-pc-uncertainty) (275 jump-or-tag 49 djump 19 dtag) ( 281 (or dtag djump) 266 "The size uncertainty went negative") splice-in-jumps il:d1 (il:l (0 jump-list) il:f 10 +jump-choices+)  @daHd Hd H H սH \M LW KYdk:NJMlhl:#NJjMMnԀMN OOOIl:Idl:7Kl NJNJNgNN^NMlMlN?l:/NJlogMlMllN OOOgIo h(246 il:ecase-fail 139 il:%= 59 assoc 52 compute-jump-size 47 djump-kind 41 djump-min-pc 37 dtag-min-pc 34 djump-tag 29 djump-ptr 23 %%setf-dtag-pc 20 dtag-min-pc 13 dtag-p) (238 size 203 il:jumpxx 159 il:jumpxx) ( 243 (1 2 3 4 6) 200 (il:jump 4)) compute-jump-size il:d1 (il:l (1 distance 0 kind) il:f 2 +jump-range-size-map+) "@R HAIIIHX(4 assoc) nil () pretty-jumps il:d1 (il:f 5 *jump-list*) PU d\[dggL gL hO?L gL gL gL gL ggL hhgKo IHhZH&J(122 il:check-type-fail 95 dtag-min-pc 92 djump-tag 82 djump-size-uncertainty 75 djump-forward-p 68 djump-min-size 61 djump-min-pc 54 djump-kind 37 dtag-pc-uncertainty 30 dtag-min-pc 6 reverse) (114 jump-or-tag 88 :min-pc 85 :tag 78 :size-uncertainty 71 :forward-p 64 :min-size 57 :min-pc 48 djump 33 :pc-uncertainty 26 :min-pc 23 :tag 17 dtag) ( 119 (or dtag djump)) convert-to-binary il:d1 (il:l (0 byte-list) il:f 24 *dcode*) @ go PW0 W0 kmlԹ@jO* W0H _.H_(O,_&O._$_"dO. SO"jJnJO.OOHO@O> OFk_FI gO O(781 il:make-compiled-closure 771 dcode-closure-p 757 fixup-word 754 il:\\resolve.typenumber 729 elt 724 dcode-type-fixups 706 length 703 dcode-type-fixups 689 fixup-ptr 686 intern-dcode 679 dcode-p 653 elt 648 dcode-lit-fixups 630 length 627 dcode-lit-fixups 613 fixup-word 587 elt 582 dcode-sym-fixups 564 length 561 dcode-sym-fixups 547 fixup-word 521 elt 516 dcode-fn-fixups 498 length 495 dcode-fn-fixups 484 fixup-ptr 481 dcode-debugging-info 403 dcode-closure-p 384 dcode-nlocals 338 dcode-frame-name 331 dcode-arg-type 303 ceiling 297 dcode-nfreevars 293 dcode-nlocals 281 dcode-num-args 254 floor 246 il:%= 233 fixup-word 208 fixup-word 192 elt 173 length 121 length 103 il:\\mvlist 100 allocate-code-block 97 length 92 length 85 dcode-code-array 79 dcode-code-array 59 zerop 56 length 39 length 35 dcode-name-table 26 arrayp 23 dcode-code-array) (774 :function 406 :closure) () (il:putprops il:d-assem il:filetype compile-file) (il:putprops il:d-assem il:makefile-environment (:readtable "XCL" :package (il:defpackage "D-ASSEM" ( :use "LISP")))) (il:putprops il:d-assem il:copyright ("Xerox Corporation" 1986)) nil