(DEFINE-FILE-INFO PACKAGE "FASL" READTABLE "XCL" BASE 10) (IL:FILECREATED "23-Nov-2021 12:29:28" ("compiled on " IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>FASLOAD.;5|) "22-Nov-2021 22:19:22" "COMPILE-FILEd" IL:|in| "FULL 22-Nov-2021 ..." IL:|dated| "22-Nov-2021 22:19:27") (IL:FILECREATED "23-Nov-2021 12:29:28" IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>FASLOAD.;5| 34723 IL:|changes| IL:|to:| (IL:FNS CONVERT-FASL-DATE) IL:|previous| IL:|date:| "23-Nov-2021 09:44:12" IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>FASLOAD.;2|) (IL:RPAQQ IL:FASLOADCOMS ((IL:* IL:|;;| "FASL file loader.") (IL:* IL:|;;| "THIS FILE IS DUPLICATED as ...Sources> for the large-symbol version, and Sources>2-byte> for the older 2-byte atom version. IF YOU CHANGE THIS COPY, CHANGE THE OTHER, AS WELL!" ) (IL:COMS (IL:* IL:|;;| "Common definitions.") (IL:DECLARE\: IL:EVAL@COMPILE IL:EVAL@LOAD IL:DONTCOPY (IL:FILES (NIL IL:SOURCE) IL:FASL-SUPPORT)) (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 END-OF-DATA-MARK VERSION-RANGE CURRENT-VERSION) (IL:FUNCTIONS TABLE-STATS)) (IL:COMS (IL:* IL:|;;| "Reader.") (IL:COMS (IL:* IL:\; "Setting up the table") ( IL:STRUCTURES OPTABLE) (IL:FUNCTIONS MAKE-OPTABLE DEFINE-OPCODE-RANGE DEFINE-SINGLE-OPCODE ADD-OP-TRANSLATION OPCODE-SEQUENCE) (IL:* IL:\; "Opcode definers") (IL:FUNCTIONS DEFOP DEFRANGE)) ( IL:FUNCTIONS FASL-END-OF-BLOCK 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:* IL:|;;| "The main reader functions:") (IL:FUNCTIONS PROCESS-FILE PROCESS-SEGMENT) (IL:FUNCTIONS WITH-OPTABLE CHECK-VERSION READ-TEXT PROCESS-BLOCK SKIP-TEXT NEXT-VALUE DO-OP NEW-VALUE-TABLE CLEAR-TABLE STORE-VALUE FETCH-VALUE COLLECT-LIST) (IL:* IL:|;;| "FASL Opcode processors:") (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-LOCAL-FN-FIXUPS FASL-TABLE-STORE FASL-TABLE-FETCH FASL-VERIFY-TABLE-SIZE FASL-EVAL FASL-FLOAT32 FASL-SETF-SYMBOL-FUNCTION FASL-FUNCALL FASL-BITMAP16 FASL-STRUCTURE)) (XCL:OPTIMIZERS FIXUP-NTOFFSET) (IL:* IL:|;;| "make sure there's some print function around so that you can load early.") (IL:P (IL:MOVD? (QUOTE IL:PRIN1) (QUOTE PRINC)) (IL:MOVD? (QUOTE IL:TERPRI) (QUOTE TERPRI))) (IL:COMS (IL:* IL:|;;| "ADDITION TO FILEDATE so it will handle FASL files as well as LCOMs and source files.") (IL:FNS IL:FASL-FILEDATE CONVERT-FASL-DATE)) (IL:* IL:|;;| "Arrange for the correct compiler and makefile environment") (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:FASLOAD))) (CL::SET-PARSED-STRUCTURE (QUOTE FASL-ERROR) T (QUOTE (CL::PS FASL-ERROR |FASL-ERROR constructor| ( SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL ERROR "FASL-ERROR-" (|FASL-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (FASL-ERROR 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE FASL-ERROR) (QUOTE (IL:XPOINTER)) (QUOTE ((FASL-ERROR 0 IL:XPOINTER))) 2 (QUOTE ERROR)) (IL:PUTPROP (QUOTE FASL-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE FASL-ERROR)) |FASL-ERROR constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |FASL-ERRORTYPE#|) () (IL:PUTPROP (QUOTE FASL-ERROR) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE FASL-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE UNIMPLEMENTED-OPCODE) T (QUOTE (CL::PS UNIMPLEMENTED-OPCODE |UNIMPLEMENTED-OPCODE constructor| (SI::--STRUCTURE-DUMMY-SLOT-- OPNAME) CL::DATATYPE NIL FASL-ERROR "UNIMPLEMENTED-OPCODE-" (|UNIMPLEMENTED-OPCODE constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (UNIMPLEMENTED-OPCODE 0 IL:XPOINTER) NIL) (OPNAME NIL T T (UNIMPLEMENTED-OPCODE 2 IL:POINTER) UNIMPLEMENTED-OPCODE-OPNAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE UNIMPLEMENTED-OPCODE) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE ((UNIMPLEMENTED-OPCODE 0 IL:XPOINTER) (UNIMPLEMENTED-OPCODE 2 IL:POINTER))) 4 (QUOTE FASL-ERROR)) (IL:PUTPROP (QUOTE UNIMPLEMENTED-OPCODE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) UNIMPLEMENTED-OPCODE-OPNAME :D8 (IL:L (0 UNIMPLEMENTED-OPCODE)) @NIL (5 UNIMPLEMENTED-OPCODE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE UNIMPLEMENTED-OPCODE)) |UNIMPLEMENTED-OPCODE constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :OPNAME 24 |UNIMPLEMENTED-OPCODETYPE#|) () |UNIMPLEMENTED-OPCODE report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 UNIMPLEMENTED-OPCODE) ( 5 "Unimplemented FASL op: ~S") (IL:PUTPROP (QUOTE UNIMPLEMENTED-OPCODE) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |UNIMPLEMENTED-OPCODE report method|)) (IL:PUTPROP (QUOTE UNIMPLEMENTED-OPCODE) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE OBJECT-NOT-DUMPABLE) T (QUOTE (CL::PS OBJECT-NOT-DUMPABLE |OBJECT-NOT-DUMPABLE constructor| (SI::--STRUCTURE-DUMMY-SLOT-- OBJECT) CL::DATATYPE NIL FASL-ERROR "OBJECT-NOT-DUMPABLE-" (|OBJECT-NOT-DUMPABLE constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (OBJECT-NOT-DUMPABLE 0 IL:XPOINTER) NIL) (OBJECT NIL T T (OBJECT-NOT-DUMPABLE 2 IL:POINTER) OBJECT-NOT-DUMPABLE-OBJECT)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE OBJECT-NOT-DUMPABLE) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE ( (OBJECT-NOT-DUMPABLE 0 IL:XPOINTER) (OBJECT-NOT-DUMPABLE 2 IL:POINTER))) 4 (QUOTE FASL-ERROR)) (IL:PUTPROP (QUOTE OBJECT-NOT-DUMPABLE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) OBJECT-NOT-DUMPABLE-OBJECT :D8 (IL:L (0 OBJECT-NOT-DUMPABLE)) @NIL (5 OBJECT-NOT-DUMPABLE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE OBJECT-NOT-DUMPABLE)) |OBJECT-NOT-DUMPABLE constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :OBJECT 24 |OBJECT-NOT-DUMPABLETYPE#|) () |OBJECT-NOT-DUMPABLE report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 OBJECT-NOT-DUMPABLE) ( 5 "Object not dumpable:~&~S") (IL:PUTPROP (QUOTE OBJECT-NOT-DUMPABLE) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |OBJECT-NOT-DUMPABLE report method|)) (IL:PUTPROP (QUOTE OBJECT-NOT-DUMPABLE) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE UNEXPECTED-END-OF-BLOCK) T (QUOTE (CL::PS UNEXPECTED-END-OF-BLOCK |UNEXPECTED-END-OF-BLOCK constructor| (SI::--STRUCTURE-DUMMY-SLOT-- STREAM) CL::DATATYPE NIL FASL-ERROR "UNEXPECTED-END-OF-BLOCK-" (|UNEXPECTED-END-OF-BLOCK constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (UNEXPECTED-END-OF-BLOCK 0 IL:XPOINTER) NIL) (STREAM NIL T T (UNEXPECTED-END-OF-BLOCK 2 IL:POINTER) UNEXPECTED-END-OF-BLOCK-STREAM)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE UNEXPECTED-END-OF-BLOCK) (QUOTE (IL:XPOINTER IL:POINTER)) ( QUOTE ((UNEXPECTED-END-OF-BLOCK 0 IL:XPOINTER) (UNEXPECTED-END-OF-BLOCK 2 IL:POINTER))) 4 (QUOTE FASL-ERROR)) (IL:PUTPROP (QUOTE UNEXPECTED-END-OF-BLOCK) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) UNEXPECTED-END-OF-BLOCK-STREAM :D8 (IL:L (0 UNEXPECTED-END-OF-BLOCK)) @NIL (5 UNEXPECTED-END-OF-BLOCK) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE UNEXPECTED-END-OF-BLOCK)) |UNEXPECTED-END-OF-BLOCK constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :STREAM 24 |UNEXPECTED-END-OF-BLOCKTYPE#|) () |UNEXPECTED-END-OF-BLOCK report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (23 FORMAT 18 IL:GETFILEPTR) (11 UNEXPECTED-END-OF-BLOCK) ( 5 "Unexpected FASL-END-OF-BLOCK at ~D.") (IL:PUTPROP (QUOTE UNEXPECTED-END-OF-BLOCK) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |UNEXPECTED-END-OF-BLOCK report method|)) (IL:PUTPROP (QUOTE UNEXPECTED-END-OF-BLOCK) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE INCONSISTENT-TABLE) T (QUOTE (CL::PS INCONSISTENT-TABLE |INCONSISTENT-TABLE constructor| (SI::--STRUCTURE-DUMMY-SLOT-- TABLE EXPECTED) CL::DATATYPE NIL FASL-ERROR "INCONSISTENT-TABLE-" (|INCONSISTENT-TABLE constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (INCONSISTENT-TABLE 0 IL:XPOINTER) NIL) (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:XPOINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE INCONSISTENT-TABLE) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER) ) (QUOTE ((INCONSISTENT-TABLE 0 IL:XPOINTER) (INCONSISTENT-TABLE 2 IL:POINTER) (INCONSISTENT-TABLE 4 IL:POINTER))) 6 (QUOTE FASL-ERROR)) (IL:PUTPROP (QUOTE INCONSISTENT-TABLE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) INCONSISTENT-TABLE-TABLE :D8 (IL:L (0 INCONSISTENT-TABLE)) @NIL (5 INCONSISTENT-TABLE) () INCONSISTENT-TABLE-EXPECTED :D8 (IL:L (0 INCONSISTENT-TABLE)) @NIL (5 INCONSISTENT-TABLE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE INCONSISTENT-TABLE)) |INCONSISTENT-TABLE constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 10 IL:\\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :EXPECTED 109 :TABLE 45 |INCONSISTENT-TABLETYPE#|) () |INCONSISTENT-TABLE report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) )io@@ (38 FORMAT 33 LENGTH) (26 OPTABLE 19 INCONSISTENT-TABLE 11 INCONSISTENT-TABLE) ( 5 "Inconsistent FASL table size.~&Expected ~D but found ~D.") (IL:PUTPROP (QUOTE INCONSISTENT-TABLE) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |INCONSISTENT-TABLE report method|)) (IL:PUTPROP (QUOTE INCONSISTENT-TABLE) (QUOTE IL:%CONDITION-HANDLER) NIL) (XCL::SET-CONSTANTP (QUOTE SIGNATURE) NIL) (IL:SETQ SIGNATURE 145) (PROCLAIM (QUOTE (SI::CONSTANT SIGNATURE))) (IL:SET-DOCUMENTATION (QUOTE SIGNATURE) (QUOTE VARIABLE) "First byte of a FASL file.") (PROCLAIM (QUOTE (SPECIAL CHECK-TABLE-SIZE))) (OR (BOUNDP (QUOTE CHECK-TABLE-SIZE)) (SETQ CHECK-TABLE-SIZE T)) (XCL::SET-CONSTANTP (QUOTE FASL-EXTENDED) NIL) (IL:SETQ FASL-EXTENDED 254) (PROCLAIM (QUOTE (SI::CONSTANT FASL-EXTENDED))) (XCL::SET-CONSTANTP (QUOTE END-MARK) NIL) (IL:SETQ END-MARK 255) (PROCLAIM (QUOTE (SI::CONSTANT END-MARK))) (XCL::SET-CONSTANTP (QUOTE END-OF-DATA-MARK) NIL) (IL:SETQ END-OF-DATA-MARK 255) (PROCLAIM (QUOTE (SI::CONSTANT END-OF-DATA-MARK))) (IL:SET-DOCUMENTATION (QUOTE END-OF-DATA-MARK) (QUOTE VARIABLE) "End-of-data marker: if first byte of a segment, terminate processing") (XCL::SET-CONSTANTP (QUOTE VERSION-RANGE) NIL) (IL:SETQ VERSION-RANGE (QUOTE (8 . 8))) (PROCLAIM (QUOTE (SI::CONSTANT VERSION-RANGE))) (IL:SET-DOCUMENTATION (QUOTE VERSION-RANGE) (QUOTE VARIABLE) "Handles (car version-range) <= version <= (cdr version-range)") (XCL::SET-CONSTANTP (QUOTE CURRENT-VERSION) NIL) (IL:SETQ CURRENT-VERSION 8) (PROCLAIM (QUOTE (SI::CONSTANT CURRENT-VERSION))) TABLE-STATS :D8 (IL:L (0 TABLE)) ]g@ hQ@ jIJH@J ]Hgggg  MjHX\kԻLKJkԺ(67 FIND 39 TYPE-OF 22 LENGTH 10 LENGTH) (61 CAR 56 :KEY 51 EQUAL 46 :TEST 4 --TOTAL--) () (CL::SET-PARSED-STRUCTURE (QUOTE OPTABLE) T (QUOTE (CL::PS OPTABLE NEW-OPTABLE (VECTOR OPNAMES NEXT) CL::DATATYPE NIL NIL "OPTABLE-" (NEW-OPTABLE) OPTABLE-P CL::DEFAULT-STRUCTURE-PRINTER COPY-OPTABLE NIL 0 NIL ((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 (:ACCESSOR :PREDICATE) NIL NIL NIL))) (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)) (IL:PUTPROP (QUOTE OPTABLE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) OPTABLE-P :D8 (IL:L (0 CL::OBJECT)) @NIL (5 OPTABLE) () (CL::ESTABLISH-PREDICATE (QUOTE OPTABLE)) OPTABLE-VECTOR :D8 (IL:L (0 OPTABLE)) @NIL (5 OPTABLE) () OPTABLE-OPNAMES :D8 (IL:L (0 OPTABLE)) @NIL (5 OPTABLE) () OPTABLE-NEXT :D8 (IL:L (0 OPTABLE)) @NIL (5 OPTABLE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE OPTABLE)) NEW-OPTABLE :D8 (IL:L (0 IL:|-args-|)) ei HkKJ[hYiHk_OdN^h]_i_Hk__OdO\h__`_IOLMOOOOOOKdagl[kaagOkaOl_agOkaOl_NIL (156 :NEXT 132 :OPNAMES 113 :VECTOR 72 |OPTABLETYPE#|) () COPY-OPTABLE :D8 (IL:L (0 OPTABLE)) C@H `H@H@H@HigHgh b(60 IL:CHECK-TYPE-FAIL) (53 OPTABLE 47 OPTABLE 17 |OPTABLETYPE#| 9 OPTABLE) () MAKE-OPTABLE :D8 NIL 1ngg HIIgJlH(22 MAKE-ARRAY 4 NEW-OPTABLE) (41 FASL-END-OF-BLOCK 31 OPTABLE 17 UNIMPLEMENTED-OPCODE 12 :INITIAL-ELEMENT) () DEFINE-OPCODE-RANGE :D8 (IL:L (4 TABLE 3 OFFSET 2 RANGE 1 FIRST-OPCODE 0 NAME)) :@ @ "BjJKh@KADIKC H KkԻ(49 DEFINE-SINGLE-OPCODE 44 INTERN 38 IL:CONCAT 11 SYMBOL-NAME 5 SYMBOL-PACKAGE) NIL () DEFINE-SINGLE-OPCODE :D8 (IL:L (3 TRANS-NAME 2 TABLE 1 OPCODE 0 NAME)) BA@ CAB (22 ADD-OP-TRANSLATION 14 IL:%SETELT) (5 OPTABLE) () ADD-OP-TRANSLATION :D8 (IL:L (2 TABLE 1 OPCODE 0 NAME)) 5@BB@AHHIIAHdINIL (34 OPTABLE 24 OPTABLE 6 OPTABLE) () OPCODE-SEQUENCE :D8 (IL:L (0 IL:|-args-|) IL:F 4 *DEFAULT-OPTABLE*) >eka!lHTlaZhIJIJ [lKh(48 OPCODE-SEQUENCE) (41 OPTABLE 29 OPTABLE) () (IL:PUTPROP (QUOTE DEFOP) (QUOTE :DEFINER-FOR) (QUOTE FASL-OPS)) (IL:PUTPROP (QUOTE FASL-OPS) (QUOTE :DEFINED-BY) (ADJOIN (QUOTE DEFOP) (GET (QUOTE FASL-OPS) (QUOTE :DEFINED-BY)))) |definition-expander-DEFOP| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @HHZ[KgM hjgM \g_J_Mo jNBggIoOggIhLOgIhhhgggOhggOhogOhhgILgNkggOhhOh(69 IL:KEYWORD-TEST 43 IL:FIND-KEYWORD 28 IL:FIND-KEYWORD) (220 OPTABLE-NEXT 215 :TABLE 207 :INDIRECT 200 DEFOP 185 SETESCAPE 168 OPTABLE-NEXT 163 SETF 153 OPTABLE-NEXT 148 UNLESS 143 PROGN 117 QUOTE 105 QUOTE 100 DEFINE-SINGLE-OPCODE 84 DEFUN 79 PROGN 50 *DEFAULT-OPTABLE* 37 :TABLE 22 :INDIRECT) ( 178 ((MAKE-OPTABLE)) 90 (STREAM OPCODE) 64 (:TABLE :INDIRECT)) (IL:PUTPROP (QUOTE DEFOP) (QUOTE :DEFINITION-EXPANDER) (QUOTE |definition-expander-DEFOP|)) (IL:PUTPROP (QUOTE DEFOP) (QUOTE :DEFINITION-NAME) (QUOTE SECOND)) (IL:PUTPROP (QUOTE DEFOP) (QUOTE :DEFINITION-PRINT-TEMPLATE) (QUOTE (:NAME NIL :BODY))) (IL:SETQ IL:PRETTYPRINTMACROS (ADJOIN (QUOTE (DEFOP . XCL::PPRINT-DEFINER)) IL:PRETTYPRINTMACROS :TEST (QUOTE EQUAL))) |expand-DEFOP| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @AgggHIhNIL (20 DEFOP 15 FASL-OPS 10 XCL:DEFINER) () (IL:SETF-MACRO-FUNCTION (QUOTE DEFOP) (QUOTE |expand-DEFOP|)) (IL:PUTPROP (QUOTE DEFRANGE) (QUOTE :DEFINER-FOR) (QUOTE FASL-OPS)) (IL:PUTPROP (QUOTE FASL-OPS) (QUOTE :DEFINED-BY) (ADJOIN (QUOTE DEFRANGE) (GET (QUOTE FASL-OPS) (QUOTE :DEFINED-BY)))) |definition-expander-DEFRANGE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM))  @ HHZ[KgM vjgM jg_J__O__O_Mo jN>ggIoOggIhLOOOhhgggOhggOhogOhhgILgNkggOhhOh(87 IL:KEYWORD-TEST 43 IL:FIND-KEYWORD 28 IL:FIND-KEYWORD) (234 OPTABLE-NEXT 229 :TABLE 221 :INDIRECT 214 DEFRANGE 199 SETESCAPE 182 OPTABLE-NEXT 177 SETF 167 OPTABLE-NEXT 162 UNLESS 157 PROGN 123 QUOTE 118 DEFINE-OPCODE-RANGE 102 DEFUN 97 PROGN 50 *DEFAULT-OPTABLE* 37 :TABLE 22 :INDIRECT) ( 192 ((MAKE-OPTABLE)) 108 (STREAM OPCODE) 82 (:TABLE :INDIRECT)) (IL:PUTPROP (QUOTE DEFRANGE) (QUOTE :DEFINITION-EXPANDER) (QUOTE |definition-expander-DEFRANGE|)) (IL:PUTPROP (QUOTE DEFRANGE) (QUOTE :DEFINITION-NAME) (QUOTE SECOND)) (IL:PUTPROP (QUOTE DEFRANGE) (QUOTE :DEFINITION-PRINT-TEMPLATE) (QUOTE (:NAME NIL NIL NIL :BODY))) (IL:SETQ IL:PRETTYPRINTMACROS (ADJOIN (QUOTE (DEFRANGE . XCL::PPRINT-DEFINER)) IL:PRETTYPRINTMACROS :TEST (QUOTE EQUAL))) |expand-DEFRANGE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @AgggHIhNIL (20 DEFRANGE 15 FASL-OPS 10 XCL:DEFINER) () (IL:SETF-MACRO-FUNCTION (QUOTE DEFRANGE) (QUOTE |expand-DEFRANGE|)) FASL-END-OF-BLOCK :D8 (IL:L (1 OP 0 STREAM) IL:F 0 *BLOCK-LEVEL*) "jPgh gg@ (31 ERROR 14 SI::INTERNAL-THROW) (25 :STREAM 20 UNEXPECTED-END-OF-BLOCK 8 FASL-BLOCK-FINISHED) () FASL-EXTENDED :D8 (IL:L (1 OP 0 STREAM) IL:P 0 *CURRENT-OPTABLE* IL:F 1 *CURRENT-OPTABLE*) Q@ (16 DO-OP) (5 OPTABLE) () SETESCAPE :D8 (IL:L (0 TABLE)) @g Hl(20 SYMBOL-FUNCTION) (15 FASL-EXTENDED 5 OPTABLE) () UNIMPLEMENTED-OPCODE :D8 (IL:L (1 OPCODE 0 STREAM)) ggA (15 ERROR) (9 :OPNAME 4 UNIMPLEMENTED-OPCODE) () (PROCLAIM (QUOTE (SPECIAL *DEFAULT-OPTABLE*))) (OR (BOUNDP (QUOTE *DEFAULT-OPTABLE*)) (SETQ *DEFAULT-OPTABLE* (MAKE-OPTABLE))) (PROCLAIM (QUOTE (SPECIAL *CURRENT-OPTABLE*))) (OR (BOUNDP (QUOTE *CURRENT-OPTABLE*)) (SETQ *CURRENT-OPTABLE* NIL)) (PROCLAIM (QUOTE (SPECIAL INITIAL-VALUE-TABLE-SIZE))) (IL:SETQ INITIAL-VALUE-TABLE-SIZE 2048) (XCL::SET-CONSTANTP (QUOTE VALUE-TABLE-INCREMENT) NIL) (IL:SETQ VALUE-TABLE-INCREMENT 1024) (PROCLAIM (QUOTE (SI::CONSTANT VALUE-TABLE-INCREMENT))) (PROCLAIM (QUOTE (SPECIAL *VALUE-TABLE*))) (OR (BOUNDP (QUOTE *VALUE-TABLE*)) (SETQ *VALUE-TABLE* NIL)) (PROCLAIM (QUOTE (SPECIAL *BLOCK-LEVEL*))) (OR (BOUNDP (QUOTE *BLOCK-LEVEL*)) (SETQ *BLOCK-LEVEL* 0)) (PROCLAIM (QUOTE (SPECIAL DEBUG-READER))) (OR (BOUNDP (QUOTE DEBUG-READER)) (SETQ DEBUG-READER NIL)) (PROCLAIM (QUOTE (SPECIAL DEBUG-STREAM))) (OR (BOUNDP (QUOTE DEBUG-STREAM)) (SETQ DEBUG-STREAM NIL)) PROCESS-FILEA0001 :D8 (IL:L (0 TEXT)) @ (10 TERPRI 5 PRINC) NIL () PROCESS-FILE :D8 (IL:L (0 IL:|-args-|) IL:P 11 IL:ADDSPELLFLG IL:P 10 IL:LISPXHIST IL:P 9 IL:FILEPKGFLG IL:P 8 IL:DFNFLG IL:F 12 *LOAD-VERBOSE*) ekaaHlKJJWgHlNdMJh_I lo i1 lI NId 1$Kdagl[kaagNkaNl^LO LO I Id l$(166 IL:\\PEEKBIN 158 IL:EOFP 151 PROCESS-SEGMENT 140 PROCESS-SEGMENT 83 IL:EOFP 73 CHECK-VERSION 60 ERROR) (117 :ITEM-FN 98 :TEXT-FN 27 PROCESS-FILEA0001) ( 55 "Not a FASL file.") PROCESS-SEGMENT :D8 (IL:L (0 IL:|-args-|) IL:F 6 *DEFAULT-OPTABLE*) JekaAlHhlalHhlalHVlaJI IKL I kM(67 READ-TEXT 59 PROCESS-BLOCK 50 SKIP-TEXT) NIL () |expand-WITH-OPTABLE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @!HHggIhhJNIL (20 *CURRENT-OPTABLE* 15 LET) () (IL:SETF-MACRO-FUNCTION (QUOTE WITH-OPTABLE) (QUOTE |expand-WITH-OPTABLE|)) CHECK-VERSION :D8 (IL:L (0 STREAM)) +@ oHHdooH H(39 ERROR 5 IL:BIN16) NIL ( 33 "Version not supported: ~D." 24 (8 . 8) 13 (8 . 8)) READ-TEXT :D8 (IL:L (0 STREAM)) ngggigj @ IdlHl @ dk2dl,l *Idl #@ djdldl@hd l ZllJH @ Y(125 VECTOR-PUSH-EXTEND 104 IL:\\CHECKEOLC.CRLF 30 MAKE-ARRAY) (23 :FILL-POINTER 17 :ADJUSTABLE 12 CHARACTER 7 :ELEMENT-TYPE) () PROCESS-BLOCKA0001 :D8 (IL:P 3 *VALUE-TABLE* IL:P 2 *CURRENT-OPTABLE* IL:P 1 SI::*CATCH-RETURN-FROM* IL:P 0 SI::*DUMMY-FOR-CATCH* IL:F 5 ITEM-FN IL:F 6 OPTABLE IL:F 7 STREAM) #i@VWj ULkU(22 DO-OP 11 NEW-VALUE-TABLE) NIL () PROCESS-BLOCK :D8 (IL:L (0 IL:|-args-|) IL:P 8 *PRINT-BASE* IL:P 7 *READ-BASE* IL:P 6 *READTABLE* IL:P 5 *PACKAGE* IL:P 3 OPTABLE IL:P 2 ITEM-FN IL:P 1 STREAM IL:F 9 *DEFAULT-OPTABLE* IL:F 10 IL:*COMMON-LISP-READ-ENVIRONMENT*) B eka1lHhlalHWlaW\LLLg (63 PROCESS-BLOCKA0001) (58 FASL-BLOCK-FINISHED 38 IL:READER-ENVIRONMENT) () SKIP-TEXT :D8 (IL:L (0 STREAM)) @d l$NIL NIL () |expand-NEXT-VALUE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) oNIL NIL ( 4 (DO-OP STREAM)) (IL:SETF-MACRO-FUNCTION (QUOTE NEXT-VALUE) (QUOTE |expand-NEXT-VALUE|)) DO-OP :D8 (IL:L (0 IL:|-args-|) IL:P 5 *BLOCK-LEVEL* IL:F 6 DEBUG-READER IL:F 7 DEBUG-STREAM IL:F 8 *CURRENT-OPTABLE* IL:F 9 *BLOCK-LEVEL*) leka1lHWkԂlaI V%WoMlJW J WJIJlL[VWoMlK K(104 FORMAT 64 FORMAT 56 RASSOC) (72 OPTABLE 49 OPTABLE) ( 94 "~VTValue: ~S~%" 37 "~VT~A (~3O)~%") NEW-VALUE-TABLE :D8 (IL:F 0 INITIAL-VALUE-TABLE-SIZE) Pgjgi (18 MAKE-ARRAY) (11 :EXTENDABLE 5 :FILL-POINTER) () CLEAR-TABLE :D8 (IL:L (0 IL:|-args-|) IL:F 1 *VALUE-TABLE*) ekHQkaj (17 IL:SET-FILL-POINTER) NIL () STORE-VALUE :D8 (IL:L (0 IL:|-args-|) IL:F 3 *VALUE-TABLE*) !ekalHSlaIJn I(29 VECTOR-PUSH-EXTEND) NIL () FETCH-VALUE :D8 (IL:L (0 IL:|-args-|) IL:F 2 *VALUE-TABLE*) ekalHRlaINIL NIL () COLLECT-LIST :D8 (IL:L (2 DOTTED 1 NELTS 0 STREAM)) [BAl@ @ BAkՀAAk\H@ J KhZLk԰K&I!BH @ JIH(83 DO-OP 76 LAST 43 DO-OP 19 DO-OP 13 DO-OP) NIL () FASL-SHORT-INTEGER :D8 (IL:L (1 OPCODE 0 STREAM)) ANIL NIL () (IL:SET-DOCUMENTATION (QUOTE FASL-SHORT-INTEGER) (QUOTE FUNCTION) "An entire set of FASL opcodes representing small integers") (DEFINE-OPCODE-RANGE (QUOTE FASL-SHORT-INTEGER) 0 128 0 *DEFAULT-OPTABLE*) FASL-NIL :D8 (IL:L (1 OPCODE 0 STREAM)) hNIL NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-NIL) 128 *DEFAULT-OPTABLE* (QUOTE FASL-NIL)) FASL-T :D8 (IL:L (1 OPCODE 0 STREAM)) iNIL NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-T) 129 *DEFAULT-OPTABLE* (QUOTE FASL-T)) FASL-INTEGER :D8 (IL:L (1 OPCODE 0 STREAM)) @ @ @ @ NIL NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-INTEGER) 130 *DEFAULT-OPTABLE* (QUOTE FASL-INTEGER)) FASL-LARGE-INTEGER :D8 (IL:L (1 OPCODE 0 STREAM)) P@ ijHkljjLjJMjMk@ IhNlllL NJKM Llռ(70 DPB 59 BYTE 5 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-LARGE-INTEGER) 131 *DEFAULT-OPTABLE* (QUOTE FASL-LARGE-INTEGER)) FASL-RATIO :D8 (IL:L (1 OPCODE 0 STREAM)) @ @ (16 CL::%/ 11 DO-OP 5 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-RATIO) 134 *DEFAULT-OPTABLE* (QUOTE FASL-RATIO)) FASL-COMPLEX :D8 (IL:L (1 OPCODE 0 STREAM)) @ @ (16 COMPLEX 11 DO-OP 5 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-COMPLEX) 135 *DEFAULT-OPTABLE* (QUOTE FASL-COMPLEX)) FASL-VECTOR :D8 (IL:L (1 OPCODE 0 STREAM)) 5@ QHgh HjJKIIK@ MLKkԻ(41 DO-OP 20 MAKE-ARRAY 5 DO-OP) (14 :INITIAL-ELEMENT) () (DEFINE-SINGLE-OPCODE (QUOTE FASL-VECTOR) 136 *DEFAULT-OPTABLE* (QUOTE FASL-VECTOR)) FASL-CREATE-ARRAY :D8 (IL:L (1 OPCODE 0 STREAM)) 9g k@ @ dnIkYhl4 IH(48 IL:\\LISPERROR 25 DO-OP 19 DO-OP 9 SYMBOL-FUNCTION) (4 MAKE-ARRAY) () (DEFINE-SINGLE-OPCODE (QUOTE FASL-CREATE-ARRAY) 137 *DEFAULT-OPTABLE* (QUOTE FASL-CREATE-ARRAY)) FASL-INITIALIZE-ARRAY :D8 (IL:L (1 OPCODE 0 STREAM)) 4@ QH @ jJKHIK@ MLKkԻ(40 DO-OP 21 DO-OP 14 IL:%FLATTEN-ARRAY 5 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-INITIALIZE-ARRAY) 138 *DEFAULT-OPTABLE* (QUOTE FASL-INITIALIZE-ARRAY )) FASL-INITIALIZE-BIT-ARRAY :D8 (IL:L (1 OPCODE 0 STREAM)) } @  H @ l ZJ@ >@IjKlMjL5LlL __I_K_O@ OOO OONH(114 DPB 102 LDB 80 BYTE 33 IL:\\MVLIST 28 FLOOR 21 DO-OP 14 IL:%ARRAY-BASE 5 DO-OP) (53 IL:FDEV 46 STREAM) () (DEFINE-SINGLE-OPCODE (QUOTE FASL-INITIALIZE-BIT-ARRAY) 139 *DEFAULT-OPTABLE* (QUOTE FASL-INITIALIZE-BIT-ARRAY)) FASL-THIN-STRING :D8 (IL:L (1 OPCODE 0 STREAM)) =@ AH @Idj [ >KLjHlJI(29 IL:%ARRAY-BASE 14 IL:ALLOCSTRING 5 DO-OP) (46 IL:FDEV 39 STREAM) () (DEFINE-SINGLE-OPCODE (QUOTE FASL-THIN-STRING) 140 *DEFAULT-OPTABLE* (QUOTE FASL-THIN-STRING)) FASL-FAT-STRINGA0001 :D8 (IL:NAME SI::*UNWIND-PROTECT* IL:I 0 SI::*CLEANUP-FORMS* IL:F 5 STRING IL:F 6 NCHARS IL:F 7 STREAM) ,Vj2HIUUIW ZllJLKIkԹ(21 IL:READCCODE) NIL () FASL-FAT-STRINGA0002 :D8 (IL:F 1 STREAM) Q HQjlHNIL (12 IL:FDEV 5 STREAM) () FASL-FAT-STRING :D8 (IL:L (1 OPCODE) IL:P 3 STRING IL:P 0 NCHARS IL:I 0 STREAM) T@ !H @ H@jlIg @ H@jlJ$(55 IL:\\MVLIST 50 FASL-FAT-STRINGA0001 14 IL:ALLOCSTRING 5 DO-OP) (68 IL:FDEV 61 STREAM 45 FASL-FAT-STRINGA0002 30 IL:FDEV 23 STREAM) () (DEFINE-SINGLE-OPCODE (QUOTE FASL-FAT-STRING) 141 *DEFAULT-OPTABLE* (QUOTE FASL-FAT-STRING)) FASL-CHARACTER :D8 (IL:L (1 OPCODE 0 STREAM)) @ dl@ HllH(13 IL:BIN16) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-CHARACTER) 142 *DEFAULT-OPTABLE* (QUOTE FASL-CHARACTER)) FASL-LISP-SYMBOL :D8 (IL:L (1 OPCODE 0 STREAM)) @ o (20 INTERN 15 FIND-PACKAGE 5 DO-OP) NIL ( 10 "LISP") (DEFINE-SINGLE-OPCODE (QUOTE FASL-LISP-SYMBOL) 143 *DEFAULT-OPTABLE* (QUOTE FASL-LISP-SYMBOL)) FASL-KEYWORD-SYMBOL :D8 (IL:L (1 OPCODE 0 STREAM)) @ o (20 INTERN 15 FIND-PACKAGE 5 DO-OP) NIL ( 10 "KEYWORD") (DEFINE-SINGLE-OPCODE (QUOTE FASL-KEYWORD-SYMBOL) 144 *DEFAULT-OPTABLE* (QUOTE FASL-KEYWORD-SYMBOL)) FASL-FIND-PACKAGE :D8 (IL:L (1 OPCODE 0 STREAM)) @ H oH (27 ERROR 14 FIND-PACKAGE 5 DO-OP) NIL ( 21 "FASL reader error: package ~S not found.") (DEFINE-SINGLE-OPCODE (QUOTE FASL-FIND-PACKAGE) 145 *DEFAULT-OPTABLE* (QUOTE FASL-FIND-PACKAGE)) FASL-SYMBOL-IN-PACKAGE :D8 (IL:L (1 OPCODE 0 STREAM)) !@ @ YH HI (30 INTERN 22 MAKE-SYMBOL 14 DO-OP 5 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-SYMBOL-IN-PACKAGE) 146 *DEFAULT-OPTABLE* (QUOTE FASL-SYMBOL-IN-PACKAGE)) FASL-LIST :D8 (IL:L (1 OPCODE 0 STREAM)) @d h (12 COLLECT-LIST 6 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-LIST) 147 *DEFAULT-OPTABLE* (QUOTE FASL-LIST)) FASL-LIST* :D8 (IL:L (1 OPCODE 0 STREAM)) @d i (12 COLLECT-LIST 6 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-LIST*) 148 *DEFAULT-OPTABLE* (QUOTE FASL-LIST*)) FASL-INTERLISP-SYMBOL :D8 (IL:L (1 OPCODE 0 STREAM)) @ o (20 INTERN 15 FIND-PACKAGE 5 DO-OP) NIL ( 10 "INTERLISP") (DEFINE-SINGLE-OPCODE (QUOTE FASL-INTERLISP-SYMBOL) 149 *DEFAULT-OPTABLE* (QUOTE FASL-INTERLISP-SYMBOL )) FASL-DCODE :D8 (IL:L (1 OPCODE 0 STREAM) IL:P 21 IL:\\INTERRUPTABLE IL:P 20 IL:\\INTERRUPTABLE) ll@@ Y@ _IO ]M@ >@JKOlNJKj_H_Iklm_l_h____IOJOjJjIjO@ _ O JdnO nJlkO @ @ _$_"JO"JO"O$l knJ@ !J@ n@ \JLgk@ _@ _@ _JOOdlӌlO JOOO JOOlO OOlOl _Ok_Ol_j_&O&jhJdi JKl@ @ j"O,O.*@ _0@ _2JKO0O2 O.k_.@ j"O,O.*@ _0@ _2JKO0O2 O.k_.@ j"O,O.*@ _0@ _2JKO0O2 O.k_.@ j"O,O./@ _0@ _2JKO0O2 O.k_.LgJh J(700 IL:MAKE-COMPILED-CLOSURE 674 D-ASSEM:FIXUP-WORD 669 IL:\\RESOLVE.TYPENUMBER 654 DO-OP 645 DO-OP 628 DO-OP 611 D-ASSEM:FIXUP-PTR 596 DO-OP 587 DO-OP 570 DO-OP 553 D-ASSEM:FIXUP-SYMBOL 538 DO-OP 529 DO-OP 512 DO-OP 495 D-ASSEM:FIXUP-SYMBOL 480 DO-OP 471 DO-OP 454 DO-OP 448 D-ASSEM:FIXUP-PTR 443 DO-OP 430 IL:\\STKMIN 388 FLOOR 368 D-ASSEM:FIXUP-WORD 351 D-ASSEM:FIXUP-WORD 330 D-ASSEM::FIXUP-NTENTRY 325 IL:SHOULDNT 296 DO-OP 287 DO-OP 259 DO-OP 247 DO-OP 225 CEILING 149 DO-OP 39 IL:\\MVLIST 34 D-ASSEM:ALLOCATE-CODE-BLOCK 23 DO-OP 16 DO-OP) (691 :FUNCTION 267 :CLOSURE 59 IL:FDEV 52 STREAM) () (DEFINE-SINGLE-OPCODE (QUOTE FASL-DCODE) 150 *DEFAULT-OPTABLE* (QUOTE FASL-DCODE)) FASL-LOCAL-FN-FIXUPS :D8 (IL:L (1 OPCODE 0 STREAM)) t@ @ j2IJH@ @ @ KdMdKdLM KKdLM Jkغ(107 D-ASSEM:FIXUP-PTR 78 D-ASSEM:FIXUP-PTR-NO-REF 44 DO-OP 37 DO-OP 30 DO-OP 14 DO-OP 5 DO-OP) (92 IL:COMPILED-CLOSURE 85 IL:COMPILED-CLOSURE 65 IL:COMPILED-CLOSURE 57 IL:COMPILED-CLOSURE) () (DEFINE-SINGLE-OPCODE (QUOTE FASL-LOCAL-FN-FIXUPS) 151 *DEFAULT-OPTABLE* (QUOTE FASL-LOCAL-FN-FIXUPS)) FASL-TABLE-STORE :D8 (IL:L (1 OPCODE 0 STREAM)) @ (10 STORE-VALUE 5 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-TABLE-STORE) 152 *DEFAULT-OPTABLE* (QUOTE FASL-TABLE-STORE)) FASL-TABLE-FETCH :D8 (IL:L (1 OPCODE 0 STREAM)) @ (10 FETCH-VALUE 5 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-TABLE-FETCH) 153 *DEFAULT-OPTABLE* (QUOTE FASL-TABLE-FETCH)) FASL-VERIFY-TABLE-SIZE :D8 (IL:L (1 OPCODE 0 STREAM) IL:F 1 *VALUE-TABLE*) ,@ HQ :ggQgH (41 ERROR 15 XCL:VECTOR-LENGTH 5 DO-OP) (34 :EXPECTED 28 :TABLE 23 INCONSISTENT-TABLE) () (DEFINE-SINGLE-OPCODE (QUOTE FASL-VERIFY-TABLE-SIZE) 154 *DEFAULT-OPTABLE* (QUOTE FASL-VERIFY-TABLE-SIZE)) FASL-EVAL :D8 (IL:L (1 OPCODE 0 STREAM)) @ (10 EVAL 5 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-EVAL) 155 *DEFAULT-OPTABLE* (QUOTE FASL-EVAL)) FASL-FLOAT32 :D8 (IL:L (1 OPCODE 0 STREAM)) !l@ >@HjldIHNIL (18 IL:FDEV 11 STREAM) () (DEFINE-SINGLE-OPCODE (QUOTE FASL-FLOAT32) 132 *DEFAULT-OPTABLE* (QUOTE FASL-FLOAT32)) FASL-SETF-SYMBOL-FUNCTION :D8 (IL:L (1 OPCODE 0 STREAM)) @ @ (16 IL:SETF-SYMBOL-FUNCTION 11 DO-OP 5 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-SETF-SYMBOL-FUNCTION) 156 *DEFAULT-OPTABLE* (QUOTE FASL-SETF-SYMBOL-FUNCTION)) FASL-FUNCALL :D8 (IL:L (1 OPCODE 0 STREAM)) @ jH(5 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-FUNCALL) 157 *DEFAULT-OPTABLE* (QUOTE FASL-FUNCALL)) FASL-BITMAP16 :D8 (IL:L (1 OPCODE 0 STREAM)) Y @ Q@ @ HIJ [@LlIHJl N >NOjOlMK(55 CEILING 30 IL:BITMAPCREATE 21 DO-OP 14 DO-OP 5 DO-OP) (72 IL:FDEV 65 STREAM 36 IL:BITMAP) () (DEFINE-SINGLE-OPCODE (QUOTE FASL-BITMAP16) 158 *DEFAULT-OPTABLE* (QUOTE FASL-BITMAP16)) FASL-STRUCTURE :D8 (IL:L (1 OPCODE 0 STREAM)) @ @  (17 IL:CREATE-STRUCTURE 11 DO-OP 5 DO-OP) NIL () (DEFINE-SINGLE-OPCODE (QUOTE FASL-STRUCTURE) 159 *DEFAULT-OPTABLE* (QUOTE FASL-STRUCTURE)) |optimize-FIXUP-NTOFFSET| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) t@qHHZJ\LA_gO2ggIKMhgIgKoNhhgIKgMNhhNIL (102 IL:IPLUS 95 D-ASSEM:FIXUP-WORD 71 + 65 D-ASSEM:FIXUP-WORD 52 D-ASSEM:FIXUP-WORD 47 PROGN 37 COMPILER:ENV 30 :3-BYTE) ( 77 (IL:BYTESPERWORD)) (IL:PUTPROP (QUOTE FIXUP-NTOFFSET) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FIXUP-NTOFFSET|) (GET (QUOTE FIXUP-NTOFFSET) (QUOTE COMPILER:OPTIMIZER-LIST)))) (IL:MOVD? (QUOTE IL:PRIN1) (QUOTE PRINC)) (IL:MOVD? (QUOTE IL:TERPRI) (QUOTE TERPRI)) IL:FASL-FILEDATEA0001 :D8 (IL:I 0 IL:X) g@ (10 IL:RETFROM) (4 PROCESS-FILE) () IL:FASL-FILEDATE :D8 (IL:I 1 IL:CFLG IL:I 0 STREAM) 1@ l*@j @gggg A (46 CONVERT-FASL-DATE 40 PROCESS-FILE 13 IL:SETFILEPTR) (34 IL:NILL 29 :ITEM-FN 24 IL:FASL-FILEDATEA0001 19 :TEXT-FN) () CONVERT-FASL-DATE :D8 (IL:P 1 IL:END-POS IL:P 0 IL:DATE-SUFFIX IL:I 1 IL:CFLG IL:I 0 IL:DATESTRING) _@Aoo@khdi  l H H kHkIm l.IkـI (92 IL:GDATE 87 IL:IDATE 82 IL:SUBSTRING 68 IL:NTHCHARCODE 53 IL:NCHARS 45 IL:STRPOS 39 IL:CHARACTER 29 IL:SUBSTRING 24 IL:STRPOS) NIL ( 13 "Source file created " 7 "FASL file created ") (IL:PUTPROPS IL:FASLOAD IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:FASLOAD IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "FASL")) (IL:PUTPROPS IL:FASLOAD IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1989 1990 1991 1992 2018 2021)) NIL