(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "FASL") (il:filecreated "11-Dec-86 18:25:39" ("compiled on " il:{eris}sources>fasl.\;24) " 9-Dec-86 23:57:54" "COMPILE-FILEd" il:|in| "Xerox Lisp 10-Dec-86 ..." il:|dated| "10-Dec-86 00:26:34") (il:filecreated "11-Dec-86 18:24:34" il:{eris}sources>fasl.\;24 61156 il:|changes| il:|to:| (il:vars il:faslcoms) il:|previous| il:|date:| "11-Dec-86 00:16:47" il:{eris}sources>fasl.\;23 ) (il:rpaqq il:faslcoms ((il:coms (il:* il:|;;;| "Common definitions.") (il:declare\: il:eval@compile il:eval@load il:dontcopy (il:files (il:loadcomp) il:llbasic il:llchar il:adisplay il:modarith il:llgc) ) (il:structures fasl-error unimplemented-opcode object-not-dumpable unexpected-end-of-block inconsistent-table) (il:variables signature) (il:variables check-table-size fasl-extended end-mark version-range current-version) (il:functions table-stats)) (il:coms (il:* il:|;;;| "Dumper.") ( il:structures handle) (il:variables dummy-handle) (il:variables +smallest-four-byte-integer+ +largest-four-byte-integer+) (il:variables *gather-dumper-stats* *table-attempts* *table-hits*) ( il:functions reset-dumper-stats) (il:functions dotted-list-length state-case fat-string-p remember elements-identical-p end-block end-text write-op lookup-value save-value) (il:functions dump-value-fetch dump-character dump-symbol dump-list dump-simple-vector dump-array-descriptor dump-bit-array dump-general-array dump-array write-integer-bytes integer-byte-list dump-rational dump-complex dump-integer dump-package dump-dcode dump-string dump-float32 dump-structure dump-bitmap) (il:functions open-fasl-handle with-open-handle begin-text begin-block value-dumpable-p dump-value dump-function-def dump-funcall dump-eval close-fasl-handle)) (il:coms (il:* il:|;;;| "Reader.") ( il:define-types fasl-ops) (il:structures optable) (il:functions make-optable fasl-end-of-block defop defrange add-op-translation opcode-sequence fasl-extended setescape unimplemented-opcode) (il:variables *default-optable* *current-optable* initial-value-table-size value-table-increment *value-table* *block-level* debug-reader debug-stream) (il:functions with-optable process-file check-version process-segment read-text process-block skip-text next-value do-op new-value-table clear-table store-value fetch-value collect-list) (fasl-ops fasl-short-integer fasl-nil fasl-t fasl-integer fasl-large-integer fasl-ratio fasl-complex fasl-vector fasl-create-array fasl-initialize-array fasl-initialize-bit-array fasl-thin-string fasl-fat-string fasl-character fasl-lisp-symbol fasl-keyword-symbol fasl-find-package fasl-symbol-in-package fasl-list fasl-list* fasl-interlisp-symbol fasl-dcode fasl-table-store fasl-table-fetch fasl-verify-table-size fasl-eval fasl-float32 fasl-setf-symbol-function fasl-funcall fasl-bitmap16 fasl-structure)) (il:* il:|;;| "Arrange for the correct compiler to be used") (il:prop il:filetype il:fasl) (il:* il:|;;| "Arrange for the proper makefile environment") (il:prop il:makefile-environment il:fasl))) (let* ((il:a0025 (quote fasl-error)) (il:a0026 t) (il:a0027 (quote (cl::ps fasl-error %make-fasl-error (xcl::--dummy-slot--) cl::datatype nil error fasl-error- (%make-fasl-error . :none) %fasl-error-p il:%print-condition nil nil 0 nil ((xcl::--dummy-slot-- nil t t (fasl-error 0 il:pointer) fasl-error---dummy-slot--)) nil nil (il:pointer) nil t)))) (cl::set-parsed-structure il:a0025 il:a0027 )) (si::%structure-declare-datatype (quote fasl-error) (quote (il:pointer)) (quote ((fasl-error 0 il:pointer))) 2 (quote error)) |type-expand-FASL-ERROR| il:d1 (il:l (0 il:$$type-form)) onil nil ( 3 (:datatype fasl-error)) (il:put (quote fasl-error) (quote il:type-expander) (quote |type-expand-FASL-ERROR|)) %fasl-error-p il:d1 (il:l (0 cl::object)) @inil (3 fasl-error) () |definline-%FASL-ERROR-P| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (cl::object) (block %fasl-error-p (typep cl::object (quote fasl-error))))) (let* ((il:a0030 (quote %fasl-error-p)) (il:a0031 (quote compiler:optimizer-list)) (il:a0033 (adjoin ( quote |definline-%FASL-ERROR-P|) (get il:a0030 il:a0031)))) (il:putprop il:a0030 il:a0031 il:a0033)) fasl-error---dummy-slot-- il:d1 (il:l (0 fasl-error)) @nil (3 fasl-error) () |definline-FASL-ERROR---DUMMY-SLOT--| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (fasl-error) (block fasl-error---dummy-slot-- (il:fetchfield (quote (fasl-error 0 il:pointer)) fasl-error)))) (let* ((il:a0035 (quote fasl-error---dummy-slot--)) (il:a0036 (quote compiler:optimizer-list)) (il:a0038 (adjoin (quote |definline-FASL-ERROR---DUMMY-SLOT--|) (get il:a0035 il:a0036)))) (il:putprop il:a0035 il:a0036 il:a0038)) %make-fasl-error il:d1 (il:l (0 il:|-args-|)) 6eHkJdIh`ZIJagJkaJlZnil (37 :--dummy-slot-- 28 fasl-error 23 il:|FASL-ERRORTYPE#|) () (let* ((il:a0039 nil)) (il:putprop (quote fasl-error) (quote il:%condition-handler) il:a0039)) (let* ((il:a0040 nil)) (il:putprop (quote fasl-error) (quote il:%condition-reporter) il:a0040)) (let* ((il:a0043 (quote unimplemented-opcode)) (il:a0044 t) (il:a0045 (quote (cl::ps unimplemented-opcode %make-unimplemented-opcode (xcl::--dummy-slot-- opname) cl::datatype nil fasl-error unimplemented-opcode- (%make-unimplemented-opcode . :none) %unimplemented-opcode-p il:%print-condition nil nil 0 ((opname nil t t (unimplemented-opcode 2 il:pointer) unimplemented-opcode-opname)) ((xcl::--dummy-slot-- nil t t (unimplemented-opcode 0 il:pointer) unimplemented-opcode---dummy-slot--) (opname nil t t (unimplemented-opcode 2 il:pointer) unimplemented-opcode-opname)) nil nil (il:pointer il:pointer) nil t)))) (cl::set-parsed-structure il:a0043 il:a0045)) (si::%structure-declare-datatype (quote unimplemented-opcode) (quote (il:pointer il:pointer)) (quote ( (unimplemented-opcode 0 il:pointer) (unimplemented-opcode 2 il:pointer))) 4 (quote fasl-error)) |type-expand-UNIMPLEMENTED-OPCODE| il:d1 (il:l (0 il:$$type-form)) onil nil ( 3 (:datatype unimplemented-opcode)) (il:put (quote unimplemented-opcode) (quote il:type-expander) (quote |type-expand-UNIMPLEMENTED-OPCODE|)) %unimplemented-opcode-p il:d1 (il:l (0 cl::object)) @inil (3 unimplemented-opcode) () |definline-%UNIMPLEMENTED-OPCODE-P| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (cl::object) (block %unimplemented-opcode-p (typep cl::object (quote unimplemented-opcode))))) (let* ((il:a0048 (quote %unimplemented-opcode-p)) (il:a0049 (quote compiler:optimizer-list)) (il:a0051 (adjoin (quote |definline-%UNIMPLEMENTED-OPCODE-P|) (get il:a0048 il:a0049)))) (il:putprop il:a0048 il:a0049 il:a0051)) unimplemented-opcode---dummy-slot-- il:d1 (il:l (0 unimplemented-opcode)) @nil (3 unimplemented-opcode) () |definline-UNIMPLEMENTED-OPCODE---DUMMY-SLOT--| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (unimplemented-opcode) (block unimplemented-opcode---dummy-slot-- (il:fetchfield (quote (unimplemented-opcode 0 il:pointer)) unimplemented-opcode)))) (let* ((il:a0053 (quote unimplemented-opcode---dummy-slot--)) (il:a0054 (quote compiler:optimizer-list )) (il:a0056 (adjoin (quote |definline-UNIMPLEMENTED-OPCODE---DUMMY-SLOT--|) (get il:a0053 il:a0054))) ) (il:putprop il:a0053 il:a0054 il:a0056)) unimplemented-opcode-opname il:d1 (il:l (0 unimplemented-opcode)) @nil (3 unimplemented-opcode) () |definline-UNIMPLEMENTED-OPCODE-OPNAME| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (unimplemented-opcode) (block unimplemented-opcode-opname (il:fetchfield (quote (unimplemented-opcode 2 il:pointer)) unimplemented-opcode)))) (let* ((il:a0058 (quote unimplemented-opcode-opname)) (il:a0059 (quote compiler:optimizer-list)) ( il:a0061 (adjoin (quote |definline-UNIMPLEMENTED-OPCODE-OPNAME|) (get il:a0058 il:a0059)))) (il:putprop il:a0058 il:a0059 il:a0061)) %make-unimplemented-opcode il:d1 (il:l (0 il:|-args-|)) ]eHkJdI)hAHkKdJ,h`]IMLMagJkaJlZagKkaKl[nil (76 :opname 57 :--dummy-slot-- 48 unimplemented-opcode 41 unimplemented-opcode 36 il:|UNIMPLEMENTED-OPCODETYPE#|) () (let* ((il:a0062 nil)) (il:putprop (quote unimplemented-opcode) (quote il:%condition-handler) il:a0062 )) |UNIMPLEMENTED-OPCODE report method| il:d1 (il:l (0 condition) il:i 1 *standard-output*) @ioH (17 format) (3 unimplemented-opcode) ( 13 "Unimplemented FASL op: ~S") (let* ((il:a0063 (function |UNIMPLEMENTED-OPCODE report method|))) (il:putprop (quote unimplemented-opcode) (quote il:%condition-reporter) il:a0063)) (let* ((il:a0066 (quote object-not-dumpable)) (il:a0067 t) (il:a0068 (quote (cl::ps object-not-dumpable %make-object-not-dumpable (xcl::--dummy-slot-- object) cl::datatype nil fasl-error object-not-dumpable- (%make-object-not-dumpable . :none) %object-not-dumpable-p il:%print-condition nil nil 0 ((object nil t t (object-not-dumpable 2 il:pointer) object-not-dumpable-object)) (( xcl::--dummy-slot-- nil t t (object-not-dumpable 0 il:pointer) object-not-dumpable---dummy-slot--) ( object nil t t (object-not-dumpable 2 il:pointer) object-not-dumpable-object)) nil nil (il:pointer il:pointer) nil t)))) (cl::set-parsed-structure il:a0066 il:a0068)) (si::%structure-declare-datatype (quote object-not-dumpable) (quote (il:pointer il:pointer)) (quote (( object-not-dumpable 0 il:pointer) (object-not-dumpable 2 il:pointer))) 4 (quote fasl-error)) |type-expand-OBJECT-NOT-DUMPABLE| il:d1 (il:l (0 il:$$type-form)) onil nil ( 3 (:datatype object-not-dumpable)) (il:put (quote object-not-dumpable) (quote il:type-expander) (quote |type-expand-OBJECT-NOT-DUMPABLE|) ) %object-not-dumpable-p il:d1 (il:l (0 cl::object)) @inil (3 object-not-dumpable) () |definline-%OBJECT-NOT-DUMPABLE-P| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (cl::object) (block %object-not-dumpable-p (typep cl::object (quote object-not-dumpable))))) (let* ((il:a0071 (quote %object-not-dumpable-p)) (il:a0072 (quote compiler:optimizer-list)) (il:a0074 (adjoin (quote |definline-%OBJECT-NOT-DUMPABLE-P|) (get il:a0071 il:a0072)))) (il:putprop il:a0071 il:a0072 il:a0074)) object-not-dumpable---dummy-slot-- il:d1 (il:l (0 object-not-dumpable)) @nil (3 object-not-dumpable) () |definline-OBJECT-NOT-DUMPABLE---DUMMY-SLOT--| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (object-not-dumpable) (block object-not-dumpable---dummy-slot-- (il:fetchfield (quote (object-not-dumpable 0 il:pointer)) object-not-dumpable)))) (let* ((il:a0076 (quote object-not-dumpable---dummy-slot--)) (il:a0077 (quote compiler:optimizer-list) ) (il:a0079 (adjoin (quote |definline-OBJECT-NOT-DUMPABLE---DUMMY-SLOT--|) (get il:a0076 il:a0077)))) (il:putprop il:a0076 il:a0077 il:a0079)) object-not-dumpable-object il:d1 (il:l (0 object-not-dumpable)) @nil (3 object-not-dumpable) () |definline-OBJECT-NOT-DUMPABLE-OBJECT| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (object-not-dumpable) (block object-not-dumpable-object (il:fetchfield (quote (object-not-dumpable 2 il:pointer)) object-not-dumpable)))) (let* ((il:a0081 (quote object-not-dumpable-object)) (il:a0082 (quote compiler:optimizer-list)) ( il:a0084 (adjoin (quote |definline-OBJECT-NOT-DUMPABLE-OBJECT|) (get il:a0081 il:a0082)))) (il:putprop il:a0081 il:a0082 il:a0084)) %make-object-not-dumpable il:d1 (il:l (0 il:|-args-|)) ]eHkJdI)hAHkKdJ,h`]IMLMagJkaJlZagKkaKl[nil (76 :object 57 :--dummy-slot-- 48 object-not-dumpable 41 object-not-dumpable 36 il:|OBJECT-NOT-DUMPABLETYPE#|) () (let* ((il:a0085 nil)) (il:putprop (quote object-not-dumpable) (quote il:%condition-handler) il:a0085) ) |OBJECT-NOT-DUMPABLE report method| il:d1 (il:l (0 condition) il:i 1 *standard-output*) @ioH (17 format) (3 object-not-dumpable) ( 13 "Object not dumpable:~&~S") (let* ((il:a0086 (function |OBJECT-NOT-DUMPABLE report method|))) (il:putprop (quote object-not-dumpable) (quote il:%condition-reporter) il:a0086)) (let* ((il:a0089 (quote unexpected-end-of-block)) (il:a0090 t) (il:a0091 (quote (cl::ps unexpected-end-of-block %make-unexpected-end-of-block (xcl::--dummy-slot-- stream) cl::datatype nil fasl-error unexpected-end-of-block- (%make-unexpected-end-of-block . :none) %unexpected-end-of-block-p il:%print-condition nil nil 0 ((stream nil t t (unexpected-end-of-block 2 il:pointer) unexpected-end-of-block-stream)) ((xcl::--dummy-slot-- nil t t (unexpected-end-of-block 0 il:pointer) unexpected-end-of-block---dummy-slot--) (stream nil t t (unexpected-end-of-block 2 il:pointer) unexpected-end-of-block-stream)) nil nil (il:pointer il:pointer) nil t)))) (cl::set-parsed-structure il:a0089 il:a0091)) (si::%structure-declare-datatype (quote unexpected-end-of-block) (quote (il:pointer il:pointer)) ( quote ((unexpected-end-of-block 0 il:pointer) (unexpected-end-of-block 2 il:pointer))) 4 (quote fasl-error)) |type-expand-UNEXPECTED-END-OF-BLOCK| il:d1 (il:l (0 il:$$type-form)) onil nil ( 3 (:datatype unexpected-end-of-block)) (il:put (quote unexpected-end-of-block) (quote il:type-expander) (quote |type-expand-UNEXPECTED-END-OF-BLOCK|)) %unexpected-end-of-block-p il:d1 (il:l (0 cl::object)) @inil (3 unexpected-end-of-block) () |definline-%UNEXPECTED-END-OF-BLOCK-P| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (cl::object) (block %unexpected-end-of-block-p (typep cl::object (quote unexpected-end-of-block))))) (let* ((il:a0094 (quote %unexpected-end-of-block-p)) (il:a0095 (quote compiler:optimizer-list)) ( il:a0097 (adjoin (quote |definline-%UNEXPECTED-END-OF-BLOCK-P|) (get il:a0094 il:a0095)))) (il:putprop il:a0094 il:a0095 il:a0097)) unexpected-end-of-block---dummy-slot-- il:d1 (il:l (0 unexpected-end-of-block)) @nil (3 unexpected-end-of-block) () |definline-UNEXPECTED-END-OF-BLOCK---DUMMY-SLOT--| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (unexpected-end-of-block) (block unexpected-end-of-block---dummy-slot-- (il:fetchfield (quote (unexpected-end-of-block 0 il:pointer)) unexpected-end-of-block)))) (let* ((il:a0099 (quote unexpected-end-of-block---dummy-slot--)) (il:a0100 (quote compiler:optimizer-list )) (il:a0102 (adjoin (quote |definline-UNEXPECTED-END-OF-BLOCK---DUMMY-SLOT--|) (get il:a0099 il:a0100 )))) (il:putprop il:a0099 il:a0100 il:a0102)) unexpected-end-of-block-stream il:d1 (il:l (0 unexpected-end-of-block)) @nil (3 unexpected-end-of-block) () |definline-UNEXPECTED-END-OF-BLOCK-STREAM| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (unexpected-end-of-block) (block unexpected-end-of-block-stream (il:fetchfield (quote (unexpected-end-of-block 2 il:pointer)) unexpected-end-of-block)))) (let* ((il:a0104 (quote unexpected-end-of-block-stream)) (il:a0105 (quote compiler:optimizer-list)) ( il:a0107 (adjoin (quote |definline-UNEXPECTED-END-OF-BLOCK-STREAM|) (get il:a0104 il:a0105)))) ( il:putprop il:a0104 il:a0105 il:a0107)) %make-unexpected-end-of-block il:d1 (il:l (0 il:|-args-|)) ]eHkJdI)hAHkKdJ,h`]IMLMagJkaJlZagKkaKl[nil (76 :stream 57 :--dummy-slot-- 48 unexpected-end-of-block 41 unexpected-end-of-block 36 il:|UNEXPECTED-END-OF-BLOCKTYPE#|) () (let* ((il:a0108 nil)) (il:putprop (quote unexpected-end-of-block) (quote il:%condition-handler) il:a0108)) |UNEXPECTED-END-OF-BLOCK report method| il:d1 (il:l (0 condition) il:i 1 *standard-output*) @ioH (20 format 17 il:getfileptr) (3 unexpected-end-of-block) ( 13 "Unexpected FASL-END-OF-BLOCK at ~D.") (let* ((il:a0109 (function |UNEXPECTED-END-OF-BLOCK report method|))) (il:putprop (quote unexpected-end-of-block) (quote il:%condition-reporter) il:a0109)) (let* ((il:a0113 (quote inconsistent-table)) (il:a0114 t) (il:a0115 (quote (cl::ps inconsistent-table %make-inconsistent-table (xcl::--dummy-slot-- table expected) cl::datatype nil fasl-error inconsistent-table- (%make-inconsistent-table . :none) %inconsistent-table-p il:%print-condition nil nil 0 ((table nil t t (inconsistent-table 2 il:pointer) inconsistent-table-table) (expected nil t t ( inconsistent-table 4 il:pointer) inconsistent-table-expected)) ((xcl::--dummy-slot-- nil t t ( inconsistent-table 0 il:pointer) inconsistent-table---dummy-slot--) (table nil t t (inconsistent-table 2 il:pointer) inconsistent-table-table) (expected nil t t (inconsistent-table 4 il:pointer) inconsistent-table-expected)) nil nil (il:pointer il:pointer il:pointer) nil t)))) ( cl::set-parsed-structure il:a0113 il:a0115)) (si::%structure-declare-datatype (quote inconsistent-table) (quote (il:pointer il:pointer il:pointer)) (quote ((inconsistent-table 0 il:pointer) (inconsistent-table 2 il:pointer) (inconsistent-table 4 il:pointer))) 6 (quote fasl-error)) |type-expand-INCONSISTENT-TABLE| il:d1 (il:l (0 il:$$type-form)) onil nil ( 3 (:datatype inconsistent-table)) (il:put (quote inconsistent-table) (quote il:type-expander) (quote |type-expand-INCONSISTENT-TABLE|)) %inconsistent-table-p il:d1 (il:l (0 cl::object)) @inil (3 inconsistent-table) () |definline-%INCONSISTENT-TABLE-P| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (cl::object) (block %inconsistent-table-p (typep cl::object (quote inconsistent-table))))) (let* ((il:a0118 (quote %inconsistent-table-p)) (il:a0119 (quote compiler:optimizer-list)) (il:a0121 ( adjoin (quote |definline-%INCONSISTENT-TABLE-P|) (get il:a0118 il:a0119)))) (il:putprop il:a0118 il:a0119 il:a0121)) inconsistent-table---dummy-slot-- il:d1 (il:l (0 inconsistent-table)) @nil (3 inconsistent-table) () |definline-INCONSISTENT-TABLE---DUMMY-SLOT--| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (inconsistent-table) (block inconsistent-table---dummy-slot-- (il:fetchfield (quote (inconsistent-table 0 il:pointer)) inconsistent-table)))) (let* ((il:a0123 (quote inconsistent-table---dummy-slot--)) (il:a0124 (quote compiler:optimizer-list)) (il:a0126 (adjoin (quote |definline-INCONSISTENT-TABLE---DUMMY-SLOT--|) (get il:a0123 il:a0124)))) ( il:putprop il:a0123 il:a0124 il:a0126)) inconsistent-table-table il:d1 (il:l (0 inconsistent-table)) @nil (3 inconsistent-table) () |definline-INCONSISTENT-TABLE-TABLE| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (inconsistent-table) (block inconsistent-table-table (il:fetchfield (quote (inconsistent-table 2 il:pointer)) inconsistent-table)))) (let* ((il:a0128 (quote inconsistent-table-table)) (il:a0129 (quote compiler:optimizer-list)) (il:a0131 (adjoin (quote |definline-INCONSISTENT-TABLE-TABLE|) (get il:a0128 il:a0129)))) (il:putprop il:a0128 il:a0129 il:a0131)) inconsistent-table-expected il:d1 (il:l (0 inconsistent-table)) @nil (3 inconsistent-table) () |definline-INCONSISTENT-TABLE-EXPECTED| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (inconsistent-table) (block inconsistent-table-expected (il:fetchfield (quote (inconsistent-table 4 il:pointer)) inconsistent-table)))) (let* ((il:a0133 (quote inconsistent-table-expected)) (il:a0134 (quote compiler:optimizer-list)) ( il:a0136 (adjoin (quote |definline-INCONSISTENT-TABLE-EXPECTED|) (get il:a0133 il:a0134)))) (il:putprop il:a0133 il:a0134 il:a0136)) %make-inconsistent-table il:d1 (il:l (0 il:|-args-|)) eHkJdIDhqHkKdJGhHkNdMMh_`_IOLOOOagJkaJlZagKkaKl[agNkaNl^nil (122 :expected 103 :table 84 :--dummy-slot-- 73 inconsistent-table 65 inconsistent-table 57 inconsistent-table 51 il:|INCONSISTENT-TABLETYPE#|) () (let* ((il:a0137 nil)) (il:putprop (quote inconsistent-table) (quote il:%condition-handler) il:a0137)) |INCONSISTENT-TABLE report method| il:d1 (il:l (0 condition) il:i 1 *standard-output*) #@@ioIH (32 format 29 length) (24 optable 9 inconsistent-table 3 inconsistent-table) ( 19 "Inconsistent FASL table size.~&Expected ~D but found ~D.") (let* ((il:a0138 (function |INCONSISTENT-TABLE report method|))) (il:putprop (quote inconsistent-table ) (quote il:%condition-reporter) il:a0138)) (il:setq signature 145) (il:puthash (quote signature) (quote (il:constant signature)) il:compvarmacrohash) (let* ((il:a0139 (quote signature)) (il:a0140 (quote variable)) (il:a0141 "First byte of a FASL file." )) (il:set-documentation il:a0139 il:a0140 il:a0141)) (proclaim (quote (special check-table-size))) (or (boundp (quote check-table-size)) (il:setq check-table-size t)) (il:setq fasl-extended 254) (il:puthash (quote fasl-extended) (quote (il:constant fasl-extended)) il:compvarmacrohash) (il:setq end-mark 255) (il:puthash (quote end-mark) (quote (il:constant end-mark)) il:compvarmacrohash) (il:setq version-range (quote (2 . 4))) (il:puthash (quote version-range) (quote (il:constant version-range)) il:compvarmacrohash) (let* ((il:a0142 (quote version-range)) (il:a0143 (quote variable)) (il:a0144 "Handles (car version-range) <= version <= (cdr version-range)")) (il:set-documentation il:a0142 il:a0143 il:a0144)) (il:setq current-version 4) (il:puthash (quote current-version) (quote (il:constant current-version)) il:compvarmacrohash) table-stats il:d1 (il:l (0 table)) Kg@ hQ@ jIJH@J ]Hgggg  MjHX\kԻLKJkԺ(49 find 31 type-of 16 length 6 length) (45 car 42 :key 39 equal 36 :test 2 --total--) () (let* ((il:a0149 (quote handle)) (il:a0150 t) (il:a0151 (quote (cl::ps handle make-handle (stream state last-index hash) cl::datatype nil nil handle- (make-handle . :none) handle-p cl::default-structure-printer copy-handle nil 0 ((stream nil t nil (handle 0 il:pointer) handle-stream ) (state :block-end t nil (handle 2 il:pointer) handle-state) (last-index 0 t nil (handle 4 il:pointer ) handle-last-index) (hash (make-hash-table :test (function eq)) t nil (handle 6 il:pointer) handle-hash)) ((stream nil t nil (handle 0 il:pointer) handle-stream) (state :block-end t nil (handle 2 il:pointer) handle-state) (last-index 0 t nil (handle 4 il:pointer) handle-last-index) (hash ( make-hash-table :test (function eq)) t nil (handle 6 il:pointer) handle-hash)) nil nil (il:pointer il:pointer il:pointer il:pointer) nil t)))) (cl::set-parsed-structure il:a0149 il:a0151)) (si::%structure-declare-datatype (quote handle) (quote (il:pointer il:pointer il:pointer il:pointer)) (quote ((handle 0 il:pointer) (handle 2 il:pointer) (handle 4 il:pointer) (handle 6 il:pointer))) 8 ( quote cl::structure-object)) |type-expand-HANDLE| il:d1 (il:l (0 il:$$type-form)) onil nil ( 3 (:datatype handle)) (il:put (quote handle) (quote il:type-expander) (quote |type-expand-HANDLE|)) handle-p il:d1 (il:l (0 cl::object)) @inil (3 handle) () |definline-HANDLE-P| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (cl::object) (block handle-p (typep cl::object (quote handle))))) (let* ((il:a0154 (quote handle-p)) (il:a0155 (quote compiler:optimizer-list)) (il:a0157 (adjoin (quote |definline-HANDLE-P|) (get il:a0154 il:a0155)))) (il:putprop il:a0154 il:a0155 il:a0157)) handle-stream il:d1 (il:l (0 handle)) @nil (3 handle) () |definline-HANDLE-STREAM| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (handle) (block handle-stream (il:fetchfield (quote (handle 0 il:pointer)) handle)))) (let* ((il:a0159 (quote handle-stream)) (il:a0160 (quote compiler:optimizer-list)) (il:a0162 (adjoin ( quote |definline-HANDLE-STREAM|) (get il:a0159 il:a0160)))) (il:putprop il:a0159 il:a0160 il:a0162)) handle-state il:d1 (il:l (0 handle)) @nil (3 handle) () |definline-HANDLE-STATE| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (handle) (block handle-state (il:fetchfield (quote (handle 2 il:pointer)) handle)))) (let* ((il:a0164 (quote handle-state)) (il:a0165 (quote compiler:optimizer-list)) (il:a0167 (adjoin ( quote |definline-HANDLE-STATE|) (get il:a0164 il:a0165)))) (il:putprop il:a0164 il:a0165 il:a0167)) handle-last-index il:d1 (il:l (0 handle)) @nil (3 handle) () |definline-HANDLE-LAST-INDEX| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (handle) (block handle-last-index (il:fetchfield (quote (handle 4 il:pointer)) handle)))) (let* ((il:a0169 (quote handle-last-index)) (il:a0170 (quote compiler:optimizer-list)) (il:a0172 ( adjoin (quote |definline-HANDLE-LAST-INDEX|) (get il:a0169 il:a0170)))) (il:putprop il:a0169 il:a0170 il:a0172)) handle-hash il:d1 (il:l (0 handle)) @nil (3 handle) () |definline-HANDLE-HASH| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (handle) (block handle-hash (il:fetchfield (quote (handle 6 il:pointer)) handle)))) (let* ((il:a0174 (quote handle-hash)) (il:a0175 (quote compiler:optimizer-list)) (il:a0177 (adjoin ( quote |definline-HANDLE-HASH|) (get il:a0174 il:a0175)))) (il:putprop il:a0174 il:a0175 il:a0177)) (remprop (quote handle-stream) (quote il:setf-method-expander)) (il:putprop (quote handle-stream) (quote il:setf-inverse) (quote %%setf-handle-stream)) %%setf-handle-stream il:d1 (il:l (1 cl::value 0 handle)) @AAnil (3 handle) () |definline-%%SETF-HANDLE-STREAM| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (handle cl::value) (block %%setf-handle-stream (setf (il:fetchfield (quote (handle 0 il:pointer)) handle) cl::value)))) (let* ((il:a0179 (quote %%setf-handle-stream)) (il:a0180 (quote compiler:optimizer-list)) (il:a0182 ( adjoin (quote |definline-%%SETF-HANDLE-STREAM|) (get il:a0179 il:a0180)))) (il:putprop il:a0179 il:a0180 il:a0182)) (remprop (quote handle-state) (quote il:setf-method-expander)) (il:putprop (quote handle-state) (quote il:setf-inverse) (quote %%setf-handle-state)) %%setf-handle-state il:d1 (il:l (1 cl::value 0 handle)) @AAnil (3 handle) () |definline-%%SETF-HANDLE-STATE| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (handle cl::value) (block %%setf-handle-state (setf (il:fetchfield (quote (handle 2 il:pointer)) handle) cl::value)))) (let* ((il:a0184 (quote %%setf-handle-state)) (il:a0185 (quote compiler:optimizer-list)) (il:a0187 ( adjoin (quote |definline-%%SETF-HANDLE-STATE|) (get il:a0184 il:a0185)))) (il:putprop il:a0184 il:a0185 il:a0187)) (remprop (quote handle-last-index) (quote il:setf-method-expander)) (il:putprop (quote handle-last-index) (quote il:setf-inverse) (quote %%setf-handle-last-index)) %%setf-handle-last-index il:d1 (il:l (1 cl::value 0 handle)) @AAnil (3 handle) () |definline-%%SETF-HANDLE-LAST-INDEX| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (handle cl::value) (block %%setf-handle-last-index (setf (il:fetchfield (quote (handle 4 il:pointer)) handle) cl::value)))) (let* ((il:a0189 (quote %%setf-handle-last-index)) (il:a0190 (quote compiler:optimizer-list)) (il:a0192 (adjoin (quote |definline-%%SETF-HANDLE-LAST-INDEX|) (get il:a0189 il:a0190)))) (il:putprop il:a0189 il:a0190 il:a0192)) (remprop (quote handle-hash) (quote il:setf-method-expander)) (il:putprop (quote handle-hash) (quote il:setf-inverse) (quote %%setf-handle-hash)) %%setf-handle-hash il:d1 (il:l (1 cl::value 0 handle)) @AAnil (3 handle) () |definline-%%SETF-HANDLE-HASH| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (handle cl::value) (block %%setf-handle-hash (setf (il:fetchfield (quote (handle 6 il:pointer)) handle) cl::value)))) (let* ((il:a0194 (quote %%setf-handle-hash)) (il:a0195 (quote compiler:optimizer-list)) (il:a0197 ( adjoin (quote |definline-%%SETF-HANDLE-HASH|) (get il:a0194 il:a0195)))) (il:putprop il:a0194 il:a0195 il:a0197)) make-handle il:d1 (il:l (0 il:|-args-|)) eHkJdIoh HkKdJsgHkNdMxj_Hk__OdOwgg _`_IOLOOOOOagJkaJlZ}agKkaKl[yagNkaNl^tagOkaOl_q(79 make-hash-table 76 symbol-function) (187 :hash 167 :last-index 147 :state 127 :stream 116 handle 107 handle 99 handle 91 handle 85 il:|HANDLETYPE#| 73 eq 70 :test 34 :block-end) () copy-handle il:d1 (il:l (0 handle)) I@H0`H@H@H@H@HigHg b(66 il:check-type-fail) (63 handle 59 handle 48 handle 39 handle 30 handle 21 handle 13 il:|HANDLETYPE#| 7 handle) () |definline-COPY-HANDLE| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (handle) (block copy-handle (check-type handle handle) (let ((cl::new (il:ncreate (quote handle)))) (setf (il:ffetchfield (quote (handle 0 il:pointer)) cl::new) (il:ffetchfield (quote (handle 0 il:pointer)) handle)) (setf (il:ffetchfield (quote (handle 2 il:pointer)) cl::new) (il:ffetchfield (quote (handle 2 il:pointer)) handle)) (setf (il:ffetchfield (quote (handle 4 il:pointer)) cl::new) (il:ffetchfield (quote (handle 4 il:pointer)) handle)) (setf (il:ffetchfield (quote (handle 6 il:pointer)) cl::new) (il:ffetchfield (quote (handle 6 il:pointer)) handle)) cl::new)))) (let* ((il:a0202 (quote copy-handle)) (il:a0203 (quote compiler:optimizer-list)) (il:a0205 (adjoin ( quote |definline-COPY-HANDLE|) (get il:a0202 il:a0203)))) (il:putprop il:a0202 il:a0203 il:a0205)) (il:setq dummy-handle (make-handle :stream (open "{null}" :direction :output) :state :block :hash nil) ) (il:puthash (quote dummy-handle) (quote (il:constant dummy-handle)) il:compvarmacrohash) (il:setq +smallest-four-byte-integer+ (- (expt 2 31))) (il:puthash (quote +smallest-four-byte-integer+) (quote (il:constant +smallest-four-byte-integer+)) il:compvarmacrohash) (il:setq +largest-four-byte-integer+ (1- (expt 2 31))) (il:puthash (quote +largest-four-byte-integer+) (quote (il:constant +largest-four-byte-integer+)) il:compvarmacrohash) (proclaim (quote (special *gather-dumper-stats*))) (or (boundp (quote *gather-dumper-stats*)) (il:setq *gather-dumper-stats* nil)) (proclaim (quote (special *table-attempts*))) (or (boundp (quote *table-attempts*)) (il:setq *table-attempts* 0)) (let* ((il:a0206 (quote *table-attempts*)) (il:a0207 (quote variable)) (il:a0208 "Number of table lookups by the FASL dumper.")) (il:set-documentation il:a0206 il:a0207 il:a0208)) (proclaim (quote (special *table-hits*))) (or (boundp (quote *table-hits*)) (il:setq *table-hits* 0)) (let* ((il:a0209 (quote *table-hits*)) (il:a0210 (quote variable)) (il:a0211 "Number of successful table lookups by the FASL dumper.")) (il:set-documentation il:a0209 il:a0210 il:a0211)) reset-dumper-stats il:d1 (il:f 0 *table-attempts* il:f 1 *table-hits*) jcdcnil nil () dotted-list-length il:d1 (il:l (0 x)) Aj@dIHHi IdHkHki IJHdjhHlIJ(37 values 17 values) nil () |expand-STATE-CASE| il:d1 (il:l (1 si::$$macro-environment 0 si::$$macro-form)) @goHnil (7 ecase) ( 11 (handle-state handle)) (il:setf-macro-function (quote state-case) (quote |expand-STATE-CASE|)) fat-string-p il:d1 (il:l (0 string) il:f 0 il:\\st.pos16) @d@CP (18 il:%fat-string-array-p) (9 il:stringp) () |expand-REMEMBER| il:d1 (il:l (1 si::$$macro-environment 0 si::$$macro-form)) =@1HHgKIhhoJggggKhhh (55 il:\\append2 13 il:gensym) (41 handle 38 save-value 35 remember 32 when 17 let) ( 28 (when remember (write-op handle (quote fasl-table-store)))) (il:setf-macro-function (quote remember) (quote |expand-REMEMBER|)) elements-identical-pa0001 il:d1 (il:l (0 x) il:f 0 testelt) @P:nil nil () elements-identical-p il:d1 (il:l (0 array) il:p 1 testelt) @ HjgH (19 il:%every-single 3 il:%flatten-array) (15 elements-identical-pa0001) () end-block il:d1 (il:l (0 handle) il:f 2 check-table-size) j@HgNR@g @dh @l @j@gg I@ggoHo (103 il:ecase-fail 70 make-hash-table 67 symbol-function 49 il:bout 37 dump-value 25 write-op) (90 :block-end 85 :block-end 82 handle 74 handle 64 eq 61 :test 53 handle 42 handle 31 handle 22 fasl-verify-table-size 12 :block 3 handle) ( 100 (:block) 95 (handle-state handle)) end-text il:d1 (il:l (0 handle)) 6@Hg@l @ggoHo (51 il:ecase-fail 26 il:bout) (38 :block 33 :block 30 handle 19 handle 12 :text 3 handle) ( 48 (:text) 43 (handle-state handle)) write-op il:d1 (il:l (1 opname 0 handle)) H@AHg,@A J ggA [dIL KoHo (69 il:ecase-fail 52 il:bout 40 error 25 opcode-sequence) (36 :opname 33 unimplemented-opcode 19 handle 12 :block 3 handle) ( 66 (:block) 61 (handle-state handle)) lookup-value il:d1 (il:l (1 value 0 handle)) @HAH (16 il:gethash) (3 handle) () save-value il:d1 (il:l (1 value 0 handle)) 3@QH'AH@KIJ @kԼ@LMM(28 il:puthash) (44 handle 33 handle 19 handle 3 handle) () dump-value-fetch il:d1 (il:l (1 index 0 handle)) @g @Ah (12 dump-value 6 write-op) (3 fasl-table-fetch) () dump-character il:d1 (il:l (2 remember 1 char 0 handle)) .A@@g nHIH Il IH (43 il:bout16 38 il:bout 31 il:bout 20 write-op) (17 fasl-character 8 handle 3 il:character) () dump-symbol il:d1 (il:l (2 remember 1 symbol 0 handle)) }A 1A Yd AB@g A @g @HhAJdo @g @Hh)o @g @Hh@g @Hh @IB B@K (122 save-value 113 dump-value 106 dump-value 99 write-op 86 write-op 78 equal 65 write-op 56 equal 41 write-op 33 keywordp 28 write-op 16 package-name 10 symbol-package 3 symbol-name) (96 fasl-symbol-in-package 83 fasl-interlisp-symbol 62 fasl-lisp-symbol 38 fasl-keyword-symbol 25 fasl-table-store) ( 75 "INTERLISP" 53 "LISP") dump-list il:d1 (il:l (2 remember 1 list 0 handle)) qA QHHIggA AB@g @Jgg @JIkԀIh IjLM@A AbMkԽJ@Ah B@K (110 save-value 101 dump-value 81 dump-value 66 dump-value 54 write-op 40 write-op 28 error 6 il:\\mvlist 3 dotted-list-length) (51 fasl-list 47 fasl-list* 37 fasl-table-store 24 :object 21 object-not-dumpable) () dump-simple-vector il:d1 (il:l (2 remember 1 vector 0 handle)) AA 1AB@g @g @HB HjJK@AKB KkԻB@I (62 save-value 47 dump-value 31 dump-value 25 write-op 17 write-op 3 length) (22 fasl-vector 14 fasl-table-store) () dump-array-descriptor il:d1 (il:l (0 il:|-args-|)) ekaqlalaiHlNdM/h\_J_KIg Ig IJd k:J agNkaNl^ K IgJ gJ J gJ hL gOh K KIO (162 save-value 153 dump-value 145 il:\\append2 128 fill-pointer 119 array-has-fill-pointer-p 115 adjustable-array-p 108 array-element-type 100 dump-value 96 array-dimensions 71 array-dimensions 62 array-rank 56 write-op 48 write-op) (137 :initial-element 124 :fill-pointer 111 :adjustable 104 :element-type 78 :initial-element 53 fasl-create-array 45 fasl-table-store) () dump-bit-array il:d1 (il:l (2 remember 1 array 0 handle)) YA Ad ggA AB@g @g @HB @AB @A jHl B@I (86 save-value 78 il:\\bouts 75 ceiling 68 il:%array-base 58 dump-array-descriptor 52 dump-value 46 write-op 38 write-op 26 error 14 zerop 11 il:%array-offset 3 array-total-size) (62 handle 43 fasl-initialize-bit-array 35 fasl-table-store 22 :object 19 object-not-dumpable) () dump-general-array il:d1 (il:l (2 remember 1 array 0 handle)) GA AA @g @Ah @Hh HgAgI HjKLh@JLh LkԼ(62 dump-value 43 make-array 30 dump-value 24 dump-array-descriptor 18 write-op 10 array-element-type 3 array-total-size) (38 :element-type 34 :displaced-to 15 fasl-initialize-array) () dump-array il:d1 (il:l (2 remember 1 array 0 handle)) GAd ggA  @AB AH H o@AB A @AB (68 dump-simple-vector 60 vectorp 55 dump-bit-array 42 array-element-type 36 arrayp 27 dump-general-array 20 adjustable-array-p 16 error 4 xcl:displaced-array-p) (12 :object 9 object-not-dumpable) ( 46 (unsigned-byte 1)) write-integer-bytes il:d1 (il:l (2 value 1 nbytes 0 handle)) @!BA YdHJ I(24 il:bout 13 integer-byte-list) (3 handle) () integer-byte-list il:d1 (il:l (1 nbytes 0 value)) %j@"AHJIn [KJHkԸ(20 il:\\mvlist 17 floor) nil () dump-rational il:d1 (il:l (2 remember 1 value 0 handle)) @g @A h @A h (24 dump-value 20 denominator 15 dump-value 11 numerator 6 write-op) (3 fasl-ratio) () dump-complex il:d1 (il:l (2 remember 1 value 0 handle)) @g @A h @A h (24 dump-value 20 imagpart 15 dump-value 11 realpart 6 write-op) (3 fasl-complex) () dump-integer il:d1 (il:l (2 remember 1 value 0 handle)) ZjAlA@A oAAo@g @lA @g A kԿA l @Hh @HA (87 write-integer-bytes 81 dump-value 72 ceiling 67 integer-length 60 integer-length 56 write-op 48 write-integer-bytes 41 write-op 18 il:bout) (53 fasl-large-integer 38 fasl-integer 12 handle) ( 32 2147483647 23 -2147483648) dump-package il:d1 (il:l (2 remember 1 package 0 handle)) (AB@g @g @A B B@H (37 save-value 29 dump-value 25 package-name 20 write-op 12 write-op) (17 fasl-find-package 9 fasl-table-store) () dump-dcode il:d1 (il:l (2 remember 1 dcode 0 handle)) #@@"@g @A B A\ @KB KjIJHLJ JkԺA _d d%h]@AB HA HA HA @AB @AB @A B A_ @O B O d dh__A_,@O, B O,d d-h_$_"A_8@O8 B O8d dRh_0_.+A_D@OD B ODddx_:dVHN @NB @NB M j__OOOO_HO @OB @OB Ok__@O @O O j__OOO O_@O @O Ok__$@O$ @O$ O" j_*_(O(O*O,O*_&@O& @O& O*k_*_0@O0 @O0 O. j_6_4O4O6O8O6_2@O2 @O2 O6k_6_<@O< @O< O: j_B_@O@OBODOB_>@O> @O> OBk_B(761 dump-value 752 dump-value 719 length 709 dump-value 700 dump-value 679 dump-value 670 dump-value 639 length 629 dump-value 620 dump-value 599 dump-value 590 dump-value 559 length 549 dump-value 540 dump-value 519 dump-value 510 dump-value 479 length 469 dump-value 460 dump-value 439 dump-value 428 dump-value 418 il:bout 387 length 378 dump-value 368 dump-value 359 il:bout 332 dump-value 328 length 289 dump-value 285 length 246 dump-value 242 length 203 dump-value 199 length 183 dump-value 171 dump-value 159 dump-value 147 il:bout 136 il:bout 125 il:bout 114 dump-value 70 il:bout 54 dump-value 47 length 36 dump-value 32 length 21 write-op) (317 d-assem:dcode 274 d-assem:dcode 231 d-assem:dcode 188 d-assem:dcode 177 d-assem:dcode 165 d-assem:dcode 153 d-assem:dcode 142 d-assem:dcode 131 d-assem:dcode 120 d-assem:dcode 108 d-assem:dcode 81 d-assem:dcode 41 d-assem:dcode 27 d-assem:dcode 18 fasl-dcode 3 handle) () dump-string il:d1 (il:l (2 remember 1 string 0 handle)) AB@g @A __A I@g @OB j\OK]AKZYL:IOl OL OJl Kk԰@g @OB OjMNOAN NkԾB@H (159 save-value 144 il:bout 121 dump-value 113 write-op 100 il:bout 90 il:bout 83 il:bout 50 dump-value 42 write-op 33 fat-string-p 23 length 12 write-op) (140 il:character 110 fasl-thin-string 66 il:character 39 fasl-fat-string 17 handle 9 fasl-table-store) () dump-float32 il:d1 (il:l (2 remember 1 number 0 handle)) @g @Ajl (19 il:\\bouts 6 write-op) (10 handle 3 fasl-float32) () dump-structure il:d1 (il:l (2 remember 1 value 0 handle)) _A AB@g @g @Hi @H H 2KJLi B@I LMNA h KJ(84 il:\\nconc2 78 il:fetchfield 68 save-value 60 dump-value 40 il:slot-list 36 il:getdescriptors 31 dump-value 25 write-op 17 write-op 3 il:typename) (22 fasl-structure 14 fasl-table-store) () dump-bitmap il:d1 (il:l (2 remember 1 value 0 handle)) ZA A A A@AB@g @g @H @I @J LKjIHJl l B@M (87 save-value 79 il:\\bouts 72 ceiling 60 dump-value 55 dump-value 50 dump-value 45 write-op 37 write-op 11 il:bitsperpixel 7 il:bitmapheight 3 il:bitmapwidth) (42 fasl-bitmap16 34 fasl-table-store 21 handle 15 il:bitmap) () open-fasl-handle il:d1 (il:l (0 il:|-args-|)) ekaAHl2 OdNOg lIggJ8a_OOh__Ok_O&_dLk\no LK]j Ml Ml gM (129 make-handle 122 il:bout16 116 il:bout 110 il:setfileptr 99 il:lisperror 32 symbol-function) (125 :stream 43 :output 40 :direction 29 open) ( 96 "TOO MANY ARGUMENTS") |expand-WITH-OPEN-HANDLE| il:d1 (il:l (1 si::$$macro-environment 0 si::$$macro-form)) @ HYI[KHAh ^_N_o _gJgLMhOohOgggOgOohgJgJgOhhhh (132 il:\\append2 45 il:gensym 27 il:\\mvlist 24 xcl:parse-body) (112 :abort 108 close-fasl-handle 104 when 89 setq 83 progn 80 multiple-value-prog1 77 unwind-protect 55 open-fasl-handle 51 let) ( 95 (nil) 68 (t) 42 "FASL:WITH-OPEN-FASL-HANDLE") (il:setf-macro-function (quote with-open-handle) (quote |expand-WITH-OPEN-HANDLE|)) begin-text il:d1 (il:l (0 handle)) C@Hg"Hdgg@ oHo @g@(46 il:ecase-fail 33 end-block) (62 handle 55 :text 52 handle 26 :block 20 :block-end 12 :text 3 handle) ( 43 (:text :block-end :block) 38 (handle-state handle)) begin-block il:d1 (il:l (0 handle)) ;@Hdg@ @ g@ HghoHo (56 il:ecase-fail 34 end-text 24 end-text 20 begin-text) (39 :block 28 :text 13 :block-end 3 handle) ( 53 (:block-end :text :block) 48 (handle-state handle)) value-dumpable-pa0001a0002 il:d1 (il:l (0 xcl::c) il:f 0 il:condition-case0579) @cgh (12 il:\\do-throw 9 il:\\mvlist) (5 il:condition-case0581) () value-dumpable-pa0001 il:d1 (il:p 0 il:*condition-handler-bindings* il:f 1 il:*condition-handler-bindings* il:f 2 obj) ggQoRh i (25 il:\\mvlist 20 dump-value) (5 value-dumpable-pa0001a0002 2 object-not-dumpable) ( 15 #.dummy-handle) value-dumpable-p il:d1 (il:p 0 il:condition-case0579 il:i 0 obj)  gg HhI (20 values-list 11 il:\\catch-funcall) (8 value-dumpable-pa0001 5 il:condition-case0581) () dump-value il:d1 (il:l (0 il:|-args-|) il:f 7 *gather-dumper-stats* il:f 8 *table-attempts* il:f 9 *table-hits*) .ekaQlalHilaI]gJ Ig iIg IJ \WWkcWWkcIL J^d3 IJK Nd3 IJK IJK NdIJK IJK NdIJK IJK NdIJK IJK Nd IJK  IJK NdIJ IJK NIJK ggJ oMo (299 il:ecase-fail 286 error 275 dump-bitmap 263 dump-structure 252 dump-eval 249 compiler::eval-when-load-form 236 dump-array 229 arrayp 225 dump-string 217 stringp 211 dump-dcode 200 dump-list 186 dump-package 175 dump-symbol 161 dump-character 150 dump-complex 136 dump-float32 125 dump-rational 108 dump-integer 94 dump-value-fetch 67 lookup-value 61 write-op 50 write-op) (282 :object 279 object-not-dumpable 268 il:bitmap 256 cl::structure-object 242 compiler::eval-when-load 204 d-assem:dcode 192 il:listp 179 package 167 il:litatom 154 il:character 142 complex 129 il:floatp 112 ratio 58 fasl-t 47 fasl-nil 33 :block 27 handle) ( 296 (:block) 291 (handle-state handle)) dump-function-def il:d1 (il:l (2 name 1 dcode 0 handle)) 0@Hg@g @B @A oHo (45 il:ecase-fail 32 dump-value 27 dump-value 22 write-op) (19 fasl-setf-symbol-function 12 :block 3 handle) ( 42 (:block) 37 (handle-state handle)) dump-funcall il:d1 (il:l (1 function 0 handle)) +@Hg@g @A oHo (40 il:ecase-fail 27 dump-value 22 write-op) (19 fasl-funcall 12 :block 3 handle) ( 37 (:block) 32 (handle-state handle)) dump-eval il:d1 (il:l (1 form 0 handle)) +@Hg@g @A oHo (40 il:ecase-fail 27 dump-value 22 write-op) (19 fasl-eval 12 :block 3 handle) ( 37 (:block) 32 (handle-state handle)) close-fasl-handle il:d1 (il:l (0 il:|-args-|)) ekaaHlKdJ0Hl2 OdO/OI]dg=I I PagKl[a_OOh__Ok_O&_gI MgoMo Igg k_ILdOk_no ON(196 il:lisperror 160 symbol-function 143 il:ecase-fail 121 end-block 63 end-block 58 end-text) (169 handle 157 close 151 :closed 148 handle 127 :block-end 115 :block 69 :abort 50 :text 43 handle) ( 193 "TOO MANY ARGUMENTS" 140 (:text :block :block-end) 135 (handle-state handle)) (let* ((il:a0242 (quote fasl-ops)) (il:a0243 (quote il:define-types)) (il:a0244 (quote "FASL file opcodes"))) (il:set-documentation il:a0242 il:a0243 il:a0244)) (il:setq il:prettydefmacros (adjoin (quote (fasl-ops il:x (il:p il:* (il:\\define-type-file-definitions (quote fasl-ops) (quote il:x))))) il:prettydefmacros :test (quote il:equal))) (il:setq il:prettytypelst (adjoin (quote (changedfasl-opslst fasl-ops "FASL file opcodes")) il:prettytypelst :test (quote il:equal))) (proclaim (quote (xcl:global changedfasl-opslst))) (or (boundp (quote changedfasl-opslst)) (il:setq changedfasl-opslst nil)) (cond ((not (gethash (quote fasl-ops) il:*definition-hash-table*)) (let* ((il:a0245 (quote fasl-ops)) (il:a0246 il:*definition-hash-table*) (il:a0248 (make-hash-table :test (quote equal) :size 50 :rehash-size 50))) (cl::puthash il:a0245 il:a0246 il:a0248)))) (il:setq il:filepkgtypes (adjoin (quote fasl-ops) il:filepkgtypes)) (let* ((il:a0249 (quote fasl-ops)) (il:a0250 (quote il:getdef)) (il:a0252 (quote il:\\define-type-getdef ))) (il:putprop il:a0249 il:a0250 il:a0252)) (let* ((il:a0253 (quote fasl-ops)) (il:a0254 (quote il:deldef)) (il:a0256 (quote il:\\define-type-deldef ))) (il:putprop il:a0253 il:a0254 il:a0256)) (let* ((il:a0257 (quote fasl-ops)) (il:a0258 (quote il:putdef)) (il:a0260 (quote il:\\define-type-putdef ))) (il:putprop il:a0257 il:a0258 il:a0260)) (let* ((il:a0261 (quote fasl-ops)) (il:a0262 (quote il:filegetdef)) (il:a0264 (quote il:\\define-type-filegetdef))) (il:putprop il:a0261 il:a0262 il:a0264)) (let* ((il:a0265 (quote fasl-ops)) (il:a0266 (quote il:filepkgcontents)) (il:a0268 (quote il:nill))) ( il:putprop il:a0265 il:a0266 il:a0268)) (il:setq xcl::*definition-prototypes* (adjoin (cons (quote fasl-ops) nil) xcl::*definition-prototypes* :key (quote car))) (let* ((il:a0272 (quote optable)) (il:a0273 t) (il:a0274 (quote (cl::ps optable new-optable (vector opnames next) cl::datatype nil nil optable- (new-optable . :none) optable-p cl::default-structure-printer copy-optable nil 0 ((vector nil t nil (optable 0 il:pointer) optable-vector) (opnames nil t nil (optable 2 il:pointer) optable-opnames) (next nil t nil (optable 4 il:pointer) optable-next)) ((vector nil t nil (optable 0 il:pointer) optable-vector) (opnames nil t nil (optable 2 il:pointer) optable-opnames) (next nil t nil (optable 4 il:pointer) optable-next)) nil nil (il:pointer il:pointer il:pointer) nil t)))) (cl::set-parsed-structure il:a0272 il:a0274)) (si::%structure-declare-datatype (quote optable) (quote (il:pointer il:pointer il:pointer)) (quote (( optable 0 il:pointer) (optable 2 il:pointer) (optable 4 il:pointer))) 6 (quote cl::structure-object)) |type-expand-OPTABLE| il:d1 (il:l (0 il:$$type-form)) onil nil ( 3 (:datatype optable)) (il:put (quote optable) (quote il:type-expander) (quote |type-expand-OPTABLE|)) optable-p il:d1 (il:l (0 cl::object)) @inil (3 optable) () |definline-OPTABLE-P| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (cl::object) (block optable-p (typep cl::object (quote optable))))) (let* ((il:a0277 (quote optable-p)) (il:a0278 (quote compiler:optimizer-list)) (il:a0280 (adjoin ( quote |definline-OPTABLE-P|) (get il:a0277 il:a0278)))) (il:putprop il:a0277 il:a0278 il:a0280)) optable-vector il:d1 (il:l (0 optable)) @nil (3 optable) () |definline-OPTABLE-VECTOR| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (optable) (block optable-vector (il:fetchfield (quote (optable 0 il:pointer)) optable)))) (let* ((il:a0282 (quote optable-vector)) (il:a0283 (quote compiler:optimizer-list)) (il:a0285 (adjoin (quote |definline-OPTABLE-VECTOR|) (get il:a0282 il:a0283)))) (il:putprop il:a0282 il:a0283 il:a0285)) optable-opnames il:d1 (il:l (0 optable)) @nil (3 optable) () |definline-OPTABLE-OPNAMES| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (optable) (block optable-opnames (il:fetchfield (quote (optable 2 il:pointer)) optable)))) (let* ((il:a0287 (quote optable-opnames)) (il:a0288 (quote compiler:optimizer-list)) (il:a0290 (adjoin (quote |definline-OPTABLE-OPNAMES|) (get il:a0287 il:a0288)))) (il:putprop il:a0287 il:a0288 il:a0290 )) optable-next il:d1 (il:l (0 optable)) @nil (3 optable) () |definline-OPTABLE-NEXT| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (optable) (block optable-next (il:fetchfield (quote (optable 4 il:pointer)) optable)))) (let* ((il:a0292 (quote optable-next)) (il:a0293 (quote compiler:optimizer-list)) (il:a0295 (adjoin ( quote |definline-OPTABLE-NEXT|) (get il:a0292 il:a0293)))) (il:putprop il:a0292 il:a0293 il:a0295)) (remprop (quote optable-vector) (quote il:setf-method-expander)) (il:putprop (quote optable-vector) (quote il:setf-inverse) (quote %%setf-optable-vector)) %%setf-optable-vector il:d1 (il:l (1 cl::value 0 optable)) @AAnil (3 optable) () |definline-%%SETF-OPTABLE-VECTOR| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (optable cl::value) (block %%setf-optable-vector (setf (il:fetchfield (quote (optable 0 il:pointer)) optable) cl::value)))) (let* ((il:a0297 (quote %%setf-optable-vector)) (il:a0298 (quote compiler:optimizer-list)) (il:a0300 ( adjoin (quote |definline-%%SETF-OPTABLE-VECTOR|) (get il:a0297 il:a0298)))) (il:putprop il:a0297 il:a0298 il:a0300)) (remprop (quote optable-opnames) (quote il:setf-method-expander)) (il:putprop (quote optable-opnames) (quote il:setf-inverse) (quote %%setf-optable-opnames)) %%setf-optable-opnames il:d1 (il:l (1 cl::value 0 optable)) @AAnil (3 optable) () |definline-%%SETF-OPTABLE-OPNAMES| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (optable cl::value) (block %%setf-optable-opnames (setf (il:fetchfield (quote (optable 2 il:pointer)) optable) cl::value)))) (let* ((il:a0302 (quote %%setf-optable-opnames)) (il:a0303 (quote compiler:optimizer-list)) (il:a0305 (adjoin (quote |definline-%%SETF-OPTABLE-OPNAMES|) (get il:a0302 il:a0303)))) (il:putprop il:a0302 il:a0303 il:a0305)) (remprop (quote optable-next) (quote il:setf-method-expander)) (il:putprop (quote optable-next) (quote il:setf-inverse) (quote %%setf-optable-next)) %%setf-optable-next il:d1 (il:l (1 cl::value 0 optable)) @AAnil (3 optable) () |definline-%%SETF-OPTABLE-NEXT| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (optable cl::value) (block %%setf-optable-next (setf (il:fetchfield (quote (optable 4 il:pointer)) optable) cl::value)))) (let* ((il:a0307 (quote %%setf-optable-next)) (il:a0308 (quote compiler:optimizer-list)) (il:a0310 ( adjoin (quote |definline-%%SETF-OPTABLE-NEXT|) (get il:a0307 il:a0308)))) (il:putprop il:a0307 il:a0308 il:a0310)) new-optable il:d1 (il:l (0 il:|-args-|)) eHkJdIDhqHkKdJGhHkNdMMh_`_IOLOOOagJkaJlZagKkaKl[agNkaNl^nil (122 :next 103 :opnames 84 :vector 73 optable 65 optable 57 optable 51 il:|OPTABLETYPE#|) () copy-optable il:d1 (il:l (0 optable)) @@H'`H@H@H@HigHg b(57 il:check-type-fail) (54 optable 50 optable 39 optable 30 optable 21 optable 13 il:|OPTABLETYPE#| 7 optable) () |definline-COPY-OPTABLE| il:d1 (il:l (2 il:$$ctx 1 il:$$env 0 il:$$whole)) @oHnil nil ( 8 (lambda (optable) (block copy-optable (check-type optable optable) (let ((cl::new (il:ncreate (quote optable)))) (setf (il:ffetchfield (quote (optable 0 il:pointer)) cl::new) (il:ffetchfield (quote (optable 0 il:pointer)) optable)) (setf (il:ffetchfield (quote (optable 2 il:pointer)) cl::new) (il:ffetchfield (quote (optable 2 il:pointer)) optable)) (setf (il:ffetchfield (quote (optable 4 il:pointer)) cl::new) (il:ffetchfield (quote (optable 4 il:pointer)) optable)) cl::new)))) (let* ((il:a0315 (quote copy-optable)) (il:a0316 (quote compiler:optimizer-list)) (il:a0318 (adjoin ( quote |definline-COPY-OPTABLE|) (get il:a0315 il:a0316)))) (il:putprop il:a0315 il:a0316 il:a0318)) make-optable il:d1 nil (ngg "HIJIgKlH(14 make-array 2 new-optable) (32 fasl-end-of-block 23 optable 11 unimplemented-opcode 8 :initial-element) () fasl-end-of-block il:d1 (il:l (1 op 0 stream) il:f 0 *block-level*) P gh gg@ (25 error 14 il:\\do-throw 11 il:\\mvlist 3 zerop) (21 :stream 18 unexpected-end-of-block 7 fasl-block-finished) () (let* ((il:a0327 (quote defop)) (il:a0328 (quote il:definer-for)) (il:a0330 (quote fasl-ops))) ( il:putprop il:a0327 il:a0328 il:a0330)) (let* ((il:a0331 (quote fasl-ops)) (il:a0332 (quote il:defined-by)) (il:a0334 (adjoin (quote defop) ( get il:a0331 il:a0332)))) (il:putprop il:a0331 il:a0332 il:a0334)) |expand-DEFOPA0001| il:d1 (il:l (1 si::$$macro-environment 0 si::$$macro-form))  @ HHZ[KgM jgM g_JAi __O_O_Mo N ^ggIoOoOO gggOhLhgIhhggIhLOhh{fgggOhggOhogOhhgILgNkggOhhOoOO h(275 il:\\append2 122 il:\\append2 94 zerop 90 il:keyword-test 61 il:\\mvlist 58 xcl:parse-body 39 il:find-keyword 24 il:find-keyword) (249 optable-next 246 :table 240 :indirect 235 defop 222 setescape 208 optable-next 205 setf 197 optable-next 194 unless 191 progn 162 quote 159 add-op-translation 148 quote 135 optable-vector 132 elt 129 setf 102 defun 99 progn 48 *default-optable* 35 :table 20 :indirect) ( 268 "FASL opcode implementation" 217 ((make-optable)) 115 "FASL opcode implementation" 107 (stream opcode) 87 (:table :indirect)) |expand-DEFOP| il:d1 (il:l (1 si::$$macro-environment 0 si::$$macro-form)) b@1AH ZggggJIhhgogoggKhogHhhhhgKhh(9 xcl:remove-comments) (86 quote 66 quote 55 quote 52 il:\\define-type-save-defn 45 unless 38 eval-when 25 |expand-DEFOPA0001| 22 si::macro-funcall 19 il:without-filepkg 16 progn) ( 63 (quote fasl-ops) 49 (null il:filepkgflg) 42 (eval)) (il:setf-macro-function (quote defop) (quote |expand-DEFOP|)) (il:setq il:prettyprintmacros (adjoin (quote (defop . il:pprint-definer)) il:prettyprintmacros :test ( quote il:equal))) (let* ((il:a0336 (quote defop)) (il:a0337 (quote il:definition-name)) (il:a0339 (quote second))) ( il:putprop il:a0336 il:a0337 il:a0339)) (let* ((il:a0350 (quote defrange)) (il:a0351 (quote il:definer-for)) (il:a0353 (quote fasl-ops))) ( il:putprop il:a0350 il:a0351 il:a0353)) (let* ((il:a0354 (quote fasl-ops)) (il:a0355 (quote il:defined-by)) (il:a0357 (adjoin (quote defrange) (get il:a0354 il:a0355)))) (il:putprop il:a0354 il:a0355 il:a0357)) |expand-DEFRANGEA0001| il:d1 (il:l (1 si::$$macro-environment 0 si::$$macro-form)) @HHZ[KgM 0jgM g_J__O__OAi __O_O_Mo N ggIoOoOO ggggIhhhgggIhhhhggOhggggLhhhgggOhogIhhgggoggggOhhhogOhhhhhgggOhggOhogOhhgILgNkggOhhOoOO h(422 il:\\append2 142 il:\\append2 112 zerop 108 il:keyword-test 79 il:\\mvlist 76 xcl:parse-body 39 il:find-keyword 24 il:find-keyword) (396 optable-next 393 :table 387 :indirect 382 defrange 369 setescape 355 optable-next 352 setf 344 optable-next 341 unless 338 progn 302 opcode 279 i 276 + 273 write-to-string 270 pname 263 concatenate 260 intern 257 add-op-translation 246 quote 232 optable-vector 229 elt 226 setf 213 i 210 + 207 opcode 204 let 196 i 193 dotimes 177 quote 174 symbol-name 171 pname 158 quote 155 symbol-package 152 package 149 let 122 defun 119 progn 48 *default-optable* 35 :table 20 :indirect) ( 415 "FASL opcode implementation" 364 ((make-optable)) 297 (package) 267 (quote string) 241 (opcode) 135 "FASL opcode implementation" 127 (stream opcode) 105 (:table :indirect)) |expand-DEFRANGE| il:d1 (il:l (1 si::$$macro-environment 0 si::$$macro-form)) b@1AH ZggggJIhhgogoggKhogHhhhhgKhh(9 xcl:remove-comments) (86 quote 66 quote 55 quote 52 il:\\define-type-save-defn 45 unless 38 eval-when 25 |expand-DEFRANGEA0001| 22 si::macro-funcall 19 il:without-filepkg 16 progn) ( 63 (quote fasl-ops) 49 (null il:filepkgflg) 42 (eval)) (il:setf-macro-function (quote defrange) (quote |expand-DEFRANGE|)) (il:setq il:prettyprintmacros (adjoin (quote (defrange . il:pprint-definer)) il:prettyprintmacros :test (quote il:equal))) (let* ((il:a0359 (quote defrange)) (il:a0360 (quote il:definition-name)) (il:a0362 (quote second))) ( il:putprop il:a0359 il:a0360 il:a0362)) add-op-translation il:d1 (il:l (2 table 1 opcode 0 name)) 1@B @ABBHIIAHdI(9 assoc) (30 optable 18 optable 4 optable) () opcode-sequence il:d1 (il:l (0 il:|-args-|) il:f 4 *default-optable*) :eka!lHTlaZhIJ IJ [lKh(44 opcode-sequence 32 assoc) (39 optable 27 optable) () fasl-extended il:d1 (il:l (1 op 0 stream) il:p 0 *current-optable* il:f 1 *current-optable*) Q@ (12 do-op) (3 optable) () setescape il:d1 (il:l (0 table)) @g Hl(14 symbol-function) (11 fasl-extended 3 optable) () unimplemented-opcode il:d1 (il:l (1 opcode 0 stream)) ggA (9 error) (5 :opname 2 unimplemented-opcode) () (proclaim (quote (special *default-optable*))) (or (boundp (quote *default-optable*)) (il:setq *default-optable* (make-optable))) (proclaim (quote (special *current-optable*))) (or (boundp (quote *current-optable*)) (il:setq *current-optable* nil)) (proclaim (quote (special initial-value-table-size))) (il:setq initial-value-table-size 2048) (il:setq value-table-increment 1024) (il:puthash (quote value-table-increment) (quote (il:constant value-table-increment)) il:compvarmacrohash) (proclaim (quote (special *value-table*))) (or (boundp (quote *value-table*)) (il:setq *value-table* nil)) (proclaim (quote (special *block-level*))) (or (boundp (quote *block-level*)) (il:setq *block-level* 0)) (proclaim (quote (special debug-reader))) (or (boundp (quote debug-reader)) (il:setq debug-reader nil)) (proclaim (quote (special debug-stream))) (or (boundp (quote debug-stream)) (il:setq debug-stream nil)) |expand-WITH-OPTABLE| il:d1 (il:l (1 si::$$macro-environment 0 si::$$macro-form)) @!HHggIhhJnil (16 *current-optable* 13 let) () (il:setf-macro-function (quote with-optable) (quote |expand-WITH-OPTABLE|)) process-filea0001 il:d1 (il:l (0 text)) @ (6 terpri 3 princ) nil () process-file il:d1 (il:l (0 il:|-args-|)) yekaaHlKdJ7gHlNdM:h_Id l:o I Id -agKkaKl[agNkaNl^LO (116 process-segment 71 values 65 il:eofp 60 check-version 55 error) (95 :item-fn 76 :text-fn 23 process-filea0001) ( 52 "Not a FASL file.") (let* ((il:a0368 (quote process-file)) (il:a0369 (quote function)) (il:a0370 "Calls FASL:PROCESS-SEGMENT with the approriate arguments for each segment in the file. The stream should be positioned at the beginning." )) (il:set-documentation il:a0368 il:a0369 il:a0370)) check-version il:d1 (il:l (0 stream)) $@ oHHoh oH (33 error 3 il:bin16) nil ( 29 "Version not supported: ~D." 19 (2 . 4) 10 (2 . 4)) process-segment il:d1 (il:l (0 il:|-args-|) il:f 5 *default-optable*) Aeka1lHhlalHhlalHUlaJI kJI IKL (62 process-block 55 skip-text 47 read-text) nil () read-text il:d1 (il:l (0 stream)) Dngggigj @ Idl:Hg ZjJh`JH @ (61 vector-push-extend 39 coerce 20 make-array) (55 il:\\charhi 36 string 15 :fill-pointer 11 :adjustable 8 character 5 :element-type) () process-blocka0001 il:d1 (il:p 1 *value-table* il:p 0 *current-optable* il:f 3 item-fn il:f 4 optable il:f 5 stream) TUj SJkS(14 do-op 6 new-value-table) nil () process-block il:d1 (il:l (0 il:|-args-|) il:p 3 optable il:p 2 item-fn il:p 1 stream il:f 4 *default-optable*) *eka!lHhlalHTlagg (39 il:\\catch-funcall) (36 process-blocka0001 33 fasl-block-finished) () skip-text il:d1 (il:l (0 stream)) @ dl:(11 values) nil () |expand-NEXT-VALUE| il:d1 (il:l (1 si::$$macro-environment 0 si::$$macro-form)) onil nil ( 3 (do-op stream)) (il:setf-macro-function (quote next-value) (quote |expand-NEXT-VALUE|)) do-op il:d1 (il:l (0 il:|-args-|) il:p 4 *block-level* il:f 5 debug-reader il:f 6 debug-stream il:f 7 *current-optable* il:f 8 *block-level*) [eka!lHWkԂlaI UVoLlJW J IJlWJ[UVoLlK K(87 format 56 format 50 rassoc) (66 optable 45 optable) ( 79 "~VTValue: ~S~%" 35 "~VT~A (~3O)~%") new-value-table il:d1 (il:f 0 initial-value-table-size) Pgjgi (12 make-array) (7 :extendable 3 :fill-pointer) () clear-table il:d1 (il:l (0 il:|-args-|) il:f 1 *value-table*) ekHQkaj (15 il:set-fill-pointer) nil () store-value il:d1 (il:l (0 il:|-args-|) il:f 3 *value-table*) ekalHSlaIJn I(27 vector-push-extend) nil () fetch-value il:d1 (il:l (0 il:|-args-|) il:f 2 *value-table*) ekalHRlaInil nil () collect-list il:d1 (il:l (2 dotted 1 nelts 0 stream)) PBAl:@ @ BAkՀAAk\H@ J KhZLk԰K&I!BH @ JIH(72 do-op 67 last 37 do-op 15 do-op 11 do-op) nil () fasl-short-integer il:d1 (il:l (1 opcode 0 stream)) Anil nil () (let* ((il:a0374 (quote fasl-short-integer)) (il:a0375 (quote function)) (il:a0376 "FASL opcode implementation")) (il:set-documentation il:a0374 il:a0375 il:a0376)) (let ((package (symbol-package (quote fasl-short-integer))) (pname (symbol-name (quote fasl-short-integer)))) (let ((t0 128) (i 0)) (prog nil il:looptag0377 (cond ((>= i t0) (return nil))) (let ((opcode (+ i 0))) (setf (elt (optable-vector *default-optable*) opcode) (quote fasl-short-integer)) (add-op-translation (intern (concatenate (quote string) pname (write-to-string (+ i 0))) package) opcode *default-optable*)) (incf i) (go il:looptag0377)))) fasl-nil il:d1 (il:l (1 opcode 0 stream)) hnil nil () (let* ((il:a0378 (quote fasl-nil)) (il:a0379 (quote function)) (il:a0380 "FASL opcode implementation") ) (il:set-documentation il:a0378 il:a0379 il:a0380)) (il:%setelt (optable-vector *default-optable*) 128 (quote fasl-nil)) (add-op-translation (quote fasl-nil) 128 *default-optable*) fasl-t il:d1 (il:l (1 opcode 0 stream)) inil nil () (let* ((il:a0381 (quote fasl-t)) (il:a0382 (quote function)) (il:a0383 "FASL opcode implementation")) (il:set-documentation il:a0381 il:a0382 il:a0383)) (il:%setelt (optable-vector *default-optable*) 129 (quote fasl-t)) (add-op-translation (quote fasl-t) 129 *default-optable*) fasl-integer il:d1 (il:l (1 opcode 0 stream)) @ @ @ @ nil nil () (let* ((il:a0384 (quote fasl-integer)) (il:a0385 (quote function)) (il:a0386 "FASL opcode implementation")) (il:set-documentation il:a0384 il:a0385 il:a0386)) (il:%setelt (optable-vector *default-optable*) 130 (quote fasl-integer)) (add-op-translation (quote fasl-integer) 130 *default-optable*) fasl-large-integer il:d1 (il:l (1 opcode 0 stream)) v @ ij#HkljjMJ NjNk@ _IhOllglMhOJNLL OkOkOmKkOkOMlս(26 zerop 3 do-op) (56 il:bytespec) () (let* ((il:a0387 (quote fasl-large-integer)) (il:a0388 (quote function)) (il:a0389 "FASL opcode implementation")) (il:set-documentation il:a0387 il:a0388 il:a0389)) (il:%setelt (optable-vector *default-optable*) 131 (quote fasl-large-integer)) (add-op-translation (quote fasl-large-integer) 131 *default-optable*) fasl-ratio il:d1 (il:l (1 opcode 0 stream)) @ @ (10 il:%/ 7 do-op 3 do-op) nil () (let* ((il:a0390 (quote fasl-ratio)) (il:a0391 (quote function)) (il:a0392 "FASL opcode implementation")) (il:set-documentation il:a0390 il:a0391 il:a0392)) (il:%setelt (optable-vector *default-optable*) 134 (quote fasl-ratio)) (add-op-translation (quote fasl-ratio) 134 *default-optable*) fasl-complex il:d1 (il:l (1 opcode 0 stream)) @ @ (10 complex 7 do-op 3 do-op) nil () (let* ((il:a0393 (quote fasl-complex)) (il:a0394 (quote function)) (il:a0395 "FASL opcode implementation")) (il:set-documentation il:a0393 il:a0394 il:a0395)) (il:%setelt (optable-vector *default-optable*) 135 (quote fasl-complex)) (add-op-translation (quote fasl-complex) 135 *default-optable*) fasl-vector il:d1 (il:l (1 opcode 0 stream)) -@ QHgh HjJKIIK@ MLKkԻ(33 do-op 14 make-array 3 do-op) (10 :initial-element) () (let* ((il:a0396 (quote fasl-vector)) (il:a0397 (quote function)) (il:a0398 "FASL opcode implementation")) (il:set-documentation il:a0396 il:a0397 il:a0398)) (il:%setelt (optable-vector *default-optable*) 136 (quote fasl-vector)) (add-op-translation (quote fasl-vector) 136 *default-optable*) fasl-create-array il:d1 (il:l (1 opcode 0 stream)) 0g k@ @ dIkYno IH(39 il:lisperror 17 do-op 13 do-op 5 symbol-function) (2 make-array) ( 36 "TOO MANY ARGUMENTS") (let* ((il:a0399 (quote fasl-create-array)) (il:a0400 (quote function)) (il:a0401 "FASL opcode implementation")) (il:set-documentation il:a0399 il:a0400 il:a0401)) (il:%setelt (optable-vector *default-optable*) 137 (quote fasl-create-array)) (add-op-translation (quote fasl-create-array) 137 *default-optable*) fasl-initialize-array il:d1 (il:l (1 opcode 0 stream)) ,@ QH @ jJKHIK@ MLKkԻ(32 do-op 15 do-op 10 il:%flatten-array 3 do-op) nil () (let* ((il:a0402 (quote fasl-initialize-array)) (il:a0403 (quote function)) (il:a0404 "FASL opcode implementation")) (il:set-documentation il:a0402 il:a0403 il:a0404)) (il:%setelt (optable-vector *default-optable*) 138 (quote fasl-initialize-array)) (add-op-translation (quote fasl-initialize-array) 138 *default-optable*) fasl-initialize-bit-array il:d1 (il:l (1 opcode 0 stream)) y @  H @ l YI[ Jl_H @ j\K HN_OL_gklLh_MO O_kOkOOLk԰(94 il:rsh 56 il:%= 46 il:%flatten-array 33 zerop 23 il:\\mvlist 20 floor 15 do-op 10 il:%array-base 3 do-op) (73 il:bytespec) () (let* ((il:a0405 (quote fasl-initialize-bit-array)) (il:a0406 (quote function)) (il:a0407 "FASL opcode implementation")) (il:set-documentation il:a0405 il:a0406 il:a0407)) (il:%setelt (optable-vector *default-optable*) 139 (quote fasl-initialize-bit-array)) (add-op-translation (quote fasl-initialize-bit-array) 139 *default-optable*) fasl-thin-string il:d1 (il:l (1 opcode 0 stream)) @ H @IjH I(20 il:\\bins 10 il:allocstring 3 do-op) nil () (let* ((il:a0408 (quote fasl-thin-string)) (il:a0409 (quote function)) (il:a0410 "FASL opcode implementation")) (il:set-documentation il:a0408 il:a0409 il:a0410)) (il:%setelt (optable-vector *default-optable*) 140 (quote fasl-thin-string)) (add-op-translation (quote fasl-thin-string) 140 *default-optable*) fasl-fat-stringa0001a0002 il:d1 (il:f 0 stream) Pj (4 il:charset) nil () fasl-fat-stringa0001 il:d1 (il:name il:errorset il:l (0 nil) il:f 5 il:resetvarslst il:f 6 string il:f 7 nchars il:f 8 stream il:f 9 il:resety) CghhhUc Wj2HIVciVIW ZjJh`JLKIkԹ(38 il:readccode) (53 il:\\charhi 2 fasl-fat-stringa0001a0002) () fasl-fat-string il:d1 (il:l (1 opcode) il:p 3 il:resety il:p 2 il:lispxhist il:p 1 string il:p 0 nchars il:i 0 stream il:f 5 il:lispxhist il:f 6 il:resetvarslst) 5@ H @j U!Vog hg\ LK(48 il:error! 43 il:resetrestore 33 fasl-fat-stringa0001 18 il:charset 10 il:allocstring 3 do-op) (39 il:error 30 il:internal) ( 27 (fasl-fat-stringa0001)) (let* ((il:a0411 (quote fasl-fat-string)) (il:a0412 (quote function)) (il:a0413 "FASL opcode implementation")) (il:set-documentation il:a0411 il:a0412 il:a0413)) (il:%setelt (optable-vector *default-optable*) 141 (quote fasl-fat-string)) (add-op-translation (quote fasl-fat-string) 141 *default-optable*) fasl-character il:d1 (il:l (1 opcode 0 stream)) "@ dl:@ HjHh`H(11 il:bin16) (29 il:\\charhi) () (let* ((il:a0414 (quote fasl-character)) (il:a0415 (quote function)) (il:a0416 "FASL opcode implementation")) (il:set-documentation il:a0414 il:a0415 il:a0416)) (il:%setelt (optable-vector *default-optable*) 142 (quote fasl-character)) (add-op-translation (quote fasl-character) 142 *default-optable*) fasl-lisp-symbol il:d1 (il:l (1 opcode 0 stream)) @ o (13 intern 10 find-package 3 do-op) nil ( 7 "LISP") (let* ((il:a0417 (quote fasl-lisp-symbol)) (il:a0418 (quote function)) (il:a0419 "FASL opcode implementation")) (il:set-documentation il:a0417 il:a0418 il:a0419)) (il:%setelt (optable-vector *default-optable*) 143 (quote fasl-lisp-symbol)) (add-op-translation (quote fasl-lisp-symbol) 143 *default-optable*) fasl-keyword-symbol il:d1 (il:l (1 opcode 0 stream)) @ o (13 intern 10 find-package 3 do-op) nil ( 7 "KEYWORD") (let* ((il:a0420 (quote fasl-keyword-symbol)) (il:a0421 (quote function)) (il:a0422 "FASL opcode implementation")) (il:set-documentation il:a0420 il:a0421 il:a0422)) (il:%setelt (optable-vector *default-optable*) 144 (quote fasl-keyword-symbol)) (add-op-translation (quote fasl-keyword-symbol) 144 *default-optable*) fasl-find-package il:d1 (il:l (1 opcode 0 stream)) @ (6 find-package 3 do-op) nil () (let* ((il:a0423 (quote fasl-find-package)) (il:a0424 (quote function)) (il:a0425 "FASL opcode implementation")) (il:set-documentation il:a0423 il:a0424 il:a0425)) (il:%setelt (optable-vector *default-optable*) 145 (quote fasl-find-package)) (add-op-translation (quote fasl-find-package) 145 *default-optable*) fasl-symbol-in-package il:d1 (il:l (1 opcode 0 stream)) @ @ YH HI (22 intern 16 make-symbol 10 do-op 3 do-op) nil () (let* ((il:a0426 (quote fasl-symbol-in-package)) (il:a0427 (quote function)) (il:a0428 "FASL opcode implementation")) (il:set-documentation il:a0426 il:a0427 il:a0428)) (il:%setelt (optable-vector *default-optable*) 146 (quote fasl-symbol-in-package)) (add-op-translation (quote fasl-symbol-in-package) 146 *default-optable*) fasl-list il:d1 (il:l (1 opcode 0 stream)) @d (7 collect-list 4 do-op) nil () (let* ((il:a0429 (quote fasl-list)) (il:a0430 (quote function)) (il:a0431 "FASL opcode implementation" )) (il:set-documentation il:a0429 il:a0430 il:a0431)) (il:%setelt (optable-vector *default-optable*) 147 (quote fasl-list)) (add-op-translation (quote fasl-list) 147 *default-optable*) fasl-list* il:d1 (il:l (1 opcode 0 stream)) @d i (8 collect-list 4 do-op) nil () (let* ((il:a0432 (quote fasl-list*)) (il:a0433 (quote function)) (il:a0434 "FASL opcode implementation")) (il:set-documentation il:a0432 il:a0433 il:a0434)) (il:%setelt (optable-vector *default-optable*) 148 (quote fasl-list*)) (add-op-translation (quote fasl-list*) 148 *default-optable*) fasl-interlisp-symbol il:d1 (il:l (1 opcode 0 stream)) @ o (13 intern 10 find-package 3 do-op) nil ( 7 "INTERLISP") (let* ((il:a0435 (quote fasl-interlisp-symbol)) (il:a0436 (quote function)) (il:a0437 "FASL opcode implementation")) (il:set-documentation il:a0435 il:a0436 il:a0437)) (il:%setelt (optable-vector *default-optable*) 149 (quote fasl-interlisp-symbol)) (add-op-translation (quote fasl-interlisp-symbol) 149 *default-optable*) fasl-dcode il:d1 (il:l (1 opcode 0 stream) il:p 19 il:\\interruptable il:p 18 il:\\interruptable) B0@ X@ HM \L@IJM IJj_l_Hklm_l_h___HO|INjIO@ _OIl OlǿIO@ @ _ _IOIOO l knI@ !I@ n@ [IKg\kZ@ _@ _@ _IOO IOOOO NOl Ol Ok_Ol_,j_"pO"jhIddnnkIdnnkkl,IJl@ @ j"O(O*%@ _,@ _.IJO,O. O*k_*@ j"O(O*%@ _,@ _.IJO,O. O*k_*@ j"O(O*$@ _,@ _.IJO,O. O*k_*@ j"O(O*'@ _,@ _.IJO,O. O*k_*KgI I(573 il:make-compiled-closure 552 d-assem:fixup-word 549 il:\\resolve.typenumber 536 do-op 529 do-op 514 do-op 499 d-assem:fixup-ptr 486 do-op 479 do-op 464 do-op 449 d-assem:fixup-word 435 do-op 428 do-op 413 do-op 398 d-assem:fixup-word 384 do-op 377 do-op 362 do-op 358 d-assem:fixup-ptr 355 do-op 273 floor 265 il:%= 255 d-assem:fixup-word 233 d-assem:fixup-word 221 do-op 214 do-op 193 do-op 183 do-op 163 ceiling 102 do-op 37 il:\\bins 23 il:\\mvlist 20 d-assem:allocate-code-block 14 do-op 9 do-op) (567 :function 199 :closure) () (let* ((il:a0438 (quote fasl-dcode)) (il:a0439 (quote function)) (il:a0440 "FASL opcode implementation")) (il:set-documentation il:a0438 il:a0439 il:a0440)) (il:%setelt (optable-vector *default-optable*) 150 (quote fasl-dcode)) (add-op-translation (quote fasl-dcode) 150 *default-optable*) fasl-table-store il:d1 (il:l (1 opcode 0 stream)) @ (6 store-value 3 do-op) nil () (let* ((il:a0441 (quote fasl-table-store)) (il:a0442 (quote function)) (il:a0443 "FASL opcode implementation")) (il:set-documentation il:a0441 il:a0442 il:a0443)) (il:%setelt (optable-vector *default-optable*) 152 (quote fasl-table-store)) (add-op-translation (quote fasl-table-store) 152 *default-optable*) fasl-table-fetch il:d1 (il:l (1 opcode 0 stream)) @ (6 fetch-value 3 do-op) nil () (let* ((il:a0444 (quote fasl-table-fetch)) (il:a0445 (quote function)) (il:a0446 "FASL opcode implementation")) (il:set-documentation il:a0444 il:a0445 il:a0446)) (il:%setelt (optable-vector *default-optable*) 153 (quote fasl-table-fetch)) (add-op-translation (quote fasl-table-fetch) 153 *default-optable*) fasl-verify-table-size il:d1 (il:l (1 opcode 0 stream) il:f 1 *value-table*) @ HQ :ggQgH (29 error 11 length 3 do-op) (24 :expected 20 :table 17 inconsistent-table) () (let* ((il:a0447 (quote fasl-verify-table-size)) (il:a0448 (quote function)) (il:a0449 "FASL opcode implementation")) (il:set-documentation il:a0447 il:a0448 il:a0449)) (il:%setelt (optable-vector *default-optable*) 154 (quote fasl-verify-table-size)) (add-op-translation (quote fasl-verify-table-size) 154 *default-optable*) fasl-eval il:d1 (il:l (1 opcode 0 stream)) @ (6 eval 3 do-op) nil () (let* ((il:a0450 (quote fasl-eval)) (il:a0451 (quote function)) (il:a0452 "FASL opcode implementation" )) (il:set-documentation il:a0450 il:a0451 il:a0452)) (il:%setelt (optable-vector *default-optable*) 155 (quote fasl-eval)) (add-op-translation (quote fasl-eval) 155 *default-optable*) fasl-float32 il:d1 (il:l (1 opcode 0 stream)) l@Hjl H(13 il:\\bins) nil () (let* ((il:a0453 (quote fasl-float32)) (il:a0454 (quote function)) (il:a0455 "FASL opcode implementation")) (il:set-documentation il:a0453 il:a0454 il:a0455)) (il:%setelt (optable-vector *default-optable*) 132 (quote fasl-float32)) (add-op-translation (quote fasl-float32) 132 *default-optable*) fasl-setf-symbol-function il:d1 (il:l (1 opcode 0 stream)) @ @ (10 il:setf-symbol-function 7 do-op 3 do-op) nil () (let* ((il:a0456 (quote fasl-setf-symbol-function)) (il:a0457 (quote function)) (il:a0458 "FASL opcode implementation")) (il:set-documentation il:a0456 il:a0457 il:a0458)) (il:%setelt (optable-vector *default-optable*) 156 (quote fasl-setf-symbol-function)) (add-op-translation (quote fasl-setf-symbol-function) 156 *default-optable*) fasl-funcall il:d1 (il:l (1 opcode 0 stream)) j@ (4 do-op) nil () (let* ((il:a0459 (quote fasl-funcall)) (il:a0460 (quote function)) (il:a0461 "FASL opcode implementation")) (il:set-documentation il:a0459 il:a0460 il:a0461)) (il:%setelt (optable-vector *default-optable*) 157 (quote fasl-funcall)) (add-op-translation (quote fasl-funcall) 157 *default-optable*) fasl-bitmap16 il:d1 (il:l (1 opcode 0 stream)) 4@ A@ @ HIJ [@LjIHJl l K(48 il:\\bins 41 ceiling 22 il:bitmapcreate 15 do-op 10 do-op 3 do-op) (26 il:bitmap) () (let* ((il:a0462 (quote fasl-bitmap16)) (il:a0463 (quote function)) (il:a0464 "FASL opcode implementation")) (il:set-documentation il:a0462 il:a0463 il:a0464)) (il:%setelt (optable-vector *default-optable*) 158 (quote fasl-bitmap16)) (add-op-translation (quote fasl-bitmap16) 158 *default-optable*) fasl-structure il:d1 (il:l (1 opcode 0 stream)) @ @  (11 il:create-structure 7 do-op 3 do-op) nil () (let* ((il:a0465 (quote fasl-structure)) (il:a0466 (quote function)) (il:a0467 "FASL opcode implementation")) (il:set-documentation il:a0465 il:a0466 il:a0467)) (il:%setelt (optable-vector *default-optable*) 159 (quote fasl-structure)) (add-op-translation (quote fasl-structure) 159 *default-optable*) (il:putprops il:fasl il:filetype compile-file) (il:putprops il:fasl il:makefile-environment (:readtable "XCL" :package "FASL")) (il:putprops il:fasl il:copyright ("Xerox Corporation" 1986)) nil