(FILECREATED "12-Oct-86 18:03:07" ("compiled on " {ERIS}SOURCES>FASL.;7) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED "12-Oct-86 17:33:01" {ERIS}SOURCES>FASL.;7 73816 changes to: (FUNCTIONS FASL::TABLE-STATS FASL::DUMP-ARRAY FASL:VALUE-DUMPABLE-P FASL:DUMP-VALUE) previous date: " 6-Oct-86 23:44:41" {ERIS}SOURCES>FASL.;6) (RPAQQ FASLCOMS ((COMS (* ;;; "Common definitions.") (DECLARE: EVAL@COMPILE EVAL@LOAD DONTCOPY (FILES (LOADCOMP) LLCHAR)) (FNS FASL::SO-THAT-THE-FILE-WILL-GET-COMPILED) (STRUCTURES FASL:FASL-ERROR FASL:UNIMPLEMENTED-OPCODE FASL:OBJECT-NOT-DUMPABLE FASL:UNEXPECTED-END-OF-BLOCK FASL:INCONSISTENT-TABLE) (EXPORT (VARIABLES FASL:SIGNATURE)) (VARIABLES FASL::CHECK-TABLE-SIZE FASL::FASL-EXTENDED FASL::END-MARK FASL::VERSION-RANGE FASL:CURRENT-VERSION) (FUNCTIONS FASL::TABLE-STATS)) (COMS (* ;;; "Dumper.") (STRUCTURES FASL::HANDLE) (VARIABLES FASL::DUMMY-HANDLE) ( VARIABLES FASL::+SMALLEST-FOUR-BYTE-INTEGER+ FASL::+LARGEST-FOUR-BYTE-INTEGER+) (VARIABLES FASL::*GATHER-DUMPER-STATS* FASL::*TABLE-ATTEMPTS* FASL::*TABLE-HITS*) (FUNCTIONS FASL::RESET-DUMPER-STATS) (FUNCTIONS DOTTED-LIST-LENGTH FASL::STATE-CASE FAT-STRING-P FASL::REMEMBER FASL::ELEMENTS-IDENTICAL-P FASL::END-BLOCK FASL::END-TEXT FASL::WRITE-OP FASL::LOOKUP-VALUE FASL::SAVE-VALUE) (FUNCTIONS FASL::DUMP-VALUE-FETCH FASL::DUMP-CHARACTER FASL::DUMP-SYMBOL FASL::DUMP-LIST FASL::DUMP-SIMPLE-VECTOR FASL::DUMP-ARRAY-DESCRIPTOR FASL::DUMP-BIT-ARRAY FASL::DUMP-GENERAL-ARRAY FASL::DUMP-ARRAY FASL::WRITE-INTEGER-BYTES FASL::INTEGER-BYTE-LIST FASL::DUMP-RATIONAL FASL::DUMP-COMPLEX FASL::DUMP-INTEGER FASL::DUMP-PACKAGE FASL::DUMP-DCODE FASL::DUMP-STRING FASL::DUMP-FLOAT32) (FUNCTIONS FASL:OPEN-FASL-HANDLE FASL:WITH-OPEN-HANDLE FASL:BEGIN-TEXT FASL:BEGIN-BLOCK FASL:VALUE-DUMPABLE-P FASL:DUMP-VALUE FASL:DUMP-FUNCTION-DEF FASL:DUMP-FUNCALL FASL:DUMP-EVAL FASL:CLOSE-FASL-HANDLE)) (COMS (* ;;; "Reader.") (DEFINE-TYPES FASL-OPS) (STRUCTURES FASL::OPTABLE) (* ;; "This shouldn't have to be in here, but defstruct isn't complete yet.") (OPTIMIZERS FASL::OPTABLE-VECTOR) (FUNCTIONS FASL:MAKE-OPTABLE FASL::FASL-END-OF-BLOCK FASL:DEFOP FASL:DEFRANGE FASL::ADD-OP-TRANSLATION FASL:OPCODE-SEQUENCE FASL::FASL-EXTENDED FASL::SETESCAPE FASL::UNIMPLEMENTED-OPCODE) (VARIABLES FASL:*DEFAULT-OPTABLE* FASL::*CURRENT-OPTABLE* FASL::INITIAL-VALUE-TABLE-SIZE FASL::VALUE-TABLE-INCREMENT FASL::*VALUE-TABLE* FASL::*BLOCK-LEVEL* FASL::DEBUG-READER FASL::DEBUG-STREAM) (FUNCTIONS FASL:WITH-OPTABLE FASL:PROCESS-FILE FASL:CHECK-VERSION FASL:PROCESS-SEGMENT FASL:READ-TEXT FASL:PROCESS-BLOCK FASL:SKIP-TEXT FASL:NEXT-VALUE FASL::DO-OP FASL::NEW-VALUE-TABLE FASL::CLEAR-TABLE FASL::STORE-VALUE FASL::FETCH-VALUE FASL::COLLECT-LIST) (FASL-OPS FASL:FASL-SHORT-INTEGER FASL:FASL-NIL FASL:FASL-T FASL:FASL-INTEGER FASL:FASL-LARGE-INTEGER FASL:FASL-RATIO FASL:FASL-COMPLEX FASL:FASL-VECTOR FASL:FASL-CREATE-ARRAY FASL:FASL-INITIALIZE-ARRAY FASL:FASL-INITIALIZE-BIT-ARRAY FASL:FASL-THIN-STRING FASL:FASL-FAT-STRING FASL:FASL-CHARACTER FASL:FASL-LISP-SYMBOL FASL:FASL-KEYWORD-SYMBOL FASL:FASL-FIND-PACKAGE FASL:FASL-SYMBOL-IN-PACKAGE FASL:FASL-LIST FASL:FASL-LIST* FASL:FASL-DCODE FASL:FASL-TABLE-STORE FASL:FASL-TABLE-FETCH FASL:FASL-VERIFY-TABLE-SIZE FASL:FASL-EVAL FASL:FASL-FLOAT32 FASL:FASL-SETF-SYMBOL-FUNCTION FASL:FASL-FUNCALL)) (PROP FILETYPE FASL) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FASL::SO-THAT-THE-FILE-WILL-GET-COMPILED))))) FASL::SO-THAT-THE-FILE-WILL-GET-COMPILED D1 NIL hNIL NIL () (DEFPRINT (QUOTE FASL:FASL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-FASL:FASL-ERROR D1 NIL ghNIL (2 FASL:FASL-ERROR) () (LET* ((A3040 (QUOTE FASL:FASL-ERROR)) (A3041 (QUOTE (CL:ERROR)))) (PUT A3040 (QUOTE %%%%INCLUDED-STRUCTURE) A3041)) (PUTPROP (QUOTE FASL:FASL-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-FASL:FASL-ERROR)) (PUTPROP (QUOTE FASL:FASL-ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE FASL:FASL-ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE NIL)) (PUTPROP (QUOTE FASL:FASL-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE FASL:FASL-ERROR) (QUOTE CL:ERROR)) (LET* ((A3044 (QUOTE FASL:FASL-ERROR)) (A3043 (QUOTE %%CONDITION-HANDLER)) (A3042 (QUOTE NIL))) ( PUTPROP A3044 A3043 A3042)) (LET* ((A3047 (QUOTE FASL:FASL-ERROR)) (A3046 (QUOTE %%CONDITION-REPORTER)) (A3045 (QUOTE NIL))) ( PUTPROP A3047 A3046 A3045)) FASL:UNIMPLEMENTED-OPCODE-OPNAME D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE FASL:UNIMPLEMENTED-OPCODE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-FASL:UNIMPLEMENTED-OPCODE D1 (L (0 -args-)) 0eHkJdI瞥gIhagJk凔國Jl偢問NIL (37Q :OPNAME 26Q FASL:UNIMPLEMENTED-OPCODE) () (LET* ((A3048 (QUOTE FASL:UNIMPLEMENTED-OPCODE)) (A3049 (QUOTE (FASL:FASL-ERROR)))) (PUT A3048 (QUOTE %%%%INCLUDED-STRUCTURE) A3049)) (PUTPROP (QUOTE FASL:UNIMPLEMENTED-OPCODE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-FASL:UNIMPLEMENTED-OPCODE)) (PUTPROP (QUOTE FASL:UNIMPLEMENTED-OPCODE) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE FASL:UNIMPLEMENTED-OPCODE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((OPNAME NIL :READ-ONLY T)))) (PUTPROP (QUOTE FASL:UNIMPLEMENTED-OPCODE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (OPNAME))) (FIX-INHERITANCE-LINKS (QUOTE FASL:UNIMPLEMENTED-OPCODE) (QUOTE FASL:FASL-ERROR)) (LET* ((A3052 (QUOTE FASL:UNIMPLEMENTED-OPCODE)) (A3051 (QUOTE %%CONDITION-HANDLER)) (A3050 (QUOTE NIL ))) (PUTPROP A3052 A3051 A3050)) FASL:UNIMPLEMENTED-OPCODE-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (13Q FORMAT 10Q FASL:UNIMPLEMENTED-OPCODE-OPNAME) NIL ( 4 "Unimplemented FASL op: ~S") (LET* ((A3055 (QUOTE FASL:UNIMPLEMENTED-OPCODE)) (A3054 (QUOTE %%CONDITION-REPORTER)) (A3053 (QUOTE FASL:UNIMPLEMENTED-OPCODE-condition-reporter))) (PUTPROP A3055 A3054 A3053)) FASL:OBJECT-NOT-DUMPABLE-OBJECT D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE FASL:OBJECT-NOT-DUMPABLE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-FASL:OBJECT-NOT-DUMPABLE D1 (L (0 -args-)) 0eHkJdI瞥gIhagJk凔國Jl偢問NIL (37Q :OBJECT 26Q FASL:OBJECT-NOT-DUMPABLE) () (LET* ((A3056 (QUOTE FASL:OBJECT-NOT-DUMPABLE)) (A3057 (QUOTE (FASL:FASL-ERROR)))) (PUT A3056 (QUOTE %%%%INCLUDED-STRUCTURE) A3057)) (PUTPROP (QUOTE FASL:OBJECT-NOT-DUMPABLE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-FASL:OBJECT-NOT-DUMPABLE)) (PUTPROP (QUOTE FASL:OBJECT-NOT-DUMPABLE) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE FASL:OBJECT-NOT-DUMPABLE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((OBJECT NIL :READ-ONLY T )))) (PUTPROP (QUOTE FASL:OBJECT-NOT-DUMPABLE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (OBJECT))) (FIX-INHERITANCE-LINKS (QUOTE FASL:OBJECT-NOT-DUMPABLE) (QUOTE FASL:FASL-ERROR)) (LET* ((A3060 (QUOTE FASL:OBJECT-NOT-DUMPABLE)) (A3059 (QUOTE %%CONDITION-HANDLER)) (A3058 (QUOTE NIL) )) (PUTPROP A3060 A3059 A3058)) FASL:OBJECT-NOT-DUMPABLE-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (13Q FORMAT 10Q FASL:OBJECT-NOT-DUMPABLE-OBJECT) NIL ( 4 "Object not dumpable:~&~S") (LET* ((A3063 (QUOTE FASL:OBJECT-NOT-DUMPABLE)) (A3062 (QUOTE %%CONDITION-REPORTER)) (A3061 (QUOTE FASL:OBJECT-NOT-DUMPABLE-condition-reporter))) (PUTPROP A3063 A3062 A3061)) FASL:UNEXPECTED-END-OF-BLOCK-STREAM D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE FASL:UNEXPECTED-END-OF-BLOCK) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-FASL:UNEXPECTED-END-OF-BLOCK D1 (L (0 -args-)) 0eHkJdI瞥gIhagJk凔國Jl偢問NIL (37Q :STREAM 26Q FASL:UNEXPECTED-END-OF-BLOCK) () (LET* ((A3064 (QUOTE FASL:UNEXPECTED-END-OF-BLOCK)) (A3065 (QUOTE (FASL:FASL-ERROR)))) (PUT A3064 ( QUOTE %%%%INCLUDED-STRUCTURE) A3065)) (PUTPROP (QUOTE FASL:UNEXPECTED-END-OF-BLOCK) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-FASL:UNEXPECTED-END-OF-BLOCK)) (PUTPROP (QUOTE FASL:UNEXPECTED-END-OF-BLOCK) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE FASL:UNEXPECTED-END-OF-BLOCK) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((STREAM NIL :READ-ONLY T)))) (PUTPROP (QUOTE FASL:UNEXPECTED-END-OF-BLOCK) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (STREAM))) (FIX-INHERITANCE-LINKS (QUOTE FASL:UNEXPECTED-END-OF-BLOCK) (QUOTE FASL:FASL-ERROR)) (LET* ((A3068 (QUOTE FASL:UNEXPECTED-END-OF-BLOCK)) (A3067 (QUOTE %%CONDITION-HANDLER)) (A3066 (QUOTE NIL))) (PUTPROP A3068 A3067 A3066)) FASL:UNEXPECTED-END-OF-BLOCK-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (16Q FORMAT 13Q GETFILEPTR 10Q FASL:UNEXPECTED-END-OF-BLOCK-STREAM) NIL ( 4 "Unexpected FASL-END-OF-BLOCK at ~D.") (LET* ((A3071 (QUOTE FASL:UNEXPECTED-END-OF-BLOCK)) (A3070 (QUOTE %%CONDITION-REPORTER)) (A3069 (QUOTE FASL:UNEXPECTED-END-OF-BLOCK-condition-reporter))) (PUTPROP A3071 A3070 A3069)) FASL:INCONSISTENT-TABLE-EXPECTED D1 (L (0 OBJECT)) @NIL NIL () FASL:INCONSISTENT-TABLE-TABLE D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE FASL:INCONSISTENT-TABLE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-FASL:INCONSISTENT-TABLE D1 (L (0 -args-)) SeHkJdI馦瞥1Hk遣KdJ馦"瞥寫ILhagJk凔唱Jl偢匙agKk凔啡Kl倕動NIL (102Q :EXPECTED 57Q :TABLE 44Q FASL:INCONSISTENT-TABLE) () (LET* ((A3072 (QUOTE FASL:INCONSISTENT-TABLE)) (A3073 (QUOTE (FASL:FASL-ERROR)))) (PUT A3072 (QUOTE %%%%INCLUDED-STRUCTURE) A3073)) (PUTPROP (QUOTE FASL:INCONSISTENT-TABLE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-FASL:INCONSISTENT-TABLE)) (PUTPROP (QUOTE FASL:INCONSISTENT-TABLE) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE FASL:INCONSISTENT-TABLE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((TABLE NIL :READ-ONLY T) (EXPECTED NIL :READ-ONLY T)))) (PUTPROP (QUOTE FASL:INCONSISTENT-TABLE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (EXPECTED TABLE))) (FIX-INHERITANCE-LINKS (QUOTE FASL:INCONSISTENT-TABLE) (QUOTE FASL:FASL-ERROR)) (LET* ((A3076 (QUOTE FASL:INCONSISTENT-TABLE)) (A3075 (QUOTE %%CONDITION-HANDLER)) (A3074 (QUOTE NIL)) ) (PUTPROP A3076 A3075 A3074)) FASL:INCONSISTENT-TABLE-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ @  (27Q FORMAT 24Q CL:LENGTH 14Q FASL:INCONSISTENT-TABLE-TABLE 10Q FASL:INCONSISTENT-TABLE-EXPECTED) (17Q FASL::OPTABLE) ( 4 "Inconsistent FASL table size.~&Expected ~D but found ~D.") (LET* ((A3079 (QUOTE FASL:INCONSISTENT-TABLE)) (A3078 (QUOTE %%CONDITION-REPORTER)) (A3077 (QUOTE FASL:INCONSISTENT-TABLE-condition-reporter))) (PUTPROP A3079 A3078 A3077)) (SETQ FASL:SIGNATURE 145) (PUTHASH (QUOTE FASL:SIGNATURE) (QUOTE (CONSTANT FASL:SIGNATURE)) COMPVARMACROHASH) (LET* ((A3080 (QUOTE FASL:SIGNATURE)) (A3081 (QUOTE VARIABLE)) (A3082 "First byte of a FASL file.")) ( PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3080 A3081 A3082))) A3082)) (PROCLAIM (QUOTE (SPECIAL FASL::CHECK-TABLE-SIZE))) (OR (BOUNDP (QUOTE FASL::CHECK-TABLE-SIZE)) (SETQ FASL::CHECK-TABLE-SIZE T)) (SETQ FASL::FASL-EXTENDED 254) (PUTHASH (QUOTE FASL::FASL-EXTENDED) (QUOTE (CONSTANT FASL::FASL-EXTENDED)) COMPVARMACROHASH) (SETQ FASL::END-MARK 255) (PUTHASH (QUOTE FASL::END-MARK) (QUOTE (CONSTANT FASL::END-MARK)) COMPVARMACROHASH) (SETQ FASL::VERSION-RANGE (QUOTE (2 . 2))) (PUTHASH (QUOTE FASL::VERSION-RANGE) (QUOTE (CONSTANT FASL::VERSION-RANGE)) COMPVARMACROHASH) (LET* ((A3083 (QUOTE FASL::VERSION-RANGE)) (A3084 (QUOTE VARIABLE)) (A3085 "Handles (car version-range) <= version <= (cdr version-range)")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3083 A3084 A3085))) A3085)) (SETQ FASL:CURRENT-VERSION 2) (PUTHASH (QUOTE FASL:CURRENT-VERSION) (QUOTE (CONSTANT FASL:CURRENT-VERSION)) COMPVARMACROHASH) FASL::TABLE-STATS D1 (L (0 TABLE)) Og@ hQ@ j犒IJhiH@J ]Hgggg  MjHX\k堇LK澴k埏務(65Q CL:FIND 43Q TYPE-OF 20Q CL:LENGTH 6 CL:LENGTH) (61Q CAR 56Q :KEY 53Q CL:EQUAL 50Q :TEST 2 --TOTAL--) () FASL::HANDLE-HASH D1 (L (0 OBJECT)) @NIL (3 FASL::HANDLE) () setf-FASL::HANDLE-HASH D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 FASL::HANDLE) () (REMPROP (QUOTE FASL::HANDLE-HASH) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS FASL::HANDLE-HASH SETF-INVERSE setf-FASL::HANDLE-HASH) FASL::HANDLE-LAST-INDEX D1 (L (0 OBJECT)) @NIL (3 FASL::HANDLE) () setf-FASL::HANDLE-LAST-INDEX D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 FASL::HANDLE) () (REMPROP (QUOTE FASL::HANDLE-LAST-INDEX) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS FASL::HANDLE-LAST-INDEX SETF-INVERSE setf-FASL::HANDLE-LAST-INDEX) FASL::HANDLE-STATE D1 (L (0 OBJECT)) @NIL (3 FASL::HANDLE) () setf-FASL::HANDLE-STATE D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 FASL::HANDLE) () (REMPROP (QUOTE FASL::HANDLE-STATE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS FASL::HANDLE-STATE SETF-INVERSE setf-FASL::HANDLE-STATE) FASL::HANDLE-STREAM D1 (L (0 OBJECT)) @NIL (3 FASL::HANDLE) () setf-FASL::HANDLE-STREAM D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 FASL::HANDLE) () (REMPROP (QUOTE FASL::HANDLE-STREAM) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS FASL::HANDLE-STREAM SETF-INVERSE setf-FASL::HANDLE-STREAM) FASL::HANDLE-P D1 (L (0 OBJECT)) @NIL (3 FASL::HANDLE) () COPY-FASL::HANDLE D1 (L (0 OBJECT)) `@ (6 NCREATE2) (2 FASL::HANDLETYPE#) () (DEFPRINT (QUOTE FASL::HANDLE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) FASL::MAKE-HANDLE D1 (L (0 -args-)) eHkJdI馦a瞥 Hk遣KdJ馦d瞟嘻k噬NdM馦h磚_澦k_甍燈dO馦f瞟g _瘴dI盥L盥O盥OagJk凔Jl偢agKk凔Kl倕agNk凔Nl偩agOk凔Ol偫(117Q MAKE-HASH-TABLE 114Q SYMBOL-FUNCTION) (252Q :HASH 227Q :LAST-INDEX 204Q :STATE 161Q :STREAM 125Q FASL::HANDLETYPE# 111Q EQ 106Q :TEST 42Q :BLOCK-END) () (PUTPROP (QUOTE FASL::HANDLE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE FASL::MAKE-HANDLE)) (PUTPROP (QUOTE FASL::HANDLE) (QUOTE %%STRUCTURE-CLASS) (QUOTE STRUCTURE-CLASS)) (PUTPROP (QUOTE FASL::HANDLE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (STREAM (STATE :BLOCK-END) ( LAST-INDEX 0) (HASH (MAKE-HASH-TABLE :TEST (CL:FUNCTION EQ)))))) (PUTPROP (QUOTE FASL::HANDLE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (HASH LAST-INDEX STATE STREAM))) (/DECLAREDATATYPE (QUOTE FASL::HANDLE) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE ((FASL::HANDLE 0 POINTER) (FASL::HANDLE 2 POINTER) (FASL::HANDLE 4 POINTER) (FASL::HANDLE 6 POINTER))) (QUOTE 8)) (SETQ FASL::DUMMY-HANDLE (FASL::MAKE-HANDLE :STREAM (OPEN "{null}" :DIRECTION :OUTPUT) :STATE :BLOCK :HASH NIL)) (PUTHASH (QUOTE FASL::DUMMY-HANDLE) (QUOTE (CONSTANT FASL::DUMMY-HANDLE)) COMPVARMACROHASH) (SETQ FASL::+SMALLEST-FOUR-BYTE-INTEGER+ (- (CL:EXPT 2 31))) (PUTHASH (QUOTE FASL::+SMALLEST-FOUR-BYTE-INTEGER+) (QUOTE (CONSTANT FASL::+SMALLEST-FOUR-BYTE-INTEGER+)) COMPVARMACROHASH) (SETQ FASL::+LARGEST-FOUR-BYTE-INTEGER+ (1- (CL:EXPT 2 31))) (PUTHASH (QUOTE FASL::+LARGEST-FOUR-BYTE-INTEGER+) (QUOTE (CONSTANT FASL::+LARGEST-FOUR-BYTE-INTEGER+) ) COMPVARMACROHASH) (PROCLAIM (QUOTE (SPECIAL FASL::*GATHER-DUMPER-STATS*))) (OR (BOUNDP (QUOTE FASL::*GATHER-DUMPER-STATS*)) (SETQ FASL::*GATHER-DUMPER-STATS* NIL)) (PROCLAIM (QUOTE (SPECIAL FASL::*TABLE-ATTEMPTS*))) (OR (BOUNDP (QUOTE FASL::*TABLE-ATTEMPTS*)) (SETQ FASL::*TABLE-ATTEMPTS* 0)) (LET* ((A3086 (QUOTE FASL::*TABLE-ATTEMPTS*)) (A3087 (QUOTE VARIABLE)) (A3088 "Number of table lookups by the FASL dumper.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A3086 A3087 A3088))) A3088)) (PROCLAIM (QUOTE (SPECIAL FASL::*TABLE-HITS*))) (OR (BOUNDP (QUOTE FASL::*TABLE-HITS*)) (SETQ FASL::*TABLE-HITS* 0)) (LET* ((A3089 (QUOTE FASL::*TABLE-HITS*)) (A3090 (QUOTE VARIABLE)) (A3091 "Number of successful table lookups by the FASL dumper.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3089 A3090 A3091))) A3091)) FASL::RESET-DUMPER-STATS D1 (F 0 FASL::*TABLE-ATTEMPTS* F 1 FASL::*TABLE-HITS*) jcdcNIL NIL () DOTTED-LIST-LENGTH D1 (L (0 X)) Aj@dIH以i Id凶Hk佚k剫 IJHdjhHl髟J犒萼(45Q VALUES 21Q VALUES) NIL () expand-FASL::STATE-CASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @goHNIL (7 ECASE) ( 13Q (FASL::HANDLE-STATE HANDLE)) (SETF-MACRO-FUNCTION (QUOTE FASL::STATE-CASE) (QUOTE expand-FASL::STATE-CASE)) FAT-STRING-P D1 (L (0 STRING)) @d濃Ck (22Q %%FAT-STRING-ARRAY-P) (11Q STRINGP) () expand-FASL::REMEMBER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) =@1H違蜢KIhhoJggggKhhh (67Q \APPEND2 15Q GENSYM) (51Q HANDLE 46Q FASL::SAVE-VALUE 43Q REMEMBER 40Q CL:WHEN 21Q LET) ( 34Q (CL:WHEN REMEMBER (FASL::WRITE-OP HANDLE (QUOTE FASL:FASL-TABLE-STORE)))) (SETF-MACRO-FUNCTION (QUOTE FASL::REMEMBER) (QUOTE expand-FASL::REMEMBER)) FASL::ELEMENTS-IDENTICAL-PA0001 D1 (L (0 X) F 0 TESTELT) @P:NIL NIL () FASL::ELEMENTS-IDENTICAL-P D1 (L (0 ARRAY) P 1 TESTELT) @ HjgH (23Q %%SINGLE-EVERY 3 \FLATTEN-ARRAY) (17Q FASL::ELEMENTS-IDENTICAL-PA0001) () FASL::END-BLOCK D1 (L (0 HANDLE) F 1 FASL::CHECK-TABLE-SIZE) W@ Hg薶=Q@g 濃d h 濃 l @j @gg @g oHo (124Q ECASE-FAIL 107Q setf-FASL::HANDLE-STATE 100Q setf-FASL::HANDLE-HASH 75Q MAKE-HASH-TABLE 72Q SYMBOL-FUNCTION 60Q setf-FASL::HANDLE-LAST-INDEX 53Q BOUT 46Q FASL::HANDLE-STREAM 41Q FASL:DUMP-VALUE 35Q FASL::HANDLE-LAST-INDEX 27Q FASL::WRITE-OP 3 FASL::HANDLE-STATE) (104Q :BLOCK-END 67Q EQ 64Q :TEST 24Q FASL:FASL-VERIFY-TABLE-SIZE 12Q :BLOCK) ( 121Q (:BLOCK) 114Q (FASL::HANDLE-STATE HANDLE)) FASL::END-TEXT D1 (L (0 HANDLE)) -@ Hg薶@ l @g oHo (52Q ECASE-FAIL 35Q setf-FASL::HANDLE-STATE 26Q BOUT 21Q FASL::HANDLE-STREAM 3 FASL::HANDLE-STATE) (32Q :BLOCK 12Q :TEXT) ( 47Q (:TEXT) 42Q (FASL::HANDLE-STATE HANDLE)) FASL::WRITE-OP D1 (L (1 OPNAME 0 HANDLE)) D@ AHg薶*@ A 犒J ggA [d荻嘹L 熾基oHo (101Q ECASE-FAIL 60Q BOUT 44Q CL:ERROR 25Q FASL:OPCODE-SEQUENCE 21Q FASL::HANDLE-STREAM 3 FASL::HANDLE-STATE) (40Q :OPNAME 35Q FASL:UNIMPLEMENTED-OPCODE 12Q :BLOCK) ( 76Q (:BLOCK) 71Q (FASL::HANDLE-STATE HANDLE)) FASL::LOOKUP-VALUE D1 (L (1 VALUE 0 HANDLE)) A@ (7 GETHASH 4 FASL::HANDLE-HASH) NIL () FASL::SAVE-VALUE D1 (L (1 VALUE 0 HANDLE)) 'A!@ 愿 違JI @H k埳HI (44Q setf-FASL::HANDLE-LAST-INDEX 34Q FASL::HANDLE-LAST-INDEX 23Q CL:PUTHASH 14Q FASL::HANDLE-LAST-INDEX 7 FASL::HANDLE-HASH) NIL () FASL::DUMP-VALUE-FETCH D1 (L (1 INDEX 0 HANDLE)) @g @Ah (14Q FASL:DUMP-VALUE 6 FASL::WRITE-OP) (3 FASL:FASL-TABLE-FETCH) () FASL::DUMP-CHARACTER D1 (L (2 REMEMBER 1 CHAR 0 HANDLE)) ,A笄 @g nHIH Il IH (51Q BOUT16 44Q BOUT 35Q BOUT 22Q FASL::WRITE-OP 10Q FASL::HANDLE-STREAM) (17Q FASL:FASL-CHARACTER 3 CHARACTER) () FASL::DUMP-SYMBOL D1 (L (2 REMEMBER 1 SYMBOL 0 HANDLE)) bA A A慷@g 澤 @g 濃Hh-I o @g 濃Hh@g 濃Hh 濃IB 濁@J (137Q FASL::SAVE-VALUE 126Q FASL:DUMP-VALUE 117Q FASL:DUMP-VALUE 110Q FASL::WRITE-OP 73Q FASL::WRITE-OP 63Q STRING-EQUAL 54Q PACKAGE-NAME 42Q FASL::WRITE-OP 32Q KEYWORDP 25Q FASL::WRITE-OP 7 SYMBOL-PACKAGE 3 SYMBOL-NAME) (105Q FASL:FASL-SYMBOL-IN-PACKAGE 70Q FASL:FASL-LISP-SYMBOL 37Q FASL:FASL-KEYWORD-SYMBOL 22Q FASL:FASL-TABLE-STORE) ( 60Q "lisp") FASL::DUMP-LIST D1 (L (2 REMEMBER 1 LIST 0 HANDLE)) yA QH違截higgA 澤翡@g 濃Jgg @JIkIh Ij蝦LMhi@A 澤b燐k埣啁J@Ah 濁@K (166Q FASL::SAVE-VALUE 155Q FASL:DUMP-VALUE 131Q FASL:DUMP-VALUE 106Q FASL:DUMP-VALUE 72Q FASL::WRITE-OP 54Q FASL::WRITE-OP 40Q CL:ERROR 6 \MVLIST 3 DOTTED-LIST-LENGTH) (67Q FASL:FASL-LIST 63Q FASL:FASL-LIST* 51Q FASL:FASL-TABLE-STORE 34Q :OBJECT 31Q FASL:OBJECT-NOT-DUMPABLE) () FASL::DUMP-SIMPLE-VECTOR D1 (L (2 REMEMBER 1 VECTOR 0 HANDLE)) EA 1A運@g 濃g @HB Hj遣JKhi哦AK詐 熾k堇圉B@I (102Q FASL::SAVE-VALUE 63Q FASL:DUMP-VALUE 37Q FASL:DUMP-VALUE 31Q FASL::WRITE-OP 21Q FASL::WRITE-OP 3 CL:LENGTH) (26Q FASL:FASL-VECTOR 16Q FASL:FASL-TABLE-STORE) () FASL::DUMP-ARRAY-DESCRIPTOR D1 (L (0 -args-)) ekaqla槌a蜴嘻l噬NdM馦/瞥\_澴_熾Ig 澠g IJd k:澴 agNk凔匏Nl偩偷 K IgJ gJ J gJ hL gOh K KIO (242Q FASL::SAVE-VALUE 231Q FASL:DUMP-VALUE 221Q \APPEND2 200Q FILL-POINTER 167Q ARRAY-HAS-FILL-POINTER-P 163Q ADJUSTABLE-ARRAY-P 154Q ARRAY-ELEMENT-TYPE 144Q FASL:DUMP-VALUE 140Q ARRAY-DIMENSIONS 107Q ARRAY-DIMENSIONS 76Q ARRAY-RANK 70Q FASL::WRITE-OP 60Q FASL::WRITE-OP) (211Q :INITIAL-ELEMENT 174Q :FILL-POINTER 157Q :ADJUSTABLE 150Q :ELEMENT-TYPE 116Q :INITIAL-ELEMENT 65Q FASL:FASL-CREATE-ARRAY 55Q FASL:FASL-TABLE-STORE) () FASL::DUMP-BIT-ARRAY D1 (L (2 REMEMBER 1 ARRAY 0 HANDLE)) mA !A higgA 澤運@g 濃g @HB @AB @ A Hl K8摘LjMlJB@I (152Q FASL::SAVE-VALUE 112Q CEILING 104Q \ARRAY-BASE 100Q FASL::HANDLE-STREAM 74Q FASL::DUMP-ARRAY-DESCRIPTOR 66Q FASL:DUMP-VALUE 60Q FASL::WRITE-OP 50Q FASL::WRITE-OP 34Q CL:ERROR 15Q CL:ZEROP 12Q \ARRAY-OFFSET 3 ARRAY-TOTAL-SIZE) (126Q FDEV 121Q STREAM 55Q FASL:FASL-INITIALIZE-BIT-ARRAY 45Q FASL:FASL-TABLE-STORE 30Q :OBJECT 25Q FASL:OBJECT-NOT-DUMPABLE) () FASL::DUMP-GENERAL-ARRAY D1 (L (2 REMEMBER 1 ARRAY 0 HANDLE)) KA AA 辟g @Ah @Hh HgAgI 慵j撒KLhih@JL逸 燉k埮圈(102Q FASL:DUMP-VALUE 53Q MAKE-ARRAY 36Q FASL:DUMP-VALUE 30Q FASL::DUMP-ARRAY-DESCRIPTOR 22Q FASL::WRITE-OP 12Q ARRAY-ELEMENT-TYPE 3 ARRAY-TOTAL-SIZE) (46Q :ELEMENT-TYPE 42Q :DISPLACED-TO 17Q FASL:FASL-INITIALIZE-ARRAY) () FASL::DUMP-ARRAY D1 (L (2 REMEMBER 1 ARRAY 0 HANDLE)) GAd 瞟gA  @AB AH H o@AB A 紱@AB (104Q FASL::DUMP-SIMPLE-VECTOR 74Q VECTORP 67Q FASL::DUMP-BIT-ARRAY 52Q ARRAY-ELEMENT-TYPE 44Q CL:ARRAYP 33Q FASL::DUMP-GENERAL-ARRAY 24Q ADJUSTABLE-ARRAY-P 20Q CL:ERROR 4 DISPLACED-ARRAY-P) (14Q :OBJECT 11Q FASL:OBJECT-NOT-DUMPABLE) ( 56Q (UNSIGNED-BYTE 1)) FASL::WRITE-INTEGER-BYTES D1 (L (2 VALUE 1 NBYTES 0 HANDLE)) @ !BA Yd慵J 澠基(26Q BOUT 13Q FASL::INTEGER-BYTE-LIST 3 FASL::HANDLE-STREAM) NIL () FASL::INTEGER-BYTE-LIST D1 (L (1 NBYTES 0 VALUE)) )j@"AHhiJIn [遏J慵k堋唯(30Q \MVLIST 25Q CL:FLOOR) NIL () FASL::DUMP-RATIONAL D1 (L (2 REMEMBER 1 VALUE 0 HANDLE)) @g @A h @A h (30Q FASL:DUMP-VALUE 24Q DENOMINATOR 17Q FASL:DUMP-VALUE 13Q NUMERATOR 6 FASL::WRITE-OP) (3 FASL:FASL-RATIO) () FASL::DUMP-COMPLEX D1 (L (2 REMEMBER 1 VALUE 0 HANDLE)) @g @A h @A h (30Q FASL:DUMP-VALUE 24Q IMAGPART 17Q FASL:DUMP-VALUE 13Q REALPART 6 FASL::WRITE-OP) (3 FASL:FASL-COMPLEX) () FASL::DUMP-INTEGER D1 (L (2 REMEMBER 1 VALUE 0 HANDLE)) djAhilA@ A oAhiAohi@g @lA @g A k埥A l @Hh @HA (141Q FASL::WRITE-INTEGER-BYTES 133Q FASL:DUMP-VALUE 122Q CEILING 115Q INTEGER-LENGTH 106Q INTEGER-LENGTH 102Q FASL::WRITE-OP 72Q FASL::WRITE-INTEGER-BYTES 63Q FASL::WRITE-OP 24Q BOUT 20Q FASL::HANDLE-STREAM) (77Q FASL:FASL-LARGE-INTEGER 60Q FASL:FASL-INTEGER) ( 46Q 17777777777Q 31Q -20000000000Q) FASL::DUMP-PACKAGE D1 (L (2 REMEMBER 1 PACKAGE 0 HANDLE)) (AB@g 濃g @A B B@H (45Q FASL::SAVE-VALUE 35Q FASL:DUMP-VALUE 31Q PACKAGE-NAME 24Q FASL::WRITE-OP 14Q FASL::WRITE-OP) (21Q FASL:FASL-FIND-PACKAGE 11Q FASL:FASL-TABLE-STORE) () FASL::DUMP-DCODE D1 (L (2 REMEMBER 1 DCODE 0 HANDLE)) #@ @"@g 濃A B 澤 \ 罰KB 熾j犒IJhi胄LJ 澴k埏域A _d d２h霄膞A B 澦A 澦A 澦A 濃A B 濃A B 濃A B 澤 _ 濃O B 燈 d d２h_甍劀 _,濃O, B 燈,d d２3h_$甍" A _8濃O8 B 燈8d d２^h_0甍.7A _D濃OD B 燈Ddd２_:gh鄧N 濃NB 濃NB 燐殺 j_甍燈Ohi殺蔀O跛澦O 濃OB 濃OB 燈k偫膩_濃O 濃O 燈 j_甍燈Ohi殺蹭 O跛濃O 濃O 燈k偫膩_$濃O$ 濃O$ 燈"殺 j_*甍(燈(O*hi殺O,O*跛&濃O& 濃O& 燈*k偫*膩_0濃O0 濃O0 燈.殺 j_6甍4燈4O6hi殺O8O6跛2濃O2 濃O2 燈6k偫6膩_<濃O< 濃O< 燈:殺| j_B甍@燈@OBhi殺mODOB跛>濃O> 濃O> 燈Bk偫B膩(1363Q FASL:DUMP-VALUE 1352Q FASL:DUMP-VALUE 1307Q CL:LENGTH 1275Q FASL:DUMP-VALUE 1264Q FASL:DUMP-VALUE 1237Q FASL:DUMP-VALUE 1226Q FASL:DUMP-VALUE 1163Q CL:LENGTH 1151Q FASL:DUMP-VALUE 1140Q FASL:DUMP-VALUE 1113Q FASL:DUMP-VALUE 1102Q FASL:DUMP-VALUE 1037Q CL:LENGTH 1025Q FASL:DUMP-VALUE 1014Q FASL:DUMP-VALUE 767Q FASL:DUMP-VALUE 756Q FASL:DUMP-VALUE 713Q CL:LENGTH 701Q FASL:DUMP-VALUE 670Q FASL:DUMP-VALUE 643Q FASL:DUMP-VALUE 630Q FASL:DUMP-VALUE 616Q BOUT 553Q CL:LENGTH 542Q FASL:DUMP-VALUE 530Q FASL:DUMP-VALUE 517Q BOUT 462Q FASL:DUMP-VALUE 456Q CL:LENGTH 445Q DCODE-TYPE-FIXUPS 411Q FASL:DUMP-VALUE 405Q CL:LENGTH 374Q DCODE-LIT-FIXUPS 340Q FASL:DUMP-VALUE 334Q CL:LENGTH 323Q DCODE-SYM-FIXUPS 267Q FASL:DUMP-VALUE 263Q CL:LENGTH 252Q DCODE-FN-FIXUPS 245Q FASL:DUMP-VALUE 241Q DCODE-DEBUGGING-INFO 233Q FASL:DUMP-VALUE 227Q DCODE-CLOSURE-P 221Q FASL:DUMP-VALUE 215Q DCODE-NUM-ARGS 207Q BOUT 204Q DCODE-ARG-TYPE 176Q BOUT 173Q DCODE-NFREEVARS 165Q BOUT 162Q DCODE-NLOCALS 154Q FASL:DUMP-VALUE 150Q DCODE-FRAME-NAME 117Q DCODE-NAME-TABLE 104Q BOUT 60Q FASL:DUMP-VALUE 51Q CL:LENGTH 45Q DCODE-CODE-ARRAY 40Q FASL:DUMP-VALUE 34Q CL:LENGTH 31Q DCODE-NAME-TABLE 23Q FASL::WRITE-OP 3 FASL::HANDLE-STREAM) (20Q FASL:FASL-DCODE) () FASL::DUMP-STRING D1 (L (2 REMEMBER 1 STRING 0 HANDLE)) AB@g 濃 A _甍澤 淑@g 濃OB 磚\臺Khi貫AK紌箘L:hiI噎l 燈L 燈Jl 熾k埶護g 濃OB 燈j噬MNhiOAN 燒k埲唳B@H (251Q FASL::SAVE-VALUE 232Q BOUT 177Q FASL:DUMP-VALUE 167Q FASL::WRITE-OP 152Q BOUT 140Q BOUT 131Q BOUT 60Q FASL:DUMP-VALUE 50Q FASL::WRITE-OP 37Q FAT-STRING-P 25Q CL:LENGTH 21Q FASL::HANDLE-STREAM 14Q FASL::WRITE-OP) (226Q CHARACTER 164Q FASL:FASL-THIN-STRING 104Q CHARACTER 45Q FASL:FASL-FAT-STRING 11Q FASL:FASL-TABLE-STORE) () FASL::DUMP-FLOAT32 D1 (L (2 REMEMBER 1 NUMBER 0 HANDLE)) $@g @ H8違AjldI(12Q FASL::HANDLE-STREAM 6 FASL::WRITE-OP) (26Q FDEV 21Q STREAM 3 FASL:FASL-FLOAT32) () FASL:OPEN-FASL-HANDLE D1 (L (0 -args-)) ekaAHl2 OdN馦燈榫 l撒IggJ7a_燈Oh__燈k偫匐O&_膩瀩Lk傜nhl4 艙閿K]j Ml Ml gM (200Q FASL::MAKE-HANDLE 171Q BOUT16 163Q BOUT 155Q SETFILEPTR 142Q \LISPERROR 40Q SYMBOL-FUNCTION) (174Q :STREAM 53Q :OUTPUT 50Q :DIRECTION 35Q OPEN) () expand-FASL:WITH-OPEN-HANDLE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ HY截[嘿瘡Ah ^_燒_穎 _瞟JgLMhOohOgggOgOohgJgJgOhhhh (204Q \APPEND2 55Q GENSYM 33Q \MVLIST 30Q PARSE-BODY) (160Q :ABORT 154Q FASL:CLOSE-FASL-HANDLE 150Q CL:WHEN 131Q SETQ 123Q PROGN 120Q MULTIPLE-VALUE-PROG1 115Q UNWIND-PROTECT 67Q FASL:OPEN-FASL-HANDLE 63Q LET) ( 137Q (NIL) 104Q (T) 52Q "FASL:WITH-OPEN-FASL-HANDLE") (SETF-MACRO-FUNCTION (QUOTE FASL:WITH-OPEN-HANDLE) (QUOTE expand-FASL:WITH-OPEN-HANDLE)) FASL:BEGIN-TEXT D1 (L (0 HANDLE)) <@ Hg薱"Hg薱Hg薶@ oHo @g @ (71Q FASL::HANDLE-STREAM 65Q setf-FASL::HANDLE-STATE 54Q ECASE-FAIL 37Q FASL::END-BLOCK 3 FASL::HANDLE-STATE) (62Q :TEXT 30Q :BLOCK 21Q :BLOCK-END 12Q :TEXT) ( 51Q (:TEXT :BLOCK-END :BLOCK) 44Q (FASL::HANDLE-STATE HANDLE)) FASL:BEGIN-BLOCK D1 (L (0 HANDLE)) 8@ Hdg濃 @ g@ Hg藒hoHo (65Q ECASE-FAIL 40Q FASL::END-TEXT 26Q FASL::END-TEXT 22Q FASL:BEGIN-TEXT 3 FASL::HANDLE-STATE) (45Q :BLOCK 32Q :TEXT 13Q :BLOCK-END) ( 62Q (:BLOCK-END :TEXT :BLOCK) 55Q (FASL::HANDLE-STATE HANDLE)) FASL:VALUE-DUMPABLE-PA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE3337) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE3339) () FASL:VALUE-DUMPABLE-PA0001 D1 (P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 OBJ) ggQoRh 磨 (31Q \MVLIST 24Q FASL:DUMP-VALUE) (5 FASL:VALUE-DUMPABLE-PA0001A0002 2 FASL:OBJECT-NOT-DUMPABLE) ( 17Q FASL::DUMMY-HANDLE) FASL:VALUE-DUMPABLE-P D1 (P 0 CONDITION-CASE3337 I 0 OBJ)  gg 違hI (24Q VALUES-LIST 13Q \CATCH-FUNCALL) (10Q FASL:VALUE-DUMPABLE-PA0001 5 CONDITION-CASE3339) () FASL:DUMP-VALUE D1 (L (0 -args-) F 7 FASL::*GATHER-DUMPER-STATS* F 10Q FASL::*TABLE-ATTEMPTS* F 11Q FASL::*TABLE-HITS*) ekaQla槌Hila膏 ]g薶嘒 Ig iIg IJ \WWk偀WWk偀澠L J^d3 澠JK 代d3 澠JK IJK Nd澠JK IJK Nd澠JK IJK Nd澠JK IJK Nd 澠JK  IJK NIJ ggJ oMo (420Q ECASE-FAIL 403Q CL:ERROR 370Q FASL:DUMP-EVAL 365Q EVAL-WHEN-LOAD-FORM 352Q FASL::DUMP-ARRAY 343Q CL:ARRAYP 337Q FASL::DUMP-STRING 327Q CL:STRINGP 321Q FASL::DUMP-DCODE 306Q FASL::DUMP-LIST 270Q FASL::DUMP-PACKAGE 255Q FASL::DUMP-SYMBOL 237Q FASL::DUMP-CHARACTER 224Q FASL::DUMP-COMPLEX 206Q FASL::DUMP-FLOAT32 173Q FASL::DUMP-RATIONAL 152Q FASL::DUMP-INTEGER 134Q FASL::DUMP-VALUE-FETCH 101Q FASL::LOOKUP-VALUE 73Q FASL::WRITE-OP 60Q FASL::WRITE-OP 33Q FASL::HANDLE-STATE) (377Q :OBJECT 374Q FASL:OBJECT-NOT-DUMPABLE 357Q EVAL-WHEN-LOAD 312Q DCODE 276Q LISTP 261Q PACKAGE 245Q LITATOM 230Q CHARACTER 214Q COMPLEX 177Q FLOATP 156Q RATIO 70Q FASL:FASL-T 55Q FASL:FASL-NIL 37Q :BLOCK) ( 415Q (:BLOCK) 410Q (FASL::HANDLE-STATE HANDLE)) FASL:DUMP-FUNCTION-DEF D1 (L (2 NAME 1 DCODE 0 HANDLE)) .@ Hg薶@g @B @A oHo (53Q ECASE-FAIL 36Q FASL:DUMP-VALUE 31Q FASL:DUMP-VALUE 24Q FASL::WRITE-OP 3 FASL::HANDLE-STATE) (21Q FASL:FASL-SETF-SYMBOL-FUNCTION 12Q :BLOCK) ( 50Q (:BLOCK) 43Q (FASL::HANDLE-STATE HANDLE)) FASL:DUMP-FUNCALL D1 (L (1 FUNCTION 0 HANDLE)) )@ Hg薶@g @A oHo (46Q ECASE-FAIL 31Q FASL:DUMP-VALUE 24Q FASL::WRITE-OP 3 FASL::HANDLE-STATE) (21Q FASL:FASL-FUNCALL 12Q :BLOCK) ( 43Q (:BLOCK) 36Q (FASL::HANDLE-STATE HANDLE)) FASL:DUMP-EVAL D1 (L (1 FORM 0 HANDLE)) )@ Hg薶@g @A oHo (46Q ECASE-FAIL 31Q FASL:DUMP-VALUE 24Q FASL::WRITE-OP 3 FASL::HANDLE-STATE) (21Q FASL:FASL-EVAL 12Q :BLOCK) ( 43Q (:BLOCK) 36Q (FASL::HANDLE-STATE HANDLE)) FASL:CLOSE-FASL-HANDLE D1 (L (0 -args-)) ekaaHl遣KdJ馦.澦l2 OdO馦-燈嘹 ]dg藅=澠 澠 記ag薱紈l倕冕a_燈Oh__燈k偫偶O&_膩瀜I Mg藄hoMo 澠g g k_蕪I LdOk傇nhl4 艙燔N(273Q \LISPERROR 243Q FASL::HANDLE-STREAM 232Q SYMBOL-FUNCTION 224Q setf-FASL::HANDLE-STATE 214Q ECASE-FAIL 167Q FASL::END-BLOCK 75Q FASL::END-BLOCK 70Q FASL::END-TEXT 53Q FASL::HANDLE-STATE) (227Q CLOSE 221Q :CLOSED 175Q :BLOCK-END 161Q :BLOCK 103Q :ABORT 60Q :TEXT) ( 211Q (:TEXT :BLOCK :BLOCK-END) 204Q (FASL::HANDLE-STATE HANDLE)) (ADDTOVAR PRETTYDEFMACROS (FASL-OPS X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO ((DEF ( GETDEF ITEM (QUOTE FASL-OPS)))) (DEF DEF) (CERROR "Re-fetch the definition" "No ~S definition for ~S" (QUOTE FASL-OPS) ITEM)))))))) (ADDTOVAR PRETTYTYPELST (CHANGEDFASL-OPSLST FASL-OPS "FASL file opcodes")) (COND ((NOT (CL:GETHASH (QUOTE FASL-OPS) *DEFINITION-HASH-TABLE*)) (CL:PUTHASH (QUOTE FASL-OPS) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL) (QUOTE :SIZE) 50 (QUOTE :REHASH-SIZE) 50)))) (ADDTOVAR FILEPKGTYPES FASL-OPS) (PUTPROPS FASL-OPS GETDEF \DEFINE-TYPE-GETDEF) (PUTPROPS FASL-OPS FILEPKGCONTENTS NILL) (PUTPROPS FASL-OPS PROPTYPE FASL-OPS) FASL::OPTABLE-NEXT D1 (L (0 OBJECT)) @NIL (3 FASL::OPTABLE) () setf-FASL::OPTABLE-NEXT D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 FASL::OPTABLE) () (REMPROP (QUOTE FASL::OPTABLE-NEXT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS FASL::OPTABLE-NEXT SETF-INVERSE setf-FASL::OPTABLE-NEXT) FASL::OPTABLE-OPNAMES D1 (L (0 OBJECT)) @NIL (3 FASL::OPTABLE) () setf-FASL::OPTABLE-OPNAMES D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 FASL::OPTABLE) () (REMPROP (QUOTE FASL::OPTABLE-OPNAMES) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS FASL::OPTABLE-OPNAMES SETF-INVERSE setf-FASL::OPTABLE-OPNAMES) FASL::OPTABLE-VECTOR D1 (L (0 OBJECT)) @NIL (3 FASL::OPTABLE) () setf-FASL::OPTABLE-VECTOR D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 FASL::OPTABLE) () (REMPROP (QUOTE FASL::OPTABLE-VECTOR) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS FASL::OPTABLE-VECTOR SETF-INVERSE setf-FASL::OPTABLE-VECTOR) FASL::OPTABLE-P D1 (L (0 OBJECT)) @NIL (3 FASL::OPTABLE) () COPY-FASL::OPTABLE D1 (L (0 OBJECT)) `@ (6 NCREATE2) (2 FASL::OPTABLETYPE#) () (DEFPRINT (QUOTE FASL::OPTABLE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) FASL::NEW-OPTABLE D1 (L (0 -args-)) eHkJdI馦9瞥aHk遣KdJ馦<瞥嘻k噬NdM馦B瞥_瘴dI盥L盥OagJk凔偭Jl偢偃agKk凔偏Kl倕偽agNk凔偶Nl偩高NIL (157Q :NEXT 134Q :OPNAMES 111Q :VECTOR 63Q FASL::OPTABLETYPE#) () (PUTPROP (QUOTE FASL::OPTABLE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE FASL::NEW-OPTABLE)) (PUTPROP (QUOTE FASL::OPTABLE) (QUOTE %%STRUCTURE-CLASS) (QUOTE STRUCTURE-CLASS)) (PUTPROP (QUOTE FASL::OPTABLE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (VECTOR OPNAMES NEXT))) (PUTPROP (QUOTE FASL::OPTABLE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (NEXT OPNAMES VECTOR))) (/DECLAREDATATYPE (QUOTE FASL::OPTABLE) (QUOTE (POINTER POINTER POINTER)) (QUOTE ((FASL::OPTABLE 0 POINTER) (FASL::OPTABLE 2 POINTER) (FASL::OPTABLE 4 POINTER))) (QUOTE 6)) optimize-FASL::OPTABLE-VECTOR D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gogHhNIL (17Q OF 10Q FETCH) ( 14Q (FASL::OPTABLE VECTOR)) (PUTPROP (QUOTE FASL::OPTABLE-VECTOR) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE FASL::OPTABLE-VECTOR) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-FASL::OPTABLE-VECTOR)))) FASL:MAKE-OPTABLE D1 NIL #ngg HI I榫Jl廈(26Q setf-FASL::OPTABLE-VECTOR 16Q MAKE-ARRAY 2 FASL::NEW-OPTABLE) (33Q FASL::FASL-END-OF-BLOCK 13Q FASL::UNIMPLEMENTED-OPCODE 10Q :INITIAL-ELEMENT) () FASL::FASL-END-OF-BLOCK D1 (L (1 OP 0 STREAM) F 0 FASL::*BLOCK-LEVEL*) P gh gg@ (31Q CL:ERROR 16Q \DO-THROW 13Q \MVLIST 3 CL:ZEROP) (25Q :STREAM 22Q FASL:UNEXPECTED-END-OF-BLOCK 7 FASL-BLOCK-FINISHED) () expand-FASL:DEFOP D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) j @  @違慵[\盤頜N 古_瞟N g_熾Ai __燈_燈_燒o ggO 淫ggJoOoOO gggOhMhgJhhggJhMOhh退u^gggOhggOhogOhhgJMgOk捥gOhhOoOO hhgoggggJhogIhhhhgJhh(441Q \APPEND2 210Q \APPEND2 154Q CL:ZEROP 141Q KEYWORD-TEST 104Q \MVLIST 101Q PARSE-BODY 56Q FIND-KEYWORD 35Q FIND-KEYWORD 4 REMOVE-COMMENTS) (536Q QUOTE 512Q QUOTE 477Q QUOTE 474Q \DEFINE-TYPE-SAVE-DEFN 471Q FILEPKGFLG 466Q AND 457Q EVAL-WHEN 407Q FASL::OPTABLE-NEXT 404Q :TABLE 375Q :INDIRECT 370Q FASL:DEFOP 353Q FASL::SETESCAPE 335Q FASL::OPTABLE-NEXT 332Q SETF 322Q FASL::OPTABLE-NEXT 317Q CL:UNLESS 314Q PROGN 260Q QUOTE 255Q FASL::ADD-OP-TRANSLATION 242Q QUOTE 225Q FASL::OPTABLE-VECTOR 222Q CL:ELT 217Q SETF 164Q DEFUN 161Q PROGN 147Q WITHOUT-FILEPKG 144Q PROGN 67Q FASL:*DEFAULT-OPTABLE* 52Q :TABLE 31Q :INDIRECT) ( 507Q (QUOTE FASL-OPS) 463Q (CL:EVAL) 432Q "FASL opcode implementation" 346Q ((FASL:MAKE-OPTABLE)) 201Q "FASL opcode implementation" 171Q (STREAM OPCODE) 136Q (:TABLE :INDIRECT)) (SETF-MACRO-FUNCTION (QUOTE FASL:DEFOP) (QUOTE expand-FASL:DEFOP)) (ADDTOVAR PRETTYPRINTMACROS (FASL:DEFOP . PPRINT-DEFINER)) expand-FASL:DEFRANGE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ @違慵[\盤頜N 4j_瞟N g_熾__燈__燈Ai __燈_燈_ 燒o ggO ２揄gJoO oOO ggggJhhhgggJhhhhggOhggggMhhhgggOhogJhhgggoggggOhhhogOhhhh辱殺殺殶ggOhggOhogOhhgJMgOk捥gOhhO oOO hhgoggggJhogIhhhhgJhh(663Q \APPEND2 237Q \APPEND2 201Q CL:ZEROP 166Q KEYWORD-TEST 131Q \MVLIST 126Q PARSE-BODY 61Q FIND-KEYWORD 40Q FIND-KEYWORD 4 REMOVE-COMMENTS) (760Q QUOTE 734Q QUOTE 721Q QUOTE 716Q \DEFINE-TYPE-SAVE-DEFN 713Q FILEPKGFLG 710Q AND 701Q EVAL-WHEN 631Q FASL::OPTABLE-NEXT 626Q :TABLE 617Q :INDIRECT 612Q FASL:DEFRANGE 575Q FASL::SETESCAPE 557Q FASL::OPTABLE-NEXT 554Q SETF 544Q FASL::OPTABLE-NEXT 541Q CL:UNLESS 536Q PROGN 477Q OPCODE 450Q I 445Q + 442Q WRITE-TO-STRING 437Q PNAME 430Q CONCATENATE 425Q INTERN 422Q FASL::ADD-OP-TRANSLATION 407Q QUOTE 371Q FASL::OPTABLE-VECTOR 366Q CL:ELT 363Q SETF 346Q I 343Q + 340Q OPCODE 335Q LET 325Q I 322Q DOTIMES 302Q QUOTE 277Q SYMBOL-NAME 274Q PNAME 257Q QUOTE 254Q SYMBOL-PACKAGE 251Q PACKAGE 246Q LET 213Q DEFUN 210Q PROGN 174Q WITHOUT-FILEPKG 171Q PROGN 72Q FASL:*DEFAULT-OPTABLE* 55Q :TABLE 34Q :INDIRECT) ( 731Q (QUOTE FASL-OPS) 705Q (CL:EVAL) 654Q "FASL opcode implementation" 570Q ((FASL:MAKE-OPTABLE)) 472Q (PACKAGE) 434Q (QUOTE STRING) 402Q (OPCODE) 230Q "FASL opcode implementation" 220Q (STREAM OPCODE) 163Q (:TABLE :INDIRECT)) (SETF-MACRO-FUNCTION (QUOTE FASL:DEFRANGE) (QUOTE expand-FASL:DEFRANGE)) (ADDTOVAR PRETTYPRINTMACROS (FASL:DEFRANGE . PPRINT-DEFINER)) FASL::ADD-OP-TRANSLATION D1 (L (2 TABLE 1 OPCODE 0 NAME)) *@B B@AH 違I A違dI(33Q setf-FASL::OPTABLE-OPNAMES 24Q FASL::OPTABLE-OPNAMES 7 CL:ASSOC 4 FASL::OPTABLE-OPNAMES) NIL () FASL:OPCODE-SEQUENCE D1 (L (0 -args-) F 4 FASL:*DEFAULT-OPTABLE*) 6eka!lHTlaZ︺IJ IJ [lKh(50Q FASL:OPCODE-SEQUENCE 45Q FASL::OPTABLE-NEXT 36Q CL:ASSOC 33Q FASL::OPTABLE-OPNAMES) NIL () FASL::FASL-EXTENDED D1 (L (1 OP 0 STREAM) P 0 FASL::*CURRENT-OPTABLE* F 1 FASL::*CURRENT-OPTABLE*) Q @ (12Q FASL::DO-OP 3 FASL::OPTABLE-NEXT) NIL () FASL::SETESCAPE D1 (L (0 TABLE)) @g Hl(16Q SYMBOL-FUNCTION) (13Q FASL::FASL-EXTENDED 3 FASL::OPTABLE) () FASL::UNIMPLEMENTED-OPCODE D1 (L (1 OPCODE 0 STREAM)) ggA (11Q CL:ERROR) (5 :OPNAME 2 FASL:UNIMPLEMENTED-OPCODE) () (PROCLAIM (QUOTE (SPECIAL FASL:*DEFAULT-OPTABLE*))) (OR (BOUNDP (QUOTE FASL:*DEFAULT-OPTABLE*)) (SETQ FASL:*DEFAULT-OPTABLE* (FASL:MAKE-OPTABLE))) (PROCLAIM (QUOTE (SPECIAL FASL::*CURRENT-OPTABLE*))) (OR (BOUNDP (QUOTE FASL::*CURRENT-OPTABLE*)) (SETQ FASL::*CURRENT-OPTABLE* NIL)) (PROCLAIM (QUOTE (SPECIAL FASL::INITIAL-VALUE-TABLE-SIZE))) (SETQ FASL::INITIAL-VALUE-TABLE-SIZE 2048) (SETQ FASL::VALUE-TABLE-INCREMENT 1024) (PUTHASH (QUOTE FASL::VALUE-TABLE-INCREMENT) (QUOTE (CONSTANT FASL::VALUE-TABLE-INCREMENT)) COMPVARMACROHASH) (PROCLAIM (QUOTE (SPECIAL FASL::*VALUE-TABLE*))) (OR (BOUNDP (QUOTE FASL::*VALUE-TABLE*)) (SETQ FASL::*VALUE-TABLE* NIL)) (PROCLAIM (QUOTE (SPECIAL FASL::*BLOCK-LEVEL*))) (OR (BOUNDP (QUOTE FASL::*BLOCK-LEVEL*)) (SETQ FASL::*BLOCK-LEVEL* 0)) (PROCLAIM (QUOTE (SPECIAL FASL::DEBUG-READER))) (OR (BOUNDP (QUOTE FASL::DEBUG-READER)) (SETQ FASL::DEBUG-READER NIL)) (PROCLAIM (QUOTE (SPECIAL FASL::DEBUG-STREAM))) (OR (BOUNDP (QUOTE FASL::DEBUG-STREAM)) (SETQ FASL::DEBUG-STREAM NIL)) expand-FASL:WITH-OPTABLE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!H違榫gIhhJNIL (20Q FASL::*CURRENT-OPTABLE* 15Q LET) () (SETF-MACRO-FUNCTION (QUOTE FASL:WITH-OPTABLE) (QUOTE expand-FASL:WITH-OPTABLE)) FASL:PROCESS-FILEA0001 D1 (L (0 TEXT)) @ (6 TERPRI 3 PRINC) NIL () FASL:PROCESS-FILE D1 (L (0 -args-)) |ekaaHl遣KdJ馦!瞟嘻l噬NdM馦$瞥_澠 l:+h)agKk凔唱Kl倕匐agNk凔啄Nl偩務io 澠 Id LO 膩(167Q FASL:PROCESS-SEGMENT 160Q VALUES 153Q EOFP 146Q FASL:CHECK-VERSION 141Q CL:ERROR) (111Q :ITEM-FN 66Q :TEXT-FN 27Q FASL:PROCESS-FILEA0001) ( 136Q "Not a FASL file.") (LET* ((A3150 (QUOTE FASL:PROCESS-FILE)) (A3151 (QUOTE CL:FUNCTION)) (A3152 "Calls FASL:PROCESS-SEGMENT with the approriate arguments for each segment in the file. The stream should be positioned at the beginning." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3150 A3151 A3152))) A3152)) FASL:CHECK-VERSION D1 (L (0 STREAM)) *@ oHhiHohi oH (47Q CL:ERROR 3 BIN16) NIL ( 43Q "Version not supported: ~D." 27Q (2 . 2) 12Q (2 . 2)) FASL:PROCESS-SEGMENT D1 (L (0 -args-) F 5 FASL:*DEFAULT-OPTABLE*) Aeka1lHhla槌Hhla蜷HUla嘲I kJI 澠KL (76Q FASL:PROCESS-BLOCK 67Q FASL:SKIP-TEXT 57Q FASL:READ-TEXT) NIL () FASL:READ-TEXT D1 (L (0 STREAM)) Engggigj @ Idl:澦g ZjJhilJ圁 濃 啃(76Q VECTOR-PUSH-EXTEND 47Q CL:COERCE 24Q MAKE-ARRAY) (44Q STRING 17Q :FILL-POINTER 13Q :ADJUSTABLE 10Q CHARACTER 5 :ELEMENT-TYPE) () FASL:PROCESS-BLOCKA0001 D1 (P 1 FASL::*VALUE-TABLE* P 0 FASL::*CURRENT-OPTABLE* F 3 ITEM-FN F 4 OPTABLE F 5 STREAM) TUj 搴莓JkS膩(16Q FASL::DO-OP 6 FASL::NEW-VALUE-TABLE) NIL () FASL:PROCESS-BLOCK D1 (L (0 -args-) P 3 OPTABLE P 2 ITEM-FN P 1 STREAM F 4 FASL:*DEFAULT-OPTABLE*) *eka!lHhla槌HTla蜢g (47Q \CATCH-FUNCALL) (44Q FASL:PROCESS-BLOCKA0001 41Q FASL-BLOCK-FINISHED) () FASL:SKIP-TEXT D1 (L (0 STREAM)) @ dl:荷(13Q VALUES) NIL () expand-FASL:NEXT-VALUE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) oNIL NIL ( 3 (FASL::DO-OP STREAM)) (SETF-MACRO-FUNCTION (QUOTE FASL:NEXT-VALUE) (QUOTE expand-FASL:NEXT-VALUE)) FASL::DO-OP D1 (L (0 -args-) P 4 FASL::*BLOCK-LEVEL* F 5 FASL::DEBUG-READER F 6 FASL::DEBUG-STREAM F 7 FASL::*CURRENT-OPTABLE* F 10Q FASL::*BLOCK-LEVEL*) Yeka!lHWklaI 摻VoLl渰W J 澠JlWJ[UVoLl湓 K(125Q FORMAT 66Q FORMAT 60Q RASSOC 55Q FASL::OPTABLE-OPNAMES) (100Q FASL::OPTABLE) ( 115Q "~VTValue: ~S~%%" 43Q "~VT~A (~3O)~%%") FASL::NEW-VALUE-TABLE D1 (F 0 FASL::INITIAL-VALUE-TABLE-SIZE) Pgjgi (14Q MAKE-ARRAY) (7 :EXTENDABLE 3 :FILL-POINTER) () FASL::CLEAR-TABLE D1 (L (0 -args-) F 1 FASL::*VALUE-TABLE*) ekHQkaj (17Q SET-FILL-POINTER) NIL () FASL::STORE-VALUE D1 (L (0 -args-) F 3 FASL::*VALUE-TABLE*) ekalHSla截Jn I(33Q VECTOR-PUSH-EXTEND) NIL () FASL::FETCH-VALUE D1 (L (0 -args-) F 2 FASL::*VALUE-TABLE*) ekalHRlaINIL NIL () FASL::COLLECT-LIST D1 (L (2 DOTTED 1 NELTS 0 STREAM)) PBAl:@ @ BAkAAk\H馧@ 膈 KhZ過k埶蕱&滌醼!BH 愿 遇IH(110Q FASL::DO-OP 103Q LAST 45Q FASL::DO-OP 17Q FASL::DO-OP 13Q FASL::DO-OP) NIL () FASL:FASL-SHORT-INTEGER D1 (L (1 OPCODE 0 STREAM)) ANIL NIL () (LET* ((A3156 (QUOTE FASL:FASL-SHORT-INTEGER)) (A3157 (QUOTE CL:FUNCTION)) (A3158 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3156 A3157 A3158))) A3158)) (LET ((PACKAGE (SYMBOL-PACKAGE (QUOTE FASL:FASL-SHORT-INTEGER))) (PNAME (SYMBOL-NAME (QUOTE FASL:FASL-SHORT-INTEGER)))) (LET ((A3159 128) (I 0)) (PROG NIL LOOPTAG3160 (COND ((>= I A3159) (RETURN NIL))) (LET ((OPCODE (+ I 0))) (SETF (CL:ELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) OPCODE) ( QUOTE FASL:FASL-SHORT-INTEGER)) (FASL::ADD-OP-TRANSLATION (INTERN (CONCATENATE (QUOTE STRING) PNAME ( WRITE-TO-STRING (+ I 0))) PACKAGE) OPCODE FASL:*DEFAULT-OPTABLE*)) (INCF I) (GO LOOPTAG3160)))) FASL:FASL-NIL D1 (L (1 OPCODE 0 STREAM)) hNIL NIL () (LET* ((A3161 (QUOTE FASL:FASL-NIL)) (A3162 (QUOTE CL:FUNCTION)) (A3163 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3161 A3162 A3163))) A3163)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 128 (QUOTE FASL:FASL-NIL)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-NIL) 128 FASL:*DEFAULT-OPTABLE*) FASL:FASL-T D1 (L (1 OPCODE 0 STREAM)) iNIL NIL () (LET* ((A3164 (QUOTE FASL:FASL-T)) (A3165 (QUOTE CL:FUNCTION)) (A3166 "FASL opcode implementation")) ( PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3164 A3165 A3166))) A3166)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 129 (QUOTE FASL:FASL-T)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-T) 129 FASL:*DEFAULT-OPTABLE*) FASL:FASL-INTEGER D1 (L (1 OPCODE 0 STREAM)) @ 摽凘 摽@ 凘 尰NIL NIL () (LET* ((A3167 (QUOTE FASL:FASL-INTEGER)) (A3168 (QUOTE CL:FUNCTION)) (A3169 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3167 A3168 A3169))) A3169)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 130 (QUOTE FASL:FASL-INTEGER)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-INTEGER) 130 FASL:*DEFAULT-OPTABLE*) FASL:FASL-LARGE-INTEGER D1 (L (1 OPCODE 0 STREAM)) x @ ij#Hk掞犆jMJ NjNk婭@ _澠h逾ll榫lMh噎J皛NLLK OkO蔝愄蔂緪OkO蔝毳O諙醃l桵(32Q CL:ZEROP 3 FASL::DO-OP) (70Q BYTESPEC) () (LET* ((A3170 (QUOTE FASL:FASL-LARGE-INTEGER)) (A3171 (QUOTE CL:FUNCTION)) (A3172 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3170 A3171 A3172))) A3172)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 131 (QUOTE FASL:FASL-LARGE-INTEGER)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-LARGE-INTEGER) 131 FASL:*DEFAULT-OPTABLE*) FASL:FASL-RATIO D1 (L (1 OPCODE 0 STREAM)) @ @ (12Q %%/ 7 FASL::DO-OP 3 FASL::DO-OP) NIL () (LET* ((A3173 (QUOTE FASL:FASL-RATIO)) (A3174 (QUOTE CL:FUNCTION)) (A3175 "FASL opcode implementation" )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3173 A3174 A3175))) A3175)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 134 (QUOTE FASL:FASL-RATIO)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-RATIO) 134 FASL:*DEFAULT-OPTABLE*) FASL:FASL-COMPLEX D1 (L (1 OPCODE 0 STREAM)) @ @ (12Q COMPLEX 7 FASL::DO-OP 3 FASL::DO-OP) NIL () (LET* ((A3176 (QUOTE FASL:FASL-COMPLEX)) (A3177 (QUOTE CL:FUNCTION)) (A3178 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3176 A3177 A3178))) A3178)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 135 (QUOTE FASL:FASL-COMPLEX)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-COMPLEX) 135 FASL:*DEFAULT-OPTABLE*) FASL:FASL-VECTOR D1 (L (1 OPCODE 0 STREAM)) 1@ QHgh 違j遣JKhiII皺劇 ML滇Kk堇唳(45Q FASL::DO-OP 16Q MAKE-ARRAY 3 FASL::DO-OP) (12Q :INITIAL-ELEMENT) () (LET* ((A3179 (QUOTE FASL:FASL-VECTOR)) (A3180 (QUOTE CL:FUNCTION)) (A3181 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3179 A3180 A3181))) A3181)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 136 (QUOTE FASL:FASL-VECTOR)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-VECTOR) 136 FASL:*DEFAULT-OPTABLE*) FASL:FASL-CREATE-ARRAY D1 (L (1 OPCODE 0 STREAM)) /g k@ @ dIk傎nhl4 艙閹H(46Q \LISPERROR 21Q FASL::DO-OP 15Q FASL::DO-OP 5 SYMBOL-FUNCTION) (2 MAKE-ARRAY) () (LET* ((A3182 (QUOTE FASL:FASL-CREATE-ARRAY)) (A3183 (QUOTE CL:FUNCTION)) (A3184 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3182 A3183 A3184))) A3184)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 137 (QUOTE FASL:FASL-CREATE-ARRAY)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-CREATE-ARRAY) 137 FASL:*DEFAULT-OPTABLE*) FASL:FASL-INITIALIZE-ARRAY D1 (L (1 OPCODE 0 STREAM)) 0@ QH 辟 j遣JKhiHI皺劇 ML滇Kk堇唳(44Q FASL::DO-OP 17Q FASL::DO-OP 12Q %%FLATTEN-ARRAY 3 FASL::DO-OP) NIL () (LET* ((A3185 (QUOTE FASL:FASL-INITIALIZE-ARRAY)) (A3186 (QUOTE CL:FUNCTION)) (A3187 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3185 A3186 A3187))) A3187)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 138 (QUOTE FASL:FASL-INITIALIZE-ARRAY)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-INITIALIZE-ARRAY) 138 FASL:*DEFAULT-OPTABLE*) FASL:FASL-INITIALIZE-BIT-ARRAY D1 (L (1 OPCODE 0 STREAM)) @  H 濃 l Y截[ hiJl焥澦 輥 篌\K HN_燈L偫瞟klL掊_燐OO OO kO蔝毳OO滇Lk埶(155Q RSH 74Q %%= 62Q %%FLATTEN-ARRAY 41Q CL:ZEROP 27Q \MVLIST 24Q CL:FLOOR 17Q FASL::DO-OP 12Q %%ARRAY-BASE 3 FASL::DO-OP) (115Q BYTESPEC) () (LET* ((A3188 (QUOTE FASL:FASL-INITIALIZE-BIT-ARRAY)) (A3189 (QUOTE CL:FUNCTION)) (A3190 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3188 A3189 A3190))) A3190)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 139 (QUOTE FASL:FASL-INITIALIZE-BIT-ARRAY)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-INITIALIZE-BIT-ARRAY) 139 FASL:*DEFAULT-OPTABLE*) FASL:FASL-THIN-STRING D1 (L (1 OPCODE 0 STREAM)) (@ AH 辟I墩6摘LjHlJI(12Q ALLOCSTRING 3 FASL::DO-OP) (31Q FDEV 24Q STREAM) () (LET* ((A3191 (QUOTE FASL:FASL-THIN-STRING)) (A3192 (QUOTE CL:FUNCTION)) (A3193 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3191 A3192 A3193))) A3193)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 140 (QUOTE FASL:FASL-THIN-STRING)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-THIN-STRING) 140 FASL:*DEFAULT-OPTABLE*) FASL:FASL-FAT-STRINGA0001A0002 D1 (F 0 STREAM) Pj (4 CHARSET) NIL () FASL:FASL-FAT-STRINGA0001 D1 (NAME ERRORSET L (0 NIL) F 5 RESETVARSLST F 6 STRING F 7 NCHARS F 10Q STREAM F 11Q RESETY) HghhhUc 獨j2HIhiVciV嘹蓄 ZjJhilJ埕K滇Ik埳區(52Q READCCODE) (2 FASL:FASL-FAT-STRINGA0001A0002) () FASL:FASL-FAT-STRING D1 (L (1 OPCODE) P 3 RESETY P 2 LISPXHIST P 1 STRING P 0 NCHARS I 0 STREAM F 5 LISPXHIST F 6 RESETVARSLST) 5@ H @j U!Vog hg\ LK(60Q ERROR! 53Q RESETRESTORE 41Q FASL:FASL-FAT-STRINGA0001 22Q CHARSET 12Q ALLOCSTRING 3 FASL::DO-OP) (47Q ERROR 36Q INTERNAL) ( 33Q (FASL:FASL-FAT-STRINGA0001)) (LET* ((A3194 (QUOTE FASL:FASL-FAT-STRING)) (A3195 (QUOTE CL:FUNCTION)) (A3196 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3194 A3195 A3196))) A3196)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 141 (QUOTE FASL:FASL-FAT-STRING)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-FAT-STRING) 141 FASL:*DEFAULT-OPTABLE*) FASL:FASL-CHARACTER D1 (L (1 OPCODE 0 STREAM)) #@ dl:濃 HjHhilH(13Q BIN16) NIL () (LET* ((A3197 (QUOTE FASL:FASL-CHARACTER)) (A3198 (QUOTE CL:FUNCTION)) (A3199 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3197 A3198 A3199))) A3199)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 142 (QUOTE FASL:FASL-CHARACTER)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-CHARACTER) 142 FASL:*DEFAULT-OPTABLE*) FASL:FASL-LISP-SYMBOL D1 (L (1 OPCODE 0 STREAM)) @ o (15Q INTERN 12Q FIND-PACKAGE 3 FASL::DO-OP) NIL ( 7 "LISP") (LET* ((A3200 (QUOTE FASL:FASL-LISP-SYMBOL)) (A3201 (QUOTE CL:FUNCTION)) (A3202 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3200 A3201 A3202))) A3202)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 143 (QUOTE FASL:FASL-LISP-SYMBOL)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-LISP-SYMBOL) 143 FASL:*DEFAULT-OPTABLE*) FASL:FASL-KEYWORD-SYMBOL D1 (L (1 OPCODE 0 STREAM)) @ o (15Q INTERN 12Q FIND-PACKAGE 3 FASL::DO-OP) NIL ( 7 "KEYWORD") (LET* ((A3203 (QUOTE FASL:FASL-KEYWORD-SYMBOL)) (A3204 (QUOTE CL:FUNCTION)) (A3205 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3203 A3204 A3205))) A3205)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 144 (QUOTE FASL:FASL-KEYWORD-SYMBOL)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-KEYWORD-SYMBOL) 144 FASL:*DEFAULT-OPTABLE*) FASL:FASL-FIND-PACKAGE D1 (L (1 OPCODE 0 STREAM)) @ (6 FIND-PACKAGE 3 FASL::DO-OP) NIL () (LET* ((A3206 (QUOTE FASL:FASL-FIND-PACKAGE)) (A3207 (QUOTE CL:FUNCTION)) (A3208 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3206 A3207 A3208))) A3208)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 145 (QUOTE FASL:FASL-FIND-PACKAGE)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-FIND-PACKAGE) 145 FASL:*DEFAULT-OPTABLE*) FASL:FASL-SYMBOL-IN-PACKAGE D1 (L (1 OPCODE 0 STREAM)) @ @ (12Q INTERN 7 FASL::DO-OP 3 FASL::DO-OP) NIL () (LET* ((A3209 (QUOTE FASL:FASL-SYMBOL-IN-PACKAGE)) (A3210 (QUOTE CL:FUNCTION)) (A3211 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3209 A3210 A3211))) A3211)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 146 (QUOTE FASL:FASL-SYMBOL-IN-PACKAGE)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-SYMBOL-IN-PACKAGE) 146 FASL:*DEFAULT-OPTABLE*) FASL:FASL-LIST D1 (L (1 OPCODE 0 STREAM)) @d (7 FASL::COLLECT-LIST 4 FASL::DO-OP) NIL () (LET* ((A3212 (QUOTE FASL:FASL-LIST)) (A3213 (QUOTE CL:FUNCTION)) (A3214 "FASL opcode implementation") ) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3212 A3213 A3214))) A3214)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 147 (QUOTE FASL:FASL-LIST)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-LIST) 147 FASL:*DEFAULT-OPTABLE*) FASL:FASL-LIST* D1 (L (1 OPCODE 0 STREAM)) @d i (10Q FASL::COLLECT-LIST 4 FASL::DO-OP) NIL () (LET* ((A3215 (QUOTE FASL:FASL-LIST*)) (A3216 (QUOTE CL:FUNCTION)) (A3217 "FASL opcode implementation" )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3215 A3216 A3217))) A3217)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 148 (QUOTE FASL:FASL-LIST*)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-LIST*) 148 FASL:*DEFAULT-OPTABLE*) FASL:FASL-DCODE D1 (L (1 OPCODE 0 STREAM) P 24Q \INTERRUPTABLE P 23Q \INTERRUPTABLE) u@@ X@ 鄧N \過愿6瑾IJNlM澠J磚_磧_澦k剮喓嬅l牿瞥____澦Ohi瓠IOj澠O濃 _OIl O烑暷澠O蚐@ @ _"甍 澠O 澠O O"剮 k掝槥澠@ !I@ n槥@ [IKg藅`k貢@ _濃 _濃 _澠OO 澠OO偞摳頎頎誁 燈Ol Ol _燈k偫燈l偫膨#j_$p燈$j簦甓ddnn揇惁dnn揇揇嵑嵑l,媏IJl崰 @ j"O*O,hi%@ _.濃 _0澠JO.偞0 燈,k偫,膩@ j"O*O,hi%@ _.濃 _0澠JO.偞0 燈,k偫,膩@ j"O*O,hi/@ _.濃 _0澠JO.偞0d 燈0 燈,k偫,膩@ j"O*O,hi'@ _.濃 _0澠JO.偞0 燈,k偫,膩KgI I(1160Q MAKE-COMPILED-CLOSURE 1133Q FIXUP-WORD 1130Q \RESOLVE.TYPENUMBER 1113Q FASL::DO-OP 1104Q FASL::DO-OP 1061Q FASL::DO-OP 1042Q FIXUP-PTR 1037Q INTERN-DCODE 1030Q DCODE-P 1012Q FASL::DO-OP 1003Q FASL::DO-OP 760Q FASL::DO-OP 741Q FIXUP-WORD 723Q FASL::DO-OP 714Q FASL::DO-OP 671Q FASL::DO-OP 652Q FIXUP-WORD 634Q FASL::DO-OP 625Q FASL::DO-OP 602Q FASL::DO-OP 576Q FIXUP-PTR 573Q FASL::DO-OP 447Q CL:FLOOR 437Q %%= 423Q FIXUP-WORD 375Q FIXUP-WORD 361Q FASL::DO-OP 352Q FASL::DO-OP 325Q FASL::DO-OP 313Q FASL::DO-OP 267Q CEILING 172Q FASL::DO-OP 27Q \MVLIST 24Q ALLOCATE-CODE-BLOCK 16Q FASL::DO-OP 11Q FASL::DO-OP) (1152Q :FUNCTION 333Q :CLOSURE 47Q FDEV 42Q STREAM) () (LET* ((A3218 (QUOTE FASL:FASL-DCODE)) (A3219 (QUOTE CL:FUNCTION)) (A3220 "FASL opcode implementation" )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3218 A3219 A3220))) A3220)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 150 (QUOTE FASL:FASL-DCODE)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-DCODE) 150 FASL:*DEFAULT-OPTABLE*) FASL:FASL-TABLE-STORE D1 (L (1 OPCODE 0 STREAM)) @ (6 FASL::STORE-VALUE 3 FASL::DO-OP) NIL () (LET* ((A3221 (QUOTE FASL:FASL-TABLE-STORE)) (A3222 (QUOTE CL:FUNCTION)) (A3223 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3221 A3222 A3223))) A3223)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 152 (QUOTE FASL:FASL-TABLE-STORE)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-TABLE-STORE) 152 FASL:*DEFAULT-OPTABLE*) FASL:FASL-TABLE-FETCH D1 (L (1 OPCODE 0 STREAM)) @ (6 FASL::FETCH-VALUE 3 FASL::DO-OP) NIL () (LET* ((A3224 (QUOTE FASL:FASL-TABLE-FETCH)) (A3225 (QUOTE CL:FUNCTION)) (A3226 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3224 A3225 A3226))) A3226)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 153 (QUOTE FASL:FASL-TABLE-FETCH)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-TABLE-FETCH) 153 FASL:*DEFAULT-OPTABLE*) FASL:FASL-VERIFY-TABLE-SIZE D1 (L (1 OPCODE 0 STREAM) F 1 FASL::*VALUE-TABLE*) @ HQ :ggQgH (35Q CL:ERROR 13Q CL:LENGTH 3 FASL::DO-OP) (30Q :EXPECTED 24Q :TABLE 21Q FASL:INCONSISTENT-TABLE) () (LET* ((A3227 (QUOTE FASL:FASL-VERIFY-TABLE-SIZE)) (A3228 (QUOTE CL:FUNCTION)) (A3229 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3227 A3228 A3229))) A3229)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 154 (QUOTE FASL:FASL-VERIFY-TABLE-SIZE)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-VERIFY-TABLE-SIZE) 154 FASL:*DEFAULT-OPTABLE*) FASL:FASL-EVAL D1 (L (1 OPCODE 0 STREAM)) @ (6 CL:EVAL 3 FASL::DO-OP) NIL () (LET* ((A3230 (QUOTE FASL:FASL-EVAL)) (A3231 (QUOTE CL:FUNCTION)) (A3232 "FASL opcode implementation") ) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3230 A3231 A3232))) A3232)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 155 (QUOTE FASL:FASL-EVAL)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-EVAL) 155 FASL:*DEFAULT-OPTABLE*) FASL:FASL-FLOAT32 D1 (L (1 OPCODE 0 STREAM)) l@6辟HjldIHNIL (16Q FDEV 11Q STREAM) () (LET* ((A3233 (QUOTE FASL:FASL-FLOAT32)) (A3234 (QUOTE CL:FUNCTION)) (A3235 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3233 A3234 A3235))) A3235)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 132 (QUOTE FASL:FASL-FLOAT32)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-FLOAT32) 132 FASL:*DEFAULT-OPTABLE*) FASL:FASL-SETF-SYMBOL-FUNCTION D1 (L (1 OPCODE 0 STREAM)) @ @ (12Q SETF-SYMBOL-FUNCTION 7 FASL::DO-OP 3 FASL::DO-OP) NIL () (LET* ((A3236 (QUOTE FASL:FASL-SETF-SYMBOL-FUNCTION)) (A3237 (QUOTE CL:FUNCTION)) (A3238 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3236 A3237 A3238))) A3238)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 156 (QUOTE FASL:FASL-SETF-SYMBOL-FUNCTION)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-SETF-SYMBOL-FUNCTION) 156 FASL:*DEFAULT-OPTABLE*) FASL:FASL-FUNCALL D1 (L (1 OPCODE 0 STREAM)) j@ (4 FASL::DO-OP) NIL () (LET* ((A3239 (QUOTE FASL:FASL-FUNCALL)) (A3240 (QUOTE CL:FUNCTION)) (A3241 "FASL opcode implementation")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3239 A3240 A3241))) A3241)) (%%SETELT (FASL::OPTABLE-VECTOR FASL:*DEFAULT-OPTABLE*) 157 (QUOTE FASL:FASL-FUNCALL)) (FASL::ADD-OP-TRANSLATION (QUOTE FASL:FASL-FUNCALL) 157 FASL:*DEFAULT-OPTABLE*) (PUTPROPS FASL FILETYPE COMPILE-FILE) (PUTPROPS FASL COPYRIGHT ("Xerox Corporation" 1986)) NIL