; -*- Mode:TEXT -*- ; This is the UNFASL for DJ: L.SYS; QFASL.QFASL#519 (FASL-OP-VERSION-INFO (FASL-OP-PACKAGE-SYMBOL (FASL-OP-STRING "") (FASL-OP-STRING "LAMBDA") <:LAMBDA>) (FASL-OP-FIXED 2)) (FASL-OP-END-OF-WHACK) (FASL-OP-FILE-PROPERTY-LIST (FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA (FASL-OP-PACKAGE-SYMBOL (FASL-OP-STRING "") (FASL-OP-STRING "COMPILE-DATA") <:COMPILE-DATA>) (FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA (FASL-OP-STRING "keith") (FASL-OP-STRING "Djinn") (FASL-OP-FIXED 24704225550) (FASL-OP-FIXED 177) (FASL-OP-FIXED 0) (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-PACKAGE-SYMBOL (FASL-OP-STRING "COMPILER") (FASL-OP-STRING "NEW-DESTINATIONS") ) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-STRING "GLOBAL") (FASL-OP-STRING "T") ) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "SITE") <:SITE>) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "LMI") <:LMI>) => ( <:SITE> <:LMI>)) => ("keith" "Djinn" 24704225550 177 0 ( <:SITE> <:LMI>))) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "QFASL-SOURCE-FILE-UNIQUE-ID") <:QFASL-SOURCE-FILE-UNIQUE-ID>) (FASL-OP-EVAL1 (FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA (FASL-OP-PACKAGE-SYMBOL (FASL-OP-STRING "FS") (FASL-OP-STRING "MAKE-FASLOAD-PATHNAME") ) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [43] {"GLOBAL"}) (FASL-OP-STRING "QUOTE") ) (FASL-OP-STRING "DJ") => ( "DJ")) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-STRING "DSK") => ( "DSK")) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-STRING "L") (FASL-OP-STRING "SYS") => ("L" "SYS")) => ( ("L" "SYS"))) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-STRING "QFASL") => ( "QFASL")) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-STRING "LISP") => ( "LISP")) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-FIXED 1007) => ( 1007)) => ( ( "DJ") ( "DSK") ( ("L" "SYS")) ( "QFASL") ( "LISP") ( 1007))) (EVAL '( ( "DJ") ( "DSK") ( ("L" "SYS")) ( "QFASL") ( "LISP") ( 1007)))) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "COLD-LOAD") <:COLD-LOAD>) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "T") <:T>) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "BASE") <:BASE>) (FASL-OP-FIXED 10) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "PACKAGE") <:PACKAGE>) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "SYSTEM-INTERNALS") <:SYSTEM-INTERNALS>) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "READTABLE") <:READTABLE>) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "ZL") <:ZL>) => (<:COMPILE-DATA> ("keith" "Djinn" 24704225550 177 0 ( <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE ( ( "DJ") ( "DSK") ( ("L" "SYS")) ( "QFASL") ( "LISP") ( 1007)))) <:COLD-LOAD> <:T> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS> <:READTABLE> <:ZL>))) (FASL-OP-FRAME 18 PUSH ARG|0 19 PUSH FEF|6 ;':FASL-TABLE 20 (MISC) VECTOR-PUSH D-PDL 21 BR-NOT-NIL-POP 25 22 CALL D-RETURN FEF|7 ;'NIL 23 PUSH ARG|0 24 MOVE D-LAST FEF|6 ;':FASL-TABLE 25 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [109] {# 64672450>} (FASL-OP-INDEX [93] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "UNBOUND") <:UNBOUND>) (FASL-OP-STRING "Array of functions to handle fasl ops, indexed by fasl op code.") => ( <:UNBOUND> "Array of functions to handle fasl ops, indexed by fasl op code.")) (EVAL '( <:UNBOUND> "Array of functions to handle fasl ops, indexed by fasl op code."))) (FASL-OP-EVAL1 (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-LIST [64] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL ) => ( )) => ( ( ))) => ( ( ( )))) (EVAL '( ( ( ))))) (FASL-OP-EVAL1 (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-INDEX [118] {}) (FASL-OP-FIXED 0) => ( 0)) (EVAL '( 0))) (FASL-OP-FRAME 30 SET-NIL FEF|8 ;':LAST-FASL-FILE-FORMS 31 PUSH-NUMBER 100 32 PUSH FEF|7 ;':FASL-OPS 33 (MISC) LENGTH D-PDL 34 POP LOCAL|1 35 POP LOCAL|0 36 PUSH LOCAL|1 37 > LOCAL|0 38 BR-NIL 43 39 CALL D-IGNORE FEF|9 ;'NIL 40 PUSH FEF|10 ;'"Too many FASL ops defined. Limit is ~D, but ~D are defined." 41 PUSH LOCAL|0 42 MOVE D-LAST LOCAL|1 43 CALL D-PDL FEF|11 ;'NIL 44 PUSH FEF|7 ;':FASL-OPS 45 (MISC) LENGTH D-PDL 46 PUSH FEF|12 ;' 47 MOVE D-LAST FEF|13 ;'52 48 POP FEF|6 ;':FASL-GROUP-DISPATCH 49 PUSH-NUMBER 0 50 PUSH FEF|7 ;':FASL-OPS 51 PUSH FEF|7 ;':FASL-OPS 52 (MISC) LENGTH D-PDL 53 POP LOCAL|4 54 POP LOCAL|3 55 POP LOCAL|2 56 BR 63 57 PUSH FEF|6 ;':FASL-GROUP-DISPATCH 58 PUSH LOCAL|2 59 CAR D-PDL LOCAL|3 60 (MISC) SET-AR-1 D-IGNORE 61 INCF LOCAL|2 62 SETE-CDR LOCAL|3 63 PUSH LOCAL|2 64 < LOCAL|4 65 BR-NOT-NIL 57 66 MOVE D-RETURN 'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [227] {# 64677436>} (FASL-OP-INDEX [193] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [193] {}) => ()) (EVAL '())) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL <*FASL-NIBBLE-8BIT*>) (FASL-OP-INDEX [113] {<:UNBOUND>}) (FASL-OP-STRING "If T, using 8-bit bytes.") => ( <*FASL-NIBBLE-8BIT*> <:UNBOUND> "If T, using 8-bit bytes.")) (EVAL '( <*FASL-NIBBLE-8BIT*> <:UNBOUND> "If T, using 8-bit bytes."))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL <*FASL-NIBBLE-PEEK*>) (FASL-OP-INDEX [113] {<:UNBOUND>}) (FASL-OP-STRING "Holds a PEEKED fasl-nibble-from-8bit") => ( <*FASL-NIBBLE-PEEK*> <:UNBOUND> "Holds a PEEKED fasl-nibble-from-8bit")) (EVAL '( <*FASL-NIBBLE-PEEK*> <:UNBOUND> "Holds a PEEKED fasl-nibble-from-8bit"))) (FASL-OP-EVAL1 (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL <*FASL-BYTE-SIZE*>) (FASL-OP-FIXED 10) => ( <*FASL-BYTE-SIZE*> 10)) (EVAL '( <*FASL-BYTE-SIZE*> 10))) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-INDEX [97] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-SYMBOL <*READFILE-READ-FUNCTION*>) => ( <*READFILE-READ-FUNCTION*>)) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [250] {}) (FASL-OP-STRING "If non-nil a function to use instead of READ") => ( ( <*READFILE-READ-FUNCTION*>) "If non-nil a function to use instead of READ")) (EVAL '( ( <*READFILE-READ-FUNCTION*>) "If non-nil a function to use instead of READ"))) (FASL-OP-EVAL1 (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [247] {}) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-SYMBOL ) => ( )) (FASL-OP-INDEX [250] {}) (FASL-OP-STRING "If non-nil, a LIST of package names. FASLOAD only loads if (PACKAGE-ROOT-STRING) is one of these, otherwise, it forces a READFILE.") (FASL-OP-INDEX [250] {}) => ( ( ) "If non-nil, a LIST of package names. FASLOAD only loads if (PACKAGE-ROOT-STRING) is one of these, otherwise, it forces a READFILE." )) (EVAL '( ( ) "If non-nil, a LIST of package names. FASLOAD only loads if (PACKAGE-ROOT-STRING) is one of these, otherwise, it forces a READFILE." ))) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL <*FASL-STREAM-ARRAY*>) => ( <*FASL-STREAM-ARRAY*>)) (EVAL '( <*FASL-STREAM-ARRAY*>))) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL <*FASL-STREAM-INDEX*>) => ( <*FASL-STREAM-INDEX*>)) (EVAL '( <*FASL-STREAM-INDEX*>))) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL <*FASL-STREAM-COUNT*>) => ( <*FASL-STREAM-COUNT*>)) (EVAL '( <*FASL-STREAM-COUNT*>))) (FASL-OP-EVAL1 (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [250] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [250] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [113] {<:UNBOUND>}) (FASL-OP-STRING "After FASLOAD returns, holds the package the file was loaded into.") => ( <:UNBOUND> "After FASLOAD returns, holds the package the file was loaded into.")) (EVAL '( <:UNBOUND> "After FASLOAD returns, holds the package the file was loaded into."))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [113] {<:UNBOUND>}) (FASL-OP-STRING "Holds the PKG argument to FASLOAD.") => ( <:UNBOUND> "Holds the PKG argument to FASLOAD.")) (EVAL '( <:UNBOUND> "Holds the PKG argument to FASLOAD."))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [113] {<:UNBOUND>}) (FASL-OP-STRING "T within FASLOAD-INTERNAL means exit after loading the file attribute list.") => ( <:UNBOUND> "T within FASLOAD-INTERNAL means exit after loading the file attribute list.")) (EVAL '( <:UNBOUND> "T within FASLOAD-INTERNAL means exit after loading the file attribute list."))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [113] {<:UNBOUND>}) (FASL-OP-STRING "Within FASLOAD, holds attribute list of this QFASL file.") => ( <:UNBOUND> "Within FASLOAD, holds attribute list of this QFASL file.")) (EVAL '( <:UNBOUND> "Within FASLOAD, holds attribute list of this QFASL file."))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [113] {<:UNBOUND>}) (FASL-OP-STRING "Within FASLOAD, T if destination fields in fefs in this QFASL file are already converted.") => ( <:UNBOUND> "Within FASLOAD, T if destination fields in fefs in this QFASL file are already converted.")) (EVAL '( <:UNBOUND> "Within FASLOAD, T if destination fields in fefs in this QFASL file are already converted."))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [113] {<:UNBOUND>}) (FASL-OP-STRING "Within FASLOAD, T if cdr codes in fefs in this QFASL file are already converted.") => ( <:UNBOUND> "Within FASLOAD, T if cdr codes in fefs in this QFASL file are already converted.")) (EVAL '( <:UNBOUND> "Within FASLOAD, T if cdr codes in fefs in this QFASL file are already converted."))) (FASL-OP-FRAME 16 PUSH ARG|0 17 LOGAND '3 18 PUSH FEF|6 ;'( ) 19 (MISC) NTH D-PDL 20 (MISC) SYMEVAL D-RETURN ) (FASL-OP-STOREIN-FUNCTION-CELL [327] {# 64706545>} (FASL-OP-INDEX [312] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "NAME") <:NAME>) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-INDEX [328] {}) => ( )) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "REGION-SIZE") <:REGION-SIZE>) (FASL-OP-FIXED 1000000) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "READ-ONLY") <:READ-ONLY>) (FASL-OP-INDEX [45] {}) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "VOLATILITY") <:VOLATILITY>) (FASL-OP-FIXED 0) => ( <:NAME> ( ) <:REGION-SIZE> 1000000 <:READ-ONLY> <:VOLATILITY> 0)) (FASL-OP-STRING "Debugging info and documentation of FEFs goes in this area.") => ( ( <:NAME> ( ) <:REGION-SIZE> 1000000 <:READ-ONLY> <:VOLATILITY> 0) "Debugging info and documentation of FEFs goes in this area.")) (EVAL '( ( <:NAME> ( ) <:REGION-SIZE> 1000000 <:READ-ONLY> <:VOLATILITY> 0) "Debugging info and documentation of FEFs goes in this area."))) (FASL-OP-EVAL1 (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [247] {}) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-SYMBOL ) => ( )) (FASL-OP-INDEX [250] {}) (FASL-OP-INDEX [250] {}) (FASL-OP-STRING "Set by :PRINT argument to LOAD. Non-NIL means print the forms loaded.") => ( ( ) "Set by :PRINT argument to LOAD. Non-NIL means print the forms loaded.")) (EVAL '( ( ) "Set by :PRINT argument to LOAD. Non-NIL means print the forms loaded."))) (FASL-OP-EVAL1 (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [247] {}) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-SYMBOL ) => ( )) (FASL-OP-INDEX [250] {}) (FASL-OP-INDEX [250] {}) (FASL-OP-STRING "Non-NIL means FASLOAD should compute LAST-FASL-FILE-FORMS.") => ( ( ) "Non-NIL means FASLOAD should compute LAST-FASL-FILE-FORMS.")) (EVAL '( ( ) "Non-NIL means FASLOAD should compute LAST-FASL-FILE-FORMS."))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-INDEX [197] {}) (FASL-OP-INDEX [113] {<:UNBOUND>}) (FASL-OP-STRING "FASLOAD sets this to a list of forms describing the file. Only if ACCUMULATE-FASL-FORMS is non-NIL, this variable is set to a list of forms which are equivalent to what was done by loading the file.") => ( <:UNBOUND> "FASLOAD sets this to a list of forms describing the file. Only if ACCUMULATE-FASL-FORMS is non-NIL, this variable is set to a list of forms which are equivalent to what was done by loading the file.")) (EVAL '( <:UNBOUND> "FASLOAD sets this to a list of forms describing the file. Only if ACCUMULATE-FASL-FORMS is non-NIL, this variable is set to a list of forms which are equivalent to what was done by loading the file."))) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [250] {}) (FASL-OP-STRING "List of functions fasloaded which had been compiled with different macro definitions. Each element of this list looks like (USING-FUNCTION-NAME MACRO-NAME GENERIC-PATHNAME).") => ( "List of functions fasloaded which had been compiled with different macro definitions. Each element of this list looks like (USING-FUNCTION-NAME MACRO-NAME GENERIC-PATHNAME).")) (EVAL '( "List of functions fasloaded which had been compiled with different macro definitions. Each element of this list looks like (USING-FUNCTION-NAME MACRO-NAME GENERIC-PATHNAME)."))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [250] {}) (FASL-OP-STRING "List of truenames of all fasl files loaded. Files loaded by MINI are represented by strings.") => ( "List of truenames of all fasl files loaded. Files loaded by MINI are represented by strings.")) (EVAL '( "List of truenames of all fasl files loaded. Files loaded by MINI are represented by strings."))) (FASL-OP-EVAL1 (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL <*FASL-TABLE-FREE-LIST*>) (FASL-OP-INDEX [250] {}) => ( <*FASL-TABLE-FREE-LIST*> )) (EVAL '( <*FASL-TABLE-FREE-LIST*> ))) (FASL-OP-FRAME 28 PUSH 'T 29 BIND-POP FEF|6 ;':INHIBIT-SCHEDULING-FLAG 30 MOVE D-IGNORE FEF|8 ;':*FASL-TABLE-FREE-LIST* 31 BR-NOT-NIL 45 32 CALL D-PDL FEF|9 ;'NIL 33 PUSH FEF|10 ;'37773 34 PUSH FEF|11 ;' 35 PUSH-NUMBER 57 36 MOVE D-LAST '1 37 POP LOCAL|0 38 CALL D-IGNORE FEF|12 ;'NIL 39 PUSH LOCAL|0 40 MOVE D-LAST '40 41 PUSH LOCAL|0 42 PUSH FEF|8 ;':*FASL-TABLE-FREE-LIST* 43 (MISC) CONS D-PDL 44 POP FEF|8 ;':*FASL-TABLE-FREE-LIST* 45 CAR D-PDL FEF|8 ;':*FASL-TABLE-FREE-LIST* 46 POP FEF|7 ;':FASL-TABLE 47 CALL D-IGNORE FEF|12 ;'NIL 48 PUSH FEF|7 ;':FASL-TABLE 49 MOVE D-LAST '40 50 CDR D-PDL FEF|8 ;':*FASL-TABLE-FREE-LIST* 51 MOVEM FEF|8 ;':*FASL-TABLE-FREE-LIST* 52 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [390] {# 64713131>} (FASL-OP-INDEX [374] {})) (FASL-OP-FRAME 20 PUSH 'T 21 BIND-POP FEF|6 ;':INHIBIT-SCHEDULING-FLAG 22 PUSH FEF|8 ;':FASL-TABLE 23 (MISC) ARRAYP D-PDL 24 BR-NIL-POP 31 25 PUSH FEF|8 ;':FASL-TABLE 26 PUSH FEF|7 ;':*FASL-TABLE-FREE-LIST* 27 (MISC) CONS D-PDL 28 POP FEF|7 ;':*FASL-TABLE-FREE-LIST* 29 SET-NIL FEF|8 ;':FASL-TABLE 30 MOVE D-RETURN 'NIL 31 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [401] {# 64713766>} (FASL-OP-INDEX [393] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [250] {}) => ( )) (EVAL '( ))) (FASL-OP-FRAME 20 MOVE D-IGNORE FEF|6 ;':*FASL-NIBBLE-8BIT* 21 BR-NIL 23 22 CALL0 D-RETURN FEF|7 ;'NIL 23 CALL0 D-RETURN FEF|8 ;'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [423] {# 64714721>} (FASL-OP-INDEX [407] {})) (FASL-OP-FRAME 20 MOVE D-IGNORE FEF|6 ;':*FASL-NIBBLE-8BIT* 21 BR-NIL 23 22 CALL0 D-RETURN FEF|7 ;'NIL 23 CALL0 D-RETURN FEF|8 ;'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [439] {# 64717005>} (FASL-OP-INDEX [426] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-FIXED 0) => ( 0)) (EVAL '( 0))) (FASL-OP-FRAME 26 MOVE D-IGNORE FEF|9 ;':*FASL-STREAM-ARRAY* 27 BR-NIL 30 28 CALL D-IGNORE FEF|8 ;':FASL-STREAM 29 MOVE D-LAST FEF|10 ;'<:ADVANCE-INPUT-BUFFER> 30 PUSH FEF|8 ;':FASL-STREAM 31 PUSH-NUMBER 3 32 (MISC) %CALL-MULT-VALUE D-IGNORE 33 MOVE D-LAST FEF|11 ;'<:GET-INPUT-BUFFER> 34 POP FEF|6 ;':*FASL-STREAM-COUNT* 35 POP FEF|7 ;':*FASL-STREAM-INDEX* 36 MOVEM FEF|9 ;':*FASL-STREAM-ARRAY* 37 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [459] {# 64717415>} (FASL-OP-INDEX [446] {})) (FASL-OP-FRAME 22 PUSH FEF|8 ;':*FASL-STREAM-COUNT* 23 (MISC) PLUSP D-IGNORE 24 BR-NOT-NIL 26 25 CALL0 D-IGNORE FEF|9 ;'NIL 26 PUSH FEF|7 ;':*FASL-STREAM-ARRAY* 27 PUSH FEF|6 ;':*FASL-STREAM-INDEX* 28 (MISC) AR-1 D-PDL 29 INCF FEF|6 ;':*FASL-STREAM-INDEX* 30 DECF FEF|8 ;':*FASL-STREAM-COUNT* 31 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [488] {# 64717735>} (FASL-OP-INDEX [462] {})) (FASL-OP-FRAME 30 MOVE D-IGNORE FEF|11 ;':FASL-STREAM-BYPASS-P 31 BR-NIL 59 32 PUSH FEF|10 ;':*FASL-STREAM-COUNT* 33 (MISC) PLUSP D-IGNORE 34 BR-NOT-NIL 36 35 CALL0 D-IGNORE FEF|12 ;'NIL 36 PUSH FEF|9 ;':*FASL-STREAM-ARRAY* 37 PUSH FEF|8 ;':*FASL-STREAM-INDEX* 38 (MISC) AR-1 D-PDL 39 INCF FEF|8 ;':*FASL-STREAM-INDEX* 40 DECF FEF|10 ;':*FASL-STREAM-COUNT* 41 PUSH-NUMBER 10 42 PUSH-NUMBER 0 43 (MISC) DPB D-PDL 44 POP LOCAL|0 45 PUSH FEF|10 ;':*FASL-STREAM-COUNT* 46 (MISC) PLUSP D-IGNORE 47 BR-NOT-NIL 49 48 CALL0 D-IGNORE FEF|12 ;'NIL 49 PUSH FEF|9 ;':*FASL-STREAM-ARRAY* 50 PUSH FEF|8 ;':*FASL-STREAM-INDEX* 51 (MISC) AR-1 D-PDL 52 INCF FEF|8 ;':*FASL-STREAM-INDEX* 53 DECF FEF|10 ;':*FASL-STREAM-COUNT* 54 PUSH '1010 55 PUSH LOCAL|0 56 (MISC) DPB D-PDL 57 POP LOCAL|0 58 MOVE D-RETURN LOCAL|0 59 PUSH FEF|7 ;':TEST 60 + '2 61 POP FEF|7 ;':TEST 62 CALL D-PDL FEF|13 ;'NIL 63 MOVE D-LAST FEF|6 ;':FASL-STREAM 64 MOVEM LOCAL|1 65 PUSH-NUMBER 10 66 PUSH-NUMBER 0 67 (MISC) DPB D-PDL 68 POP LOCAL|0 69 CALL D-PDL FEF|13 ;'NIL 70 MOVE D-LAST FEF|6 ;':FASL-STREAM 71 MOVEM LOCAL|2 72 PUSH '1010 73 PUSH LOCAL|0 74 (MISC) DPB D-RETURN ) (FASL-OP-STOREIN-FUNCTION-CELL [508] {# 64720434>} (FASL-OP-INDEX [491] {})) (FASL-OP-FRAME 24 MOVE D-IGNORE FEF|9 ;':*FASL-NIBBLE-PEEK* 25 BR-NIL 29 26 PUSH FEF|9 ;':*FASL-NIBBLE-PEEK* 27 SET-NIL FEF|9 ;':*FASL-NIBBLE-PEEK* 28 MOVE D-RETURN PDL-POP 29 PUSH FEF|8 ;':*FASL-STREAM-COUNT* 30 > '1 31 BR-NIL 51 32 PUSH FEF|7 ;':*FASL-STREAM-ARRAY* 33 POP LOCAL|0 34 PUSH FEF|6 ;':*FASL-STREAM-INDEX* 35 POP LOCAL|1 36 PUSH LOCAL|0 37 PUSH 1+ LOCAL|1 38 (MISC) AR-1 D-PDL 39 PUSH '1010 40 PUSH LOCAL|0 41 PUSH LOCAL|1 42 (MISC) AR-1 D-PDL 43 (MISC) DPB D-PDL 44 PUSH FEF|6 ;':*FASL-STREAM-INDEX* 45 + '2 46 POP FEF|6 ;':*FASL-STREAM-INDEX* 47 PUSH FEF|8 ;':*FASL-STREAM-COUNT* 48 - '2 49 POP FEF|8 ;':*FASL-STREAM-COUNT* 50 MOVE D-RETURN PDL-POP 51 CALL0 D-RETURN FEF|10 ;'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [524] {# 64722174>} (FASL-OP-INDEX [411] {})) (FASL-OP-FRAME 18 PUSH FEF|6 ;':*FASL-NIBBLE-PEEK* 19 BR-NOT-NIL-POP 23 20 CALL0 D-PDL FEF|7 ;'NIL 21 MOVEM FEF|6 ;':*FASL-NIBBLE-PEEK* 22 MOVE D-RETURN PDL-POP 23 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [532] {# 64722602>} (FASL-OP-INDEX [430] {})) (FASL-OP-FRAME 24 MOVE D-IGNORE FEF|9 ;':*FASL-NIBBLE-PEEK* 25 BR-NIL 29 26 PUSH FEF|9 ;':*FASL-NIBBLE-PEEK* 27 SET-NIL FEF|9 ;':*FASL-NIBBLE-PEEK* 28 MOVE D-RETURN PDL-POP 29 PUSH 1- FEF|8 ;':*FASL-STREAM-COUNT* 30 MOVEM FEF|8 ;':*FASL-STREAM-COUNT* 31 (MISC) MINUSP D-IGNORE 32 BR-NOT-NIL 38 33 PUSH FEF|7 ;':*FASL-STREAM-ARRAY* 34 PUSH 1+ FEF|6 ;':*FASL-STREAM-INDEX* 35 MOVEM FEF|6 ;':*FASL-STREAM-INDEX* 36 PUSH 1- PDL-POP 37 (MISC) AR-1 D-RETURN 38 INCF FEF|8 ;':*FASL-STREAM-COUNT* 39 CALL0 D-RETURN FEF|10 ;'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [543] {# 64722752>} (FASL-OP-INDEX [412] {})) (FASL-OP-FRAME 30 MOVE D-IGNORE FEF|11 ;':*FASL-NIBBLE-PEEK* 31 BR-NIL 35 32 PUSH FEF|11 ;':*FASL-NIBBLE-PEEK* 33 SET-NIL FEF|11 ;':*FASL-NIBBLE-PEEK* 34 MOVE D-RETURN PDL-POP 35 MOVE D-IGNORE FEF|10 ;':FASL-STREAM-BYPASS-P 36 BR-NIL 47 37 PUSH FEF|9 ;':*FASL-STREAM-COUNT* 38 (MISC) PLUSP D-IGNORE 39 BR-NOT-NIL 41 40 CALL0 D-IGNORE FEF|12 ;'NIL 41 PUSH FEF|8 ;':*FASL-STREAM-ARRAY* 42 PUSH FEF|7 ;':*FASL-STREAM-INDEX* 43 (MISC) AR-1 D-PDL 44 INCF FEF|7 ;':*FASL-STREAM-INDEX* 45 DECF FEF|9 ;':*FASL-STREAM-COUNT* 46 MOVE D-RETURN PDL-POP 47 CALL D-RETURN FEF|6 ;':FASL-STREAM 48 MOVE D-LAST FEF|13 ;'<:TYI> ) (FASL-OP-STOREIN-FUNCTION-CELL [555] {# 64723303>} (FASL-OP-INDEX [538] {})) (FASL-OP-FRAME 30 MOVE D-IGNORE FEF|9 ;':FASL-STREAM-BYPASS-P 31 BR-NIL 42 32 PUSH FEF|8 ;':*FASL-NIBBLE-PEEK* 33 BR-NOT-NIL-POP 41 34 MOVE D-IGNORE FEF|7 ;':*FASL-NIBBLE-8BIT* 35 BR-NIL 38 36 CALL0 D-PDL FEF|10 ;'NIL 37 BR 39 38 CALL0 D-PDL FEF|11 ;'NIL 39 MOVEM FEF|8 ;':*FASL-NIBBLE-PEEK* 40 MOVE D-RETURN PDL-POP 41 MOVE D-RETURN PDL-POP 42 CALL D-PDL FEF|6 ;':FASL-STREAM 43 MOVE D-LAST FEF|12 ;'<:TYI> 44 POP LOCAL|0 45 CALL D-IGNORE FEF|6 ;':FASL-STREAM 46 PUSH FEF|13 ;'<:UNTYI> 47 MOVE D-LAST LOCAL|0 48 MOVE D-RETURN LOCAL|0 ) (FASL-OP-STOREIN-FUNCTION-CELL [571] {# 64723657>} (FASL-OP-INDEX [431] {})) (FASL-OP-FRAME 68 CALL D-PDL FEF|6 ;':*STANDARD-INPUT* 69 MOVE D-LAST FEF|13 ;'<:INFO> 70 POP LOCAL|0 71 CALL D-PDL FEF|6 ;':*STANDARD-INPUT* 72 MOVE D-LAST FEF|14 ;'<:PATHNAME> 73 POP LOCAL|1 74 CALL D-PDL LOCAL|1 75 MOVE D-LAST FEF|15 ;'<:GENERIC-PATHNAME> 76 POP LOCAL|2 77 PUSH FEF|7 ;':*PACKAGE* 78 BIND-POP FEF|7 ;':*PACKAGE* 79 BIND-NIL FEF|8 ;':FDEFINE-FILE-DEFINITIONS 80 PUSH LOCAL|2 81 BIND-POP FEF|9 ;':FDEFINE-FILE-PATHNAME 82 CALL D-IGNORE FEF|16 ;':FS 83 PUSH LOCAL|2 84 MOVE D-LAST FEF|6 ;':*STANDARD-INPUT* 85 PUSH FEF|17 ;':FS 86 PUSH-NUMBER 2 87 (MISC) %CALL-MULT-VALUE D-IGNORE 88 MOVE D-IGNORE ARG|1 89 BR-NIL 100 90 CALL D-PDL FEF|18 ;'NIL 91 CALL D-LAST LOCAL|2 92 MOVE D-LAST FEF|19 ;'<:PROPERTY-LIST> 93 POP LOCAL|3 94 CALL D-IGNORE FEF|20 ;'NIL 95 PUSH-ADDRESS LOCAL|3 96 MOVE D-LAST FEF|21 ;'<:PACKAGE> 97 PUSH-ADDRESS LOCAL|3 98 MOVE D-LAST PDL-POP 99 BR 101 100 MOVE D-LAST LOCAL|2 101 POP LOCAL|5 102 MOVEM LOCAL|4 103 PUSH LOCAL|5 104 POP LOCAL|7 105 POP LOCAL|6 106 MOVE D-IGNORE LOCAL|6 107 BR-NIL 119 108 CAR D-PDL LOCAL|6 109 (MISC) VALUE-CELL-LOCATION D-PDL 110 CAR D-PDL LOCAL|7 111 (MISC) %BIND D-IGNORE 112 MOVE D-IGNORE LOCAL|7 113 BR-NOT-NIL 116 114 CALL D-IGNORE FEF|22 ;'NIL 115 CAR D-LAST LOCAL|6 116 SETE-CDR LOCAL|6 117 SETE-CDR LOCAL|7 118 BR 106 119 MOVE D-IGNORE ARG|1 120 BR-NIL 127 121 CALL D-PDL FEF|23 ;'NIL 122 PUSH ARG|1 123 PUSH 'NIL 124 MOVE D-LAST FEF|7 ;':*PACKAGE* 125 POP FEF|7 ;':*PACKAGE* 126 BR 134 127 MOVE D-IGNORE ARG|2 128 BR-NOT-NIL 134 129 CALL D-IGNORE FEF|24 ;'NIL 130 PUSH FEF|12 ;':*QUERY-IO* 131 PUSH FEF|25 ;'"~&Loading ~A into package ~A~%" 132 PUSH LOCAL|1 133 MOVE D-LAST FEF|7 ;':*PACKAGE* 134 PUSH FEF|26 ;'() 135 PUSH FEF|7 ;':*PACKAGE* 136 SET-NIL LOCAL|9 137 BIND-POP FEF|7 ;':*PACKAGE* 138 POP LOCAL|8 139 BR 147 140 MOVE D-IGNORE FEF|11 ;':PRINT-LOADED-FORMS 141 BR-NIL 145 142 CALL D-IGNORE FEF|27 ;'NIL 143 CALL D-LAST FEF|28 ;'NIL 144 BR 146 145 CALL D-IGNORE FEF|28 ;'NIL 146 MOVE D-LAST LOCAL|9 147 PUSH FEF|10 ;':*READFILE-READ-FUNCTION* 148 BR-NOT-NIL-POP 150 149 PUSH FEF|29 ;'NIL 150 CALL D-PDL PDL-POP 151 PUSH FEF|6 ;':*STANDARD-INPUT* 152 MOVE D-LAST LOCAL|8 153 MOVEM LOCAL|9 154 EQ LOCAL|8 155 BR-NIL 140 156 (MISC) UNBIND 1 binding 157 CALL D-IGNORE FEF|30 ;'NIL 158 PUSH LOCAL|1 159 PUSH LOCAL|0 160 MOVE D-LAST FEF|7 ;':*PACKAGE* 161 CALL D-IGNORE FEF|31 ;'NIL 162 PUSH LOCAL|1 163 CALL D-LAST FEF|32 ;'NIL 164 MOVE D-LAST FEF|8 ;':FDEFINE-FILE-DEFINITIONS 165 MOVE D-RETURN LOCAL|1 ) (FASL-OP-STOREIN-FUNCTION-CELL [640] {# 64724215>} (FASL-OP-INDEX [574] {})) (FASL-OP-FRAME 44 CALL D-PDL FEF|8 ;':FS 45 PUSH ARG|0 46 PUSH FEF|7 ;':LOAD-PATHNAME-DEFAULTS 47 MOVE D-LAST 'NIL 48 POP LOCAL|0 49 CALL D-PDL FEF|9 ;'NIL 50 MOVE D-LAST LOCAL|0 51 POP LOCAL|1 52 PUSH FEF|10 ;'<:ABORT> 53 POP LOCAL|3 54 PUSH-NUMBER 117 55 PUSH-NUMBER 4 56 (MISC) %CATCH-OPEN-MV D-IGNORE 57 PUSH 'T 58 CALL D-PDL FEF|12 ;'NIL 59 CALL D-PDL FEF|13 ;':FS 60 PUSH ARG|0 61 PUSH FEF|7 ;':LOAD-PATHNAME-DEFAULTS 62 MOVE D-LAST LOCAL|1 63 PUSH FEF|14 ;'<:DIRECTION> 64 PUSH FEF|15 ;'<:INPUT> 65 PUSH FEF|16 ;'<:CHARACTERS> 66 PUSH 'NIL 67 PUSH FEF|17 ;'<:BYTE-SIZE> 68 MOVE D-LAST FEF|6 ;':*FASL-BYTE-SIZE* 69 MOVEM LOCAL|2 70 POP LOCAL|4 71 PUSH FEF|18 ;'NIL 72 PUSH 'T 73 (MISC) %CALL-MULT-VALUE D-PDL 74 PUSH LOCAL|4 75 PUSH ARG|1 76 MOVE D-LAST ARG|2 77 SET-NIL LOCAL|3 78 MOVE D-RETURN PDL-POP 79 MOVE D-IGNORE LOCAL|2 80 BR-NIL 87 81 CALL D-IGNORE FEF|19 ;'NIL 82 MOVE D-LAST LOCAL|2 83 BR-NOT-NIL 87 84 CALL D-IGNORE LOCAL|2 85 PUSH FEF|20 ;'<:CLOSE> 86 MOVE D-LAST LOCAL|3 87 (MISC) %UNWIND-PROTECT-CONTINUE D-RETURN ) (FASL-OP-STOREIN-FUNCTION-CELL [695] {# 64726355>} (FASL-OP-INDEX [643] {})) (FASL-OP-FRAME 194 CALL D-PDL FEF|6 ;':FASL-STREAM 195 MOVE D-LAST FEF|31 ;'<:PATHNAME> 196 POP LOCAL|0 197 CALL D-PDL FEF|6 ;':FASL-STREAM 198 PUSH FEF|32 ;'<:SEND-IF-HANDLES> 199 PUSH FEF|33 ;'<:BYTE-SIZE> 200 PUSH 'NIL 201 (MISC) %SPREAD D-LAST 202 BR-NOT-NIL-POP 206 203 CALL D-PDL FEF|6 ;':FASL-STREAM 204 PUSH FEF|34 ;'<:GET> 205 MOVE D-LAST FEF|33 ;'<:BYTE-SIZE> 206 POP LOCAL|1 207 BIND-NIL FEF|7 ;':*FASL-NIBBLE-PEEK* 208 PUSH LOCAL|1 209 EQ '10 210 BR-NIL 213 211 PUSH 'T 212 BR 224 213 PUSH LOCAL|1 214 EQ '20 215 BR-NIL 218 216 PUSH 'NIL 217 BR 224 218 CALL D-PDL FEF|35 ;'NIL 219 PUSH 'NIL 220 PUSH FEF|36 ;' 221 PUSH FEF|37 ;' 222 PUSH LOCAL|1 223 MOVE D-LAST FEF|38 ;'( 10 20) 224 BIND-POP FEF|8 ;':*FASL-NIBBLE-8BIT* 225 PUSH LOCAL|0 226 (MISC) STRINGP D-IGNORE 227 BR-NIL 230 228 PUSH LOCAL|0 229 BR 232 230 CALL D-PDL LOCAL|0 231 MOVE D-LAST FEF|39 ;'<:GENERIC-PATHNAME> 232 BIND-POP FEF|9 ;':FDEFINE-FILE-PATHNAME 233 BIND-NIL FEF|10 ;':PATCH-SOURCE-FILE-NAMESTRING 234 BIND-NIL FEF|11 ;':FDEFINE-FILE-DEFINITIONS 235 CALL D-PDL FEF|6 ;':FASL-STREAM 236 MOVE D-LAST FEF|39 ;'<:GENERIC-PATHNAME> 237 BIND-POP FEF|12 ;':FASL-GENERIC-PLIST-RECEIVER 238 CALL D-PDL FEF|6 ;':FASL-STREAM 239 MOVE D-LAST FEF|40 ;'<:INFO> 240 POP LOCAL|2 241 CALL D-PDL FEF|6 ;':FASL-STREAM 242 PUSH FEF|41 ;'<:OPERATION-HANDLED-P> 243 MOVE D-LAST FEF|42 ;'<:GET-INPUT-BUFFER> 244 BIND-POP FEF|13 ;':FASL-STREAM-BYPASS-P 245 BIND-NIL FEF|14 ;':*FASL-STREAM-ARRAY* 246 BIND-NIL FEF|15 ;':*FASL-STREAM-INDEX* 247 PUSH-NUMBER 0 248 BIND-POP FEF|16 ;':*FASL-STREAM-COUNT* 249 BIND-NIL FEF|17 ;':FASLOAD-FILE-PROPERTY-LIST-FLAG 250 PUSH ARG|1 251 BIND-POP FEF|18 ;':FASL-PACKAGE-SPECIFIED 252 BIND-NIL FEF|19 ;':FASL-FILE-EVALUATIONS 253 BIND-NIL FEF|20 ;':FASL-FILE-PLIST 254 BIND-NIL FEF|21 ;':FASL-INTERNAL-VERSION 255 BIND-NIL FEF|22 ;':DONT-CONVERT-DESTINATIONS 256 BIND-NIL FEF|23 ;':DONT-CONVERT-CDR-CODES 257 BIND-NIL FEF|24 ;':FASL-TABLE 258 CALL0 D-IGNORE FEF|43 ;'NIL 259 CALL D-PDL FEF|6 ;':FASL-STREAM 260 MOVE D-LAST FEF|40 ;'<:INFO> 261 CAR D-PDL PDL-POP 262 PUSH FEF|30 ;':FASLOADED-FILE-TRUENAMES 263 (MISC) CONS D-PDL 264 POP FEF|30 ;':FASLOADED-FILE-TRUENAMES 265 MOVE D-IGNORE FEF|8 ;':*FASL-NIBBLE-8BIT* 266 BR-NIL 269 267 CALL0 D-PDL FEF|44 ;'NIL 268 BR 270 269 CALL0 D-PDL FEF|45 ;'NIL 270 BR-NOT-NIL-POP 272 271 PUSH-NUMBER 0 272 MOVE D-IGNORE FEF|8 ;':*FASL-NIBBLE-8BIT* 273 BR-NIL 276 274 CALL0 D-PDL FEF|44 ;'NIL 275 BR 277 276 CALL0 D-PDL FEF|45 ;'NIL 277 BR-NOT-NIL-POP 279 278 PUSH-NUMBER 0 279 POP LOCAL|4 280 MOVEM LOCAL|3 281 = FEF|46 ;'143150 282 BR-NIL 286 283 PUSH LOCAL|4 284 = FEF|47 ;'71660 285 BR-NOT-NIL 289 286 CALL D-IGNORE FEF|48 ;'NIL 287 PUSH FEF|49 ;'"~A is not a QFASL file" 288 MOVE D-LAST LOCAL|0 289 MOVE D-IGNORE FEF|8 ;':*FASL-NIBBLE-8BIT* 290 BR-NIL 293 291 CALL0 D-PDL FEF|50 ;'NIL 292 BR 294 293 CALL0 D-PDL FEF|51 ;'NIL 294 LOGAND FEF|52 ;'77 295 = FEF|29 ;':FASL-OP-VERSION-INFO 296 BR-NIL 299 297 CALL0 D-IGNORE FEF|53 ;'NIL 298 CALL0 D-IGNORE FEF|54 ;'NIL 299 CALL D-IGNORE FEF|12 ;':FASL-GENERIC-PLIST-RECEIVER 300 PUSH FEF|55 ;'<:REMPROP> 301 MOVE D-LAST FEF|56 ;'<:MACROS-EXPANDED> 302 MOVE D-IGNORE FEF|8 ;':*FASL-NIBBLE-8BIT* 303 BR-NIL 306 304 CALL0 D-PDL FEF|50 ;'NIL 305 BR 307 306 CALL0 D-PDL FEF|51 ;'NIL 307 LOGAND FEF|52 ;'77 308 = FEF|57 ;'62 309 BR-NIL 378 310 CALL0 D-IGNORE FEF|58 ;'NIL 311 PUSH FEF|59 ;' 312 (MISC) %EXTERNAL-VALUE-CELL D-PDL 313 PUSH FEF|60 ;'<:COMPILE-IN-ROOTS> 314 (MISC) INTERNAL-GET-2 D-PDL 315 POP LOCAL|5 316 BR-NIL 339 317 CALL D-IGNORE FEF|61 ;':LISP 318 CALL D-PDL FEF|62 ;'NIL 319 MOVE D-IGNORE ARG|1 320 BR-NIL 323 321 MOVE D-LAST ARG|1 322 BR 324 323 MOVE D-LAST FEF|25 ;':*PACKAGE* 324 PUSH LOCAL|5 325 PUSH FEF|63 ;'<:TEST> 326 MOVE D-LAST FEF|64 ;' 327 BR-NOT-NIL 339 328 CALL D-IGNORE FEF|65 ;'NIL 329 MOVE D-LAST FEF|6 ;':FASL-STREAM 330 CALL D-RETURN FEF|66 ;'NIL 331 CALL D-PDL FEF|67 ;':FS 332 CALL D-PDL LOCAL|0 333 PUSH FEF|68 ;'<:NEW-TYPE> 334 MOVE D-LAST FEF|69 ;'<:UNSPECIFIED> 335 PUSH 'NIL 336 MOVE D-LAST FEF|70 ;'<:LISP> 337 PUSH ARG|1 338 MOVE D-LAST ARG|2 339 PUSH FEF|59 ;' 340 (MISC) %EXTERNAL-VALUE-CELL D-PDL 341 PUSH FEF|71 ;'<:FASD-DATA> 342 (MISC) INTERNAL-GET-2 D-PDL 343 BR-NOT-NIL-POP 348 344 PUSH FEF|59 ;' 345 (MISC) %EXTERNAL-VALUE-CELL D-PDL 346 PUSH FEF|72 ;'<:COMPILE-DATA> 347 (MISC) INTERNAL-GET-2 D-PDL 348 POP LOCAL|6 349 CDDR D-PDL LOCAL|6 350 (MISC) CADDDR D-PDL 351 POP LOCAL|7 352 PUSH LOCAL|6 353 (MISC) CADDDR D-PDL 354 POP LOCAL|8 355 BR-NIL 363 356 PUSH LOCAL|8 357 < FEF|73 ;'142 358 BR-NIL 363 359 CALL D-IGNORE FEF|74 ;'NIL 360 PUSH FEF|75 ;'"Try to load it anyway" 361 PUSH FEF|76 ;'"~This QFASL file was written from system version ~D~%~ and may be dangerous to load into this system.~" 362 MOVE D-LAST LOCAL|8 363 MOVE D-IGNORE LOCAL|7 364 BR-NIL 378 365 PUSH LOCAL|8 366 > FEF|73 ;'142 367 BR-NIL 370 368 PUSH 'T 369 BR 373 370 PUSH-ADDRESS LOCAL|7 371 PUSH FEF|77 ;' 372 (MISC) INTERNAL-GET-2 D-PDL 373 POP FEF|22 ;':DONT-CONVERT-DESTINATIONS 374 PUSH-ADDRESS LOCAL|7 375 PUSH FEF|78 ;' 376 (MISC) INTERNAL-GET-2 D-PDL 377 POP FEF|23 ;':DONT-CONVERT-CDR-CODES 378 PUSH LOCAL|0 379 (MISC) STRINGP D-IGNORE 380 BR-NOT-NIL 398 381 PUSH FEF|79 ;':FS 382 PUSH-NUMBER 2 383 (MISC) %CALL-MULT-VALUE D-IGNORE 384 MOVE D-IGNORE ARG|1 385 BR-NIL 396 386 CALL D-PDL FEF|80 ;'NIL 387 CALL D-LAST FEF|9 ;':FDEFINE-FILE-PATHNAME 388 MOVE D-LAST FEF|81 ;'<:PROPERTY-LIST> 389 POP LOCAL|9 390 CALL D-IGNORE FEF|82 ;'NIL 391 PUSH-ADDRESS LOCAL|9 392 MOVE D-LAST FEF|83 ;'<:PACKAGE> 393 PUSH-ADDRESS LOCAL|9 394 MOVE D-LAST PDL-POP 395 BR 400 396 MOVE D-LAST FEF|9 ;':FDEFINE-FILE-PATHNAME 397 BR 400 398 PUSH 'NIL 399 PUSH 'NIL 400 POP LOCAL|11 401 MOVEM LOCAL|10 402 PUSH LOCAL|11 403 POP LOCAL|13 404 POP LOCAL|12 405 (MISC) SPECIAL-PDL-INDEX D-PDL 406 MOVE D-IGNORE LOCAL|12 407 BR-NIL 419 408 CAR D-PDL LOCAL|12 409 (MISC) VALUE-CELL-LOCATION D-PDL 410 CAR D-PDL LOCAL|13 411 (MISC) %BIND D-IGNORE 412 MOVE D-IGNORE LOCAL|13 413 BR-NOT-NIL 416 414 CALL D-IGNORE FEF|84 ;'NIL 415 CAR D-LAST LOCAL|12 416 SETE-CDR LOCAL|12 417 SETE-CDR LOCAL|13 418 BR 406 419 CALL D-PDL FEF|85 ;'NIL 420 PUSH ARG|1 421 BR-NOT-NIL-POP 423 422 PUSH FEF|25 ;':*PACKAGE* 423 MOVE D-LAST FEF|86 ;'<:ASK> 424 BIND-POP FEF|25 ;':*PACKAGE* 425 PUSH FEF|25 ;':*PACKAGE* 426 BIND-POP FEF|25 ;':*PACKAGE* 427 MOVE D-IGNORE ARG|1 428 BR-NOT-NIL 444 429 MOVE D-IGNORE FEF|8 ;':*FASL-NIBBLE-8BIT* 430 BR-NIL 433 431 CALL0 D-PDL FEF|50 ;'NIL 432 BR 434 433 CALL0 D-PDL FEF|51 ;'NIL 434 LOGAND FEF|52 ;'77 435 = FEF|87 ;'63 436 BR-NOT-NIL 444 437 MOVE D-IGNORE ARG|2 438 BR-NOT-NIL 444 439 CALL D-IGNORE FEF|88 ;'NIL 440 PUSH FEF|28 ;':*QUERY-IO* 441 PUSH FEF|89 ;'"~&Loading ~A into package ~A~%" 442 PUSH LOCAL|0 443 MOVE D-LAST FEF|25 ;':*PACKAGE* 444 PUSH FEF|25 ;':*PACKAGE* 445 POP FEF|27 ;':LAST-FASL-FILE-PACKAGE 446 CALL0 D-IGNORE FEF|90 ;'NIL 447 (MISC) UNBIND 1 binding 448 CALL D-IGNORE FEF|12 ;':FASL-GENERIC-PLIST-RECEIVER 449 PUSH FEF|91 ;'<:PUTPROP> 450 PUSH FEF|19 ;':FASL-FILE-EVALUATIONS 451 MOVE D-LAST FEF|92 ;'<:RANDOM-FORMS> 452 CALL D-IGNORE FEF|93 ;'NIL 453 PUSH LOCAL|0 454 CALL D-PDL FEF|94 ;'NIL 455 MOVE D-LAST FEF|11 ;':FDEFINE-FILE-DEFINITIONS 456 PUSH 'T 457 MOVE D-LAST FEF|12 ;':FASL-GENERIC-PLIST-RECEIVER 458 CALL D-IGNORE FEF|95 ;'NIL 459 PUSH LOCAL|0 460 PUSH LOCAL|2 461 MOVE D-LAST FEF|25 ;':*PACKAGE* 462 (MISC) UNBIND 1 binding 463 (MISC) UNBIND-TO-INDEX D-IGNORE 464 SET-NIL FEF|14 ;':*FASL-STREAM-ARRAY* 465 CALL D-PDL FEF|94 ;'NIL 466 MOVE D-LAST FEF|26 ;':LAST-FASL-FILE-FORMS 467 POP FEF|26 ;':LAST-FASL-FILE-FORMS 468 MOVE D-RETURN LOCAL|0 ) (FASL-OP-STOREIN-FUNCTION-CELL [794] {# 64730417>} (FASL-OP-INDEX [666] {})) (FASL-OP-FRAME 36 PUSH FEF|7 ;'<:ABORT> 37 POP LOCAL|1 38 PUSH-NUMBER 72 39 PUSH-NUMBER 4 40 (MISC) %CATCH-OPEN-MV D-IGNORE 41 PUSH 'T 42 CALL D-PDL FEF|9 ;'NIL 43 PUSH ARG|0 44 PUSH FEF|10 ;'<:DIRECTION> 45 PUSH FEF|11 ;'<:INPUT> 46 PUSH FEF|12 ;'<:CHARACTERS> 47 PUSH 'NIL 48 PUSH FEF|13 ;'<:BYTE-SIZE> 49 MOVE D-LAST FEF|6 ;':*FASL-BYTE-SIZE* 50 MOVEM LOCAL|0 51 POP LOCAL|2 52 PUSH FEF|14 ;'NIL 53 PUSH 'T 54 (MISC) %CALL-MULT-VALUE D-PDL 55 MOVE D-LAST LOCAL|2 56 SET-NIL LOCAL|1 57 MOVE D-RETURN PDL-POP 58 MOVE D-IGNORE LOCAL|0 59 BR-NIL 66 60 CALL D-IGNORE FEF|15 ;'NIL 61 MOVE D-LAST LOCAL|0 62 BR-NOT-NIL 66 63 CALL D-IGNORE LOCAL|0 64 PUSH FEF|16 ;'<:CLOSE> 65 MOVE D-LAST LOCAL|1 66 (MISC) %UNWIND-PROTECT-CONTINUE D-RETURN ) (FASL-OP-STOREIN-FUNCTION-CELL [817] {# 64743153>} (FASL-OP-INDEX [797] {})) (FASL-OP-FRAME 92 CALL D-PDL FEF|17 ;'NIL 93 MOVE D-LAST FEF|18 ;' 94 CALL D-PDL FEF|6 ;':FASL-STREAM 95 PUSH FEF|19 ;'<:OPERATION-HANDLED-P> 96 MOVE D-LAST FEF|20 ;'<:GET-INPUT-BUFFER> 97 PUSH-NUMBER 0 98 CALL D-PDL FEF|6 ;':FASL-STREAM 99 PUSH FEF|21 ;'<:SEND-IF-HANDLES> 100 PUSH FEF|22 ;'<:BYTE-SIZE> 101 PUSH 'NIL 102 (MISC) %SPREAD D-LAST 103 BR-NOT-NIL-POP 107 104 CALL D-PDL FEF|6 ;':FASL-STREAM 105 PUSH FEF|23 ;'<:GET> 106 MOVE D-LAST FEF|22 ;'<:BYTE-SIZE> 107 MOVEM LOCAL|0 108 EQ '10 109 BR-NIL 112 110 PUSH 'T 111 BR 123 112 PUSH LOCAL|0 113 EQ '20 114 BR-NIL 117 115 PUSH 'NIL 116 BR 123 117 CALL D-PDL FEF|24 ;'NIL 118 PUSH 'NIL 119 PUSH FEF|25 ;' 120 PUSH FEF|26 ;'( ( <:BYTE-SIZE>) ( <:GET> <:BYTE-SIZE>)) 121 PUSH LOCAL|0 122 MOVE D-LAST FEF|27 ;'( 10 20) 123 BIND-NIL FEF|15 ;':FASL-TABLE 124 BIND-NIL FEF|14 ;':FASLOAD-FILE-PROPERTY-LIST-FLAG 125 BIND-POP FEF|13 ;':*FASL-NIBBLE-8BIT* 126 BIND-NIL FEF|12 ;':*FASL-NIBBLE-PEEK* 127 BIND-POP FEF|11 ;':*FASL-STREAM-COUNT* 128 BIND-NIL FEF|10 ;':*FASL-STREAM-INDEX* 129 BIND-NIL FEF|9 ;':*FASL-STREAM-ARRAY* 130 BIND-POP FEF|8 ;':FASL-STREAM-BYPASS-P 131 BIND-POP FEF|7 ;':FASL-GENERIC-PLIST-RECEIVER 132 CALL0 D-IGNORE FEF|28 ;'NIL 133 MOVE D-IGNORE FEF|13 ;':*FASL-NIBBLE-8BIT* 134 BR-NIL 137 135 CALL0 D-PDL FEF|29 ;'NIL 136 BR 138 137 CALL0 D-PDL FEF|30 ;'NIL 138 MOVE D-IGNORE FEF|13 ;':*FASL-NIBBLE-8BIT* 139 BR-NIL 142 140 CALL0 D-PDL FEF|29 ;'NIL 141 BR 143 142 CALL0 D-PDL FEF|30 ;'NIL 143 POP LOCAL|2 144 MOVEM LOCAL|1 145 = FEF|31 ;'143150 146 BR-NIL 150 147 PUSH LOCAL|2 148 = FEF|32 ;'71660 149 BR-NOT-NIL 154 150 CALL D-IGNORE FEF|33 ;'NIL 151 PUSH FEF|34 ;'"~A is not a QFASL file" 152 CALL D-LAST FEF|6 ;':FASL-STREAM 153 MOVE D-LAST FEF|35 ;'<:PATHNAME> 154 MOVE D-IGNORE FEF|13 ;':*FASL-NIBBLE-8BIT* 155 BR-NIL 158 156 CALL0 D-PDL FEF|36 ;'NIL 157 BR 159 158 CALL0 D-PDL FEF|37 ;'NIL 159 LOGAND FEF|38 ;'77 160 = FEF|16 ;':FASL-OP-VERSION-INFO 161 BR-NIL 164 162 CALL0 D-IGNORE FEF|39 ;'NIL 163 CALL0 D-IGNORE FEF|40 ;'NIL 164 MOVE D-IGNORE FEF|13 ;':*FASL-NIBBLE-8BIT* 165 BR-NIL 168 166 CALL0 D-PDL FEF|36 ;'NIL 167 BR 169 168 CALL0 D-PDL FEF|37 ;'NIL 169 LOGAND FEF|38 ;'77 170 = FEF|41 ;'62 171 BR-NIL 173 172 CALL0 D-IGNORE FEF|42 ;'NIL 173 CALL0 D-IGNORE FEF|43 ;'NIL 174 CALL D-RETURN FEF|7 ;':FASL-GENERIC-PLIST-RECEIVER 175 MOVE D-LAST FEF|44 ;'<:PROPERTY-LIST> ) (FASL-OP-STOREIN-FUNCTION-CELL [850] {# 64743562>} (FASL-OP-INDEX [802] {})) (FASL-OP-FRAME Arg 0 (NIL) is required, local, not initialized. Arg 1 (NIL) is required, local, not initialized. Arg 2 (NIL) is optional, local, initialized to '. Arg 3 (NIL) is optional, local, initialized to NIL. Local 0 (NIL) is special, initialized to the contents of #. 154 MOVE D-IGNORE ARG|3 155 BR-NOT-NIL 165 156 PUSH ARG|0 157 (MISC) %DATA-TYPE D-PDL 158 EQ FEF|36 ;'27 159 BR-NIL 163 160 CALL D-PDL ARG|0 161 MOVE D-LAST FEF|37 ;'<:GENERIC-PATHNAME> 162 BR 164 163 PUSH FEF|38 ;' 164 POP ARG|3 165 PUSH FEF|12 ;':*PACKAGE* 166 CALL D-PDL ARG|3 167 PUSH FEF|39 ;'<:GET> 168 MOVE D-LAST FEF|40 ;'<:DEFINITIONS> 169 (MISC) ASSQ D-PDL 170 POP LOCAL|1 171 CDR D-PDL LOCAL|1 172 POP LOCAL|2 173 PUSH FEF|41 ;'<*UNANALYZED-FILES*> 174 (MISC) BOUNDP D-IGNORE 175 BR-NOT-NIL 177 176 SET-NIL FEF|11 ;':*UNANALYZED-FILES* 177 PUSH ARG|3 178 PUSH FEF|11 ;':*UNANALYZED-FILES* 179 (MISC) MEMQ D-IGNORE 180 BR-NOT-NIL 186 181 CALL D-PDL FEF|42 ;'NIL 182 PUSH ARG|3 183 PUSH FEF|11 ;':*UNANALYZED-FILES* 184 (MISC) CONS D-LAST 185 POP FEF|11 ;':*UNANALYZED-FILES* 186 MOVE D-IGNORE ARG|2 187 BR-NOT-NIL 191 188 CALL D-PDL FEF|43 ;'NIL 189 PUSH LOCAL|2 190 BR 192 191 CALL D-PDL FEF|44 ;'NIL 192 MOVE D-LAST ARG|1 193 POP ARG|1 194 MOVE D-IGNORE LOCAL|1 195 BR-NIL 200 196 PUSH LOCAL|1 197 PUSH ARG|1 198 (MISC) SETCDR D-IGNORE 199 BR 206 200 CALL D-IGNORE ARG|3 201 PUSH FEF|45 ;'<:PUSH-PROPERTY> 202 PUSH FEF|12 ;':*PACKAGE* 203 PUSH ARG|1 204 (MISC) CONS D-PDL 205 MOVE D-LAST FEF|40 ;'<:DEFINITIONS> 206 MOVE D-IGNORE ARG|2 207 BR-NOT-NIL 209 208 MOVE D-RETURN 'NIL 209 PUSH ARG|1 210 POP LOCAL|4 211 BR-NIL 218 212 PUSH LOCAL|4 213 CALL D-PDL FEF|42 ;'NIL 214 CAR D-LAST LOCAL|4 215 (MISC) SETCAR D-IGNORE 216 SETE-CDR LOCAL|4 217 BR-NOT-NIL 212 218 CALL D-IGNORE ARG|3 219 PUSH FEF|39 ;'<:GET> 220 MOVE D-LAST FEF|46 ;'<:PATCH-FILE> 221 BR-NIL 223 222 MOVE D-RETURN 'NIL 223 PUSH LOCAL|2 224 SET-NIL LOCAL|6 225 POP LOCAL|5 226 BR-NIL 354 227 CAR D-PDL LOCAL|5 228 POP LOCAL|6 229 BR-ATOM 352 230 CDR D-PDL LOCAL|6 231 EQ FEF|47 ;' 232 BR-NIL 352 233 CAR D-PDL LOCAL|6 234 POP LOCAL|3 235 BR-NIL 352 236 BR-ATOM 352 237 CAR D-PDL LOCAL|3 238 EQ FEF|48 ;'<:METHOD> 239 BR-NIL 352 240 PUSH LOCAL|3 241 (MISC) LENGTH D-PDL 242 = '3 243 BR-NOT-NIL 249 244 PUSH LOCAL|3 245 (MISC) CADDR D-PDL 246 PUSH FEF|49 ;'(<:COMBINED> ) 247 (MISC) MEMQ D-IGNORE 248 BR-NOT-NIL 352 249 PUSH LOCAL|6 250 PUSH ARG|1 251 (MISC) MEMBER D-IGNORE 252 BR-NOT-NIL 352 253 CALL D-IGNORE FEF|50 ;'NIL 254 MOVE D-LAST LOCAL|3 255 BR-NIL 352 256 PUSH FEF|51 ;'NIL 257 PUSH-NUMBER 2 258 (MISC) %CALL-MULT-VALUE D-IGNORE 259 MOVE D-LAST LOCAL|3 260 POP LOCAL|8 261 MOVEM LOCAL|7 262 PUSH LOCAL|8 263 (MISC) CONS D-PDL 264 PUSH ARG|1 265 (MISC) MEMBER D-PDL 266 (MISC) NOT D-IGNORE 267 BR-NIL 352 268 PUSH FEF|47 ;' 269 CALL D-PDL FEF|52 ;'NIL 270 MOVE D-LAST LOCAL|3 271 (MISC) ASSQ D-PDL 272 CDR D-PDL PDL-POP 273 MOVEM LOCAL|9 274 POP LOCAL|10 275 BR 277 276 SETE-CDR LOCAL|10 277 BR-NIL 283 278 CAR D-PDL LOCAL|10 279 CALL D-IGNORE PDL-POP 280 PUSH FEF|39 ;'<:GET> 281 MOVE D-LAST FEF|46 ;'<:PATCH-FILE> 282 BR-NOT-NIL 276 283 CAR D-PDL LOCAL|10 284 EQ ARG|3 285 BR-NIL 352 286 PUSH LOCAL|9 287 EQ LOCAL|10 288 BR-NIL 295 289 CALL D-IGNORE FEF|53 ;'NIL 290 PUSH FEF|10 ;':*QUERY-IO* 291 PUSH FEF|54 ;'"~&File ~A no longer contains a definition of ~S.~%" 292 PUSH ARG|0 293 MOVE D-LAST LOCAL|3 294 BR 303 295 CALL D-IGNORE FEF|53 ;'NIL 296 PUSH FEF|10 ;':*QUERY-IO* 297 PUSH FEF|55 ;'"~&File ~A no longer contains a definition of ~S. It was more recently redefined by patch file ~A, but no other non-patch file.~%" 298 PUSH ARG|0 299 PUSH LOCAL|3 300 CAR D-PDL LOCAL|9 301 CALL D-LAST PDL-POP 302 MOVE D-LAST FEF|56 ;'<:SOURCE-PATHNAME> 303 CALL D-PDL FEF|57 ;'NIL 304 PUSH FEF|58 ;'"WITH-TIMEOUT" 305 PUSH FEF|59 ;' 306 PUSH FEF|60 ;'7020 307 MOVE D-LAST FEF|9 ;':CURRENT-PROCESS 308 POP LOCAL|11 309 PUSH-NUMBER 520 310 (MISC) %CATCH-OPEN D-PDL 311 PUSH FEF|62 ;' 312 PUSH FEF|63 ;' 313 PUSH FEF|64 ;' 314 PUSH FEF|62 ;' 315 PUSH-NUMBER 3 316 (MISC) %INTERNAL-LIST D-PDL 317 MOVEM LOCAL|12 318 PUSH FEF|7 ;':CONDITION-HANDLERS 319 PUSH-NUMBER 2 320 (MISC) %INTERNAL-LIST* D-PDL 321 MOVEM LOCAL|13 322 BIND-POP FEF|7 ;':CONDITION-HANDLERS 323 PUSH-NUMBER 511 324 PUSH-NUMBER 4 325 (MISC) %CATCH-OPEN-MV D-IGNORE 326 PUSH 'T 327 CALL D-LAST FEF|66 ;'NIL 328 MOVE D-LAST FEF|67 ;'"Undefine it? (60 sec timeout for Yes) " 329 CALL D-IGNORE LOCAL|11 330 MOVE D-LAST FEF|68 ;'<:KILL> 331 (MISC) %UNWIND-PROTECT-CONTINUE D-PDL 332 (MISC) UNBIND 1 binding 333 PUSH-NUMBER 11 334 (MISC) SHRINK-PDL-SAVE-TOP D-PDL 335 BR 346 336 POP LOCAL|13 337 PUSH FEF|63 ;' 338 CALL D-PDL LOCAL|13 339 MOVE D-LAST FEF|69 ;'<:CONDITION-NAMES> 340 (MISC) MEMQ D-PDL 341 BR-NIL-POP 346 342 CALL D-IGNORE FEF|53 ;'NIL 343 PUSH FEF|10 ;':*QUERY-IO* 344 MOVE D-LAST FEF|70 ;'" ... Yes by timeout." 345 PUSH 'T 346 CALL D-IGNORE FEF|71 ;'NIL 347 MOVE D-LAST FEF|10 ;':*QUERY-IO* 348 MOVE D-IGNORE PDL-POP 349 BR-NIL 352 350 CALL D-IGNORE FEF|72 ;'NIL 351 MOVE D-LAST LOCAL|3 352 SETE-CDR LOCAL|5 353 BR-NOT-NIL 227 354 PUSH FEF|73 ;'<*ANALYZE-FILES-WHEN-LOADED*> 355 (MISC) BOUNDP D-PDL 356 BR-NIL-POP 364 357 PUSH FEF|8 ;':*ANALYZE-FILES-WHEN-LOADED* 358 BR-NIL-POP 364 359 PUSH FEF|74 ;' 360 (MISC) FBOUNDP D-PDL 361 BR-NIL-POP 364 362 CALL D-RETURN FEF|75 ;'NIL 363 MOVE D-LAST ARG|0 364 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [976] {# 64745143>} (FASL-OP-INDEX [606] {})) (FASL-OP-FRAME 28 SET-NIL FEF|8 ;':LAST-FASL-FILE-FORMS 29 PUSH FEF|9 ;' 30 (MISC) BOUNDP D-PDL 31 (MISC) NOT D-PDL 32 BR-NIL-POP 57 33 CALL D-PDL FEF|10 ;'NIL 34 PUSH FEF|6 ;':FASL-OPS 35 (MISC) LENGTH D-PDL 36 PUSH FEF|11 ;' 37 MOVE D-LAST FEF|12 ;'52 38 POP FEF|7 ;':FASL-GROUP-DISPATCH 39 PUSH-NUMBER 0 40 PUSH FEF|6 ;':FASL-OPS 41 PUSH FEF|6 ;':FASL-OPS 42 (MISC) LENGTH D-PDL 43 POP LOCAL|2 44 POP LOCAL|1 45 POP LOCAL|0 46 BR 53 47 PUSH FEF|7 ;':FASL-GROUP-DISPATCH 48 PUSH LOCAL|0 49 CAR D-PDL LOCAL|1 50 (MISC) SET-AR-1 D-IGNORE 51 INCF LOCAL|0 52 SETE-CDR LOCAL|1 53 PUSH LOCAL|0 54 < LOCAL|2 55 BR-NOT-NIL 47 56 MOVE D-RETURN 'NIL 57 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [992] {# 64751105>} (FASL-OP-INDEX [717] {})) (FASL-OP-FRAME 22 PUSH FEF|8 ;':PKG-KEYWORD-PACKAGE 23 PUSH 'T 24 BIND-POP FEF|7 ;':FASLOAD-FILE-PROPERTY-LIST-FLAG 25 BIND-POP FEF|6 ;':*PACKAGE* 26 CALL0 D-RETURN FEF|9 ;'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [1002] {# 64752335>} (FASL-OP-INDEX [728] {})) (FASL-OP-FRAME 42 CALL0 D-PDL FEF|13 ;'NIL 43 MOVEM LOCAL|0 44 POP FEF|12 ;':FASL-FILE-PLIST 45 MOVE D-IGNORE FEF|11 ;':FDEFINE-FILE-PATHNAME 46 BR-NIL 63 47 PUSH-ADDRESS LOCAL|0 48 PUSH FEF|14 ;'<:SOURCE-FILE-GENERIC-PATHNAME> 49 (MISC) INTERNAL-GET-2 D-PDL 50 POP LOCAL|1 51 BR-NIL 63 52 PUSH FEF|11 ;':FDEFINE-FILE-PATHNAME 53 (MISC) STRINGP D-IGNORE 54 BR-NOT-NIL 63 55 CALL D-PDL FEF|11 ;':FDEFINE-FILE-PATHNAME 56 PUSH FEF|15 ;'<:BACK-TRANSLATED-PATHNAME> 57 MOVE D-LAST LOCAL|1 58 POP LOCAL|1 59 CALL D-PDL LOCAL|1 60 MOVE D-LAST FEF|16 ;'<:GENERIC-PATHNAME> 61 MOVEM FEF|11 ;':FDEFINE-FILE-PATHNAME 62 POP FEF|10 ;':FASL-GENERIC-PLIST-RECEIVER 63 PUSH LOCAL|0 64 POP LOCAL|2 65 BR-NIL 93 66 CALL D-IGNORE FEF|10 ;':FASL-GENERIC-PLIST-RECEIVER 67 PUSH FEF|17 ;'<:PUTPROP> 68 CADR D-PDL LOCAL|2 69 CAR D-LAST LOCAL|2 70 MOVE D-IGNORE FEF|9 ;':ACCUMULATE-FASL-FORMS 71 BR-NIL 91 72 PUSH FEF|18 ;' 73 PUSH FEF|19 ;' 74 PUSH FEF|10 ;':FASL-GENERIC-PLIST-RECEIVER 75 PUSH-NUMBER 2 76 (MISC) %INTERNAL-LIST D-PDL 77 PUSH FEF|17 ;'<:PUTPROP> 78 PUSH FEF|19 ;' 79 CADR D-PDL LOCAL|2 80 PUSH-NUMBER 2 81 (MISC) %INTERNAL-LIST D-PDL 82 PUSH FEF|19 ;' 83 CAR D-PDL LOCAL|2 84 PUSH-NUMBER 2 85 (MISC) %INTERNAL-LIST D-PDL 86 PUSH-NUMBER 5 87 (MISC) %INTERNAL-LIST D-PDL 88 PUSH FEF|8 ;':LAST-FASL-FILE-FORMS 89 (MISC) CONS D-PDL 90 POP FEF|8 ;':LAST-FASL-FILE-FORMS 91 SETE-CDDR LOCAL|2 92 BR-NOT-NIL 66 93 PUSH FEF|7 ;':FASLOAD-FILE-PROPERTY-LIST-FLAG 94 BR-NIL-POP 98 95 PUSH 'T 96 MOVEM FEF|6 ;':FASL-RETURN-FLAG 97 MOVE D-RETURN PDL-POP 98 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [1024] {# 64752570>} (FASL-OP-INDEX [169] {})) (FASL-OP-FRAME 22 PUSH FEF|6 ;':FASL-GENERIC-PLIST-RECEIVER 23 BR-NIL-POP 31 24 CALL D-IGNORE FEF|6 ;':FASL-GENERIC-PLIST-RECEIVER 25 PUSH FEF|7 ;'<:PUTPROP> 26 PUSH ARG|0 27 MOVE D-LAST FEF|8 ;'<:MACROS-EXPANDED> 28 CALL D-RETURN FEF|9 ;'NIL 29 PUSH ARG|0 30 MOVE D-LAST 'NIL 31 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [1040] {# 64754323>} (FASL-OP-INDEX [1027] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-INDEX [1027] {}) (FASL-OP-INDEX [45] {}) (FASL-OP-SYMBOL ) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL ) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-SYMBOL ) => ( )) (FASL-OP-STRING "Non-NIL inhibits warnings about loading functions compiled with different versions of macros.") => ( ( ) "Non-NIL inhibits warnings about loading functions compiled with different versions of macros.")) (EVAL '( ( ) "Non-NIL inhibits warnings about loading functions compiled with different versions of macros."))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-SYMBOL ) => ( )) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-INDEX [1045] {}) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-INDEX [1046] {}) => ( )) => ( ( ))) (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL <*TERMINAL-IO*>) (FASL-OP-SYMBOL ) => ( <*TERMINAL-IO*> )) (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-INDEX [1045] {}) (FASL-OP-INDEX [250] {}) => ( )) => ( ( ( )) ( <*TERMINAL-IO*> ) ( ))) => ( ( ( ( )) ( <*TERMINAL-IO*> ) ( )))) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "BEFORE-COLD") <:BEFORE-COLD>) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "NORMAL") <:NORMAL>) => (<:BEFORE-COLD> <:NORMAL>)) => ( (<:BEFORE-COLD> <:NORMAL>))) => ( ( ) ( ( ( ( )) ( <*TERMINAL-IO*> ) ( ))) ( (<:BEFORE-COLD> <:NORMAL>)))) (EVAL '( ( ) ( ( ( ( )) ( <*TERMINAL-IO*> ) ( ))) ( (<:BEFORE-COLD> <:NORMAL>))))) (FASL-OP-FRAME 48 PUSH-NUMBER 46 49 BIND-POP FEF|6 ;':DEFAULT-CONS-AREA 50 PUSH ARG|0 51 POP LOCAL|0 52 BR-NIL 106 53 CAR D-PDL LOCAL|0 54 POP LOCAL|1 55 BR-ATOM 104 56 CALL D-IGNORE FEF|12 ;'NIL 57 CAR D-LAST LOCAL|1 58 BR-NIL 104 59 PUSH FEF|13 ;' 60 (MISC) FBOUNDP D-IGNORE 61 BR-NIL 104 62 CALL D-PDL FEF|14 ;':COMPILER 63 CAR D-LAST LOCAL|1 64 POP LOCAL|2 65 BR-NIL 104 66 CADR D-IGNORE LOCAL|1 67 BR-NIL 104 68 CADR D-PDL LOCAL|1 69 PUSH LOCAL|2 70 (MISC) M-EQ D-PDL 71 (MISC) NOT D-IGNORE 72 BR-NIL 104 73 PUSH ARG|1 74 CAR D-PDL LOCAL|1 75 CALL D-PDL FEF|10 ;':FASL-STREAM 76 MOVE D-LAST FEF|15 ;'<:TRUENAME> 77 PUSH-NUMBER 3 78 (MISC) %INTERNAL-LIST D-PDL 79 PUSH FEF|11 ;':MACRO-MISMATCH-FUNCTIONS 80 (MISC) CONS D-PDL 81 POP FEF|11 ;':MACRO-MISMATCH-FUNCTIONS 82 BR-NIL 104 83 MOVE D-IGNORE FEF|9 ;':INHIBIT-MACRO-MISMATCH-WARNINGS 84 BR-NOT-NIL 104 85 PUSH FEF|8 ;':*ERROR-OUTPUT* 86 BIND-POP FEF|7 ;':*STANDARD-OUTPUT* 87 CALL0 D-IGNORE FEF|16 ;'NIL 88 CALL D-IGNORE FEF|17 ;'NIL 89 MOVE D-LAST FEF|18 ;'"Warning: " 90 MOVE D-IGNORE ARG|1 91 BR-NIL 95 92 CALL D-IGNORE FEF|19 ;'NIL 93 MOVE D-LAST ARG|1 94 BR 98 95 CALL D-IGNORE FEF|20 ;'NIL 96 CALL D-LAST FEF|10 ;':FASL-STREAM 97 MOVE D-LAST FEF|15 ;'<:TRUENAME> 98 CALL D-IGNORE FEF|17 ;'NIL 99 MOVE D-LAST FEF|21 ;'" was compiled with a different version of macro " 100 CALL D-IGNORE FEF|19 ;'NIL 101 CAR D-LAST LOCAL|1 102 CALL0 D-IGNORE FEF|22 ;'NIL 103 (MISC) UNBIND 1 binding 104 SETE-CDR LOCAL|0 105 BR-NOT-NIL 53 106 MOVE D-RETURN 'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [1112] {# 64756370>} (FASL-OP-INDEX [1031] {})) (FASL-OP-FRAME 26 PUSH ARG|0 27 (MISC) %DATA-TYPE D-PDL 28 EQ FEF|6 ;'27 29 BR-NIL 33 30 CALL D-PDL ARG|0 31 MOVE D-LAST FEF|7 ;'<:GENERIC-PATHNAME> 32 BR 34 33 PUSH FEF|8 ;' 34 POP LOCAL|0 35 PUSH ARG|2 36 CALL D-PDL LOCAL|0 37 PUSH FEF|9 ;'<:GET> 38 MOVE D-LAST FEF|10 ;'<:FILE-ID-PACKAGE-ALIST> 39 (MISC) ASSQ D-PDL 40 POP LOCAL|1 41 BR-NIL 48 42 CDR D-PDL LOCAL|1 43 PUSH ARG|1 44 (MISC) SETCAR D-IGNORE 45 CDDR D-PDL LOCAL|1 46 PUSH ARG|0 47 (MISC) SETCAR D-RETURN 48 CALL D-RETURN LOCAL|0 49 PUSH FEF|11 ;'<:PUSH-PROPERTY> 50 PUSH ARG|2 51 PUSH ARG|1 52 PUSH ARG|0 53 PUSH-NUMBER 3 54 (MISC) %INTERNAL-LIST D-PDL 55 MOVE D-LAST FEF|10 ;'<:FILE-ID-PACKAGE-ALIST> ) (FASL-OP-STOREIN-FUNCTION-CELL [1134] {# 64757501>} (FASL-OP-INDEX [605] {})) (FASL-OP-FRAME 30 PUSH ARG|0 31 (MISC) %DATA-TYPE D-PDL 32 EQ FEF|7 ;'27 33 BR-NIL 37 34 CALL D-PDL ARG|0 35 MOVE D-LAST FEF|8 ;'<:GENERIC-PATHNAME> 36 BR 38 37 PUSH FEF|9 ;' 38 POP LOCAL|0 39 MOVE D-IGNORE ARG|1 40 BR-NOT-NIL 45 41 CALL D-PDL LOCAL|0 42 PUSH FEF|10 ;'<:GET> 43 MOVE D-LAST FEF|11 ;'<:PACKAGE> 44 POP ARG|1 45 CALL D-PDL LOCAL|0 46 PUSH FEF|10 ;'<:GET> 47 MOVE D-LAST FEF|12 ;'<:FILE-ID-PACKAGE-ALIST> 48 POP LOCAL|1 49 MOVE D-IGNORE ARG|1 50 BR-NIL 58 51 CALL D-PDL FEF|13 ;'NIL 52 PUSH ARG|1 53 PUSH 'NIL 54 MOVE D-LAST FEF|6 ;':*PACKAGE* 55 PUSH LOCAL|1 56 (MISC) ASSQ D-PDL 57 CADR D-RETURN PDL-POP 58 CAR D-PDL LOCAL|1 59 CADR D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [1155] {# 64757745>} (FASL-OP-INDEX [1137] {})) (FASL-OP-FRAME 22 MOVE D-IGNORE FEF|6 ;':FASL-TABLE 23 BR-NIL 25 24 CALL0 D-IGNORE FEF|7 ;'NIL 25 CALL0 D-PDL FEF|8 ;'NIL 26 EQ FEF|9 ;' 27 BR-NIL 25 28 MOVE D-RETURN 'T ) (FASL-OP-STOREIN-FUNCTION-CELL [1165] {# 64760342>} (FASL-OP-INDEX [755] {})) (FASL-OP-FRAME 20 CALL0 D-PDL FEF|7 ;'NIL 21 MOVE D-IGNORE FEF|6 ;':FASL-TABLE 22 BR-NIL 24 23 CALL0 D-IGNORE FEF|8 ;'NIL 24 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [1175] {# 64760555>} (FASL-OP-INDEX [1162] {})) (FASL-OP-FRAME 24 MOVE D-IGNORE FEF|7 ;':FASL-TABLE 25 BR-NOT-NIL 30 26 CALL0 D-IGNORE FEF|8 ;'NIL 27 CALL0 D-IGNORE FEF|9 ;'NIL 28 BR 30 29 CALL0 D-IGNORE FEF|10 ;'NIL 30 MOVE D-IGNORE FEF|6 ;':FASL-RETURN-FLAG 31 BR-NIL 29 32 MOVE D-RETURN FEF|6 ;':FASL-RETURN-FLAG ) (FASL-OP-STOREIN-FUNCTION-CELL [1187] {# 64760741>} (FASL-OP-INDEX [999] {})) (FASL-OP-FRAME 16 PUSH FEF|6 ;':FASL-TABLE 17 PUSH-NUMBER 53 18 SET-AR-1 (5) D-IGNORE 19 PUSH FEF|6 ;':FASL-TABLE 20 PUSH-NUMBER 51 21 SET-AR-1 (6) D-IGNORE 22 PUSH FEF|6 ;':FASL-TABLE 23 PUSH-NUMBER 46 24 SET-AR-1 (8) D-IGNORE 25 PUSH FEF|6 ;':FASL-TABLE 26 PUSH-NUMBER 54 27 SET-AR-1 (9) D-IGNORE 28 PUSH FEF|6 ;':FASL-TABLE 29 PUSH-NUMBER 46 30 SET-AR-1 (10) D-IGNORE 31 PUSH FEF|6 ;':FASL-TABLE 32 PUSH-NUMBER 60 33 SET-AR-1 (11) D-RETURN ) (FASL-OP-STOREIN-FUNCTION-CELL [1197] {# 64761203>} (FASL-OP-INDEX [1161] {})) (FASL-OP-FRAME 44 BIND-NIL FEF|7 ;':FASL-GROUP-LENGTH 45 BIND-NIL FEF|6 ;':FASL-GROUP-FLAG 46 MOVE D-IGNORE FEF|10 ;':FASL-TRACE-LOSSAGE 47 BR-NIL 50 48 CALL D-IGNORE FEF|11 ;'NIL 49 MOVE D-LAST FEF|12 ;' 50 MOVE D-IGNORE FEF|9 ;':*FASL-NIBBLE-8BIT* 51 BR-NIL 54 52 CALL0 D-PDL FEF|13 ;'NIL 53 BR 55 54 CALL0 D-PDL FEF|14 ;'NIL 55 MOVEM LOCAL|0 56 LOGAND FEF|15 ;'100000 57 ZEROP PDL-POP 58 BR-NIL 61 59 CALL D-IGNORE FEF|16 ;'NIL 60 MOVE D-LAST FEF|17 ;'"Invalid QFASL file: first nibble of group is missing the check bit." 61 PUSH LOCAL|0 62 LOGAND FEF|18 ;'40000 63 (MISC) ZEROP D-PDL 64 (MISC) NOT D-PDL 65 POP FEF|6 ;':FASL-GROUP-FLAG 66 PUSH-NUMBER 610 67 PUSH LOCAL|0 68 (MISC) LDB D-PDL 69 MOVEM FEF|7 ;':FASL-GROUP-LENGTH 70 = FEF|19 ;'377 71 BR-NIL 78 72 MOVE D-IGNORE FEF|9 ;':*FASL-NIBBLE-8BIT* 73 BR-NIL 76 74 CALL0 D-PDL FEF|13 ;'NIL 75 BR 77 76 CALL0 D-PDL FEF|14 ;'NIL 77 POP FEF|7 ;':FASL-GROUP-LENGTH 78 PUSH LOCAL|0 79 LOGAND FEF|20 ;'77 80 POP LOCAL|1 81 PUSH FEF|8 ;':FASL-GROUP-DISPATCH 82 PUSH LOCAL|1 83 (MISC) AR-1 D-PDL 84 CALL0 D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [1219] {# 64761434>} (FASL-OP-INDEX [1181] {})) (FASL-OP-FRAME 26 PUSH 1- FEF|7 ;':FASL-GROUP-LENGTH 27 MOVEM FEF|7 ;':FASL-GROUP-LENGTH 28 (MISC) MINUSP D-IGNORE 29 BR-NOT-NIL 34 30 MOVE D-IGNORE FEF|6 ;':*FASL-NIBBLE-8BIT* 31 BR-NIL 33 32 CALL0 D-RETURN FEF|8 ;'NIL 33 CALL0 D-RETURN FEF|9 ;'NIL 34 CALL D-RETURN FEF|10 ;'NIL 35 MOVE D-LAST FEF|11 ;'"Invalid QFASL file: not enough nibbles in this group." ) (FASL-OP-STOREIN-FUNCTION-CELL [1231] {# 64762203>} (FASL-OP-INDEX [1222] {})) (FASL-OP-FRAME 18 PUSH FEF|6 ;':FASL-TABLE 19 CALL0 D-PDL FEF|7 ;'NIL 20 (MISC) AR-1 D-RETURN ) (FASL-OP-STOREIN-FUNCTION-CELL [1239] {# 64762456>} (FASL-OP-INDEX [1008] {})) (FASL-OP-FRAME 16 PUSH ARG|0 17 PUSH FEF|6 ;':FASL-TABLE 18 (MISC) AS-1 (1) D-IGNORE 19 MOVE D-RETURN '1 ) (FASL-OP-STOREIN-FUNCTION-CELL [1251] {# 64762603>} (FASL-OP-INDEX [1242] {})) (FASL-OP-FRAME 18 CALL D-RETURN FEF|6 ;'NIL 19 MOVE D-LAST FEF|7 ;'"Invalid QFASL file: group code 0 encountered." ) (FASL-OP-STOREIN-FUNCTION-CELL [1260] {# 64762743>} (FASL-OP-INDEX [119] {})) (FASL-OP-FRAME 14 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [1268] {# 64763060>} (FASL-OP-INDEX [120] {})) (FASL-OP-FRAME 16 CALL0 D-RETURN FEF|6 ;'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [1276] {# 64763162>} (FASL-OP-INDEX [121] {})) (FASL-OP-FRAME 18 CALL0 D-PDL FEF|6 ;'NIL 19 PUSH FEF|7 ;'2010 20 CALL0 D-PDL FEF|6 ;'NIL 21 (MISC) DPB D-RETURN ) (FASL-OP-STOREIN-FUNCTION-CELL [1285] {# 64763271>} (FASL-OP-INDEX [173] {})) (FASL-OP-FRAME 16 CALL D-RETURN FEF|6 ;'NIL 17 MOVE D-LAST 'T ) (FASL-OP-STOREIN-FUNCTION-CELL [1293] {# 64763416>} (FASL-OP-INDEX [163] {})) (FASL-OP-FRAME 18 PUSH ARG|0 19 (MISC) LENGTH D-PDL 20 > '1 21 BR-NIL 26 22 CALL D-IGNORE FEF|6 ;'NIL 23 PUSH ARG|0 24 PUSH-NUMBER 0 25 MOVE D-LAST '0 26 MOVE D-RETURN FEF|7 ;'( ( () ((<%STORE-CONDITIONAL> ( ) ( ) ) )) ( 1000 <:FILL-POINTER> 0)) ) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify) (FASL-OP-INDEX [1102] {}) (FASL-OP-INDEX [1332] {# 64763541>}) => ( . # 64763541>)) (FASL-OP-STOREIN-FUNCTION-CELL [1333] {( . # 64763541>)} (FASL-OP-INDEX [1296] {})) (FASL-OP-FRAME 36 PUSH FEF|9 ;' 37 (MISC) %EXTERNAL-VALUE-CELL D-PDL 38 PUSH FEF|8 ;':FASL-OP-SYMBOL-TEMP-STRING 39 MOVEM LOCAL|1 40 PUSH 'NIL 41 (MISC) %STORE-CONDITIONAL D-IGNORE 42 BR-NIL 36 43 PUSH LOCAL|1 44 BR-NOT-NIL-POP 52 45 CALL D-PDL FEF|10 ;'NIL 46 MOVE D-LAST '1000 47 POP LOCAL|2 48 CALL D-IGNORE FEF|11 ;'NIL 49 PUSH LOCAL|2 50 MOVE D-LAST '0 51 PUSH LOCAL|2 52 MOVEM LOCAL|0 53 (MISC) ARRAY-LENGTH D-PDL 54 PUSH-NUMBER 2 55 * FEF|7 ;':FASL-GROUP-LENGTH 56 < PDL-POP 57 BR-NIL 72 58 CALL D-PDL FEF|10 ;'NIL 59 PUSH-NUMBER 2 60 * FEF|7 ;':FASL-GROUP-LENGTH 61 PUSH-NUMBER 2 62 PUSH LOCAL|0 63 (MISC) ARRAY-LENGTH D-PDL 64 * PDL-POP 65 (MISC) *MAX D-LAST 66 POP LOCAL|2 67 CALL D-IGNORE FEF|11 ;'NIL 68 PUSH LOCAL|2 69 MOVE D-LAST '0 70 PUSH LOCAL|2 71 POP LOCAL|0 72 CALL D-IGNORE FEF|11 ;'NIL 73 PUSH LOCAL|0 74 MOVE D-LAST '0 75 SET-NIL LOCAL|3 76 BR 91 77 CALL0 D-PDL FEF|12 ;'NIL 78 MOVEM LOCAL|3 79 PUSH LOCAL|0 80 (MISC) VECTOR-PUSH D-IGNORE 81 PUSH LOCAL|3 82 PUSH '-10 83 (MISC) LSH D-PDL 84 = '200 85 BR-NOT-NIL 91 86 PUSH LOCAL|3 87 PUSH '-10 88 (MISC) LSH D-PDL 89 PUSH LOCAL|0 90 (MISC) VECTOR-PUSH D-IGNORE 91 ZEROP FEF|7 ;':FASL-GROUP-LENGTH 92 BR-NIL 77 93 CALL D-PDL FEF|13 ;'NIL 94 MOVE D-IGNORE ARG|0 95 BR-NIL 97 96 BR 102 97 MOVE D-IGNORE FEF|6 ;':FASL-GROUP-FLAG 98 BR-NOT-NIL 101 99 CALL D-LAST FEF|14 ;'NIL 100 BR 103 101 CALL D-LAST FEF|15 ;'NIL 102 CALL D-LAST FEF|16 ;'NIL 103 MOVE D-LAST LOCAL|0 104 PUSH LOCAL|0 105 POP FEF|8 ;':FASL-OP-SYMBOL-TEMP-STRING 106 MOVE D-RETURN PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [1357] {# 64764327>} (FASL-OP-INDEX [122] {})) (FASL-OP-FRAME 50 PUSH FEF|11 ;':FASL-GROUP-LENGTH 51 POP LOCAL|0 52 BIND-NIL FEF|6 ;':STR 53 BIND-NIL FEF|7 ;':PKG 54 PUSH LOCAL|0 55 = '1 56 BR-NOT-NIL 61 57 CALL D-IGNORE FEF|12 ;'NIL 58 PUSH FEF|10 ;':*ERROR-OUTPUT* 59 MOVE D-LAST FEF|13 ;'"This file is in the old format -- recompile the source.~%" 60 BR 63 61 CALL0 D-PDL FEF|14 ;'NIL 62 POP LOCAL|0 63 PUSH LOCAL|0 64 = FEF|15 ;'402 65 BR-NIL 70 66 PUSH 'T 67 POP LOCAL|1 68 PUSH-NUMBER 2 69 POP LOCAL|0 70 CALL0 D-PDL FEF|16 ;'NIL 71 POP FEF|6 ;':STR 72 MOVE D-IGNORE FEF|9 ;':FASL-GROUP-FLAG 73 BR-NIL 81 74 PUSH FEF|6 ;':STR 75 PUSH FEF|17 ;'"" 76 (MISC) EQUAL D-IGNORE 77 BR-NIL 81 78 CALL D-RETURN FEF|18 ;'NIL 79 CALL D-LAST FEF|19 ;'NIL 80 MOVE D-LAST FEF|6 ;':STR 81 PUSH LOCAL|1 82 (MISC) NOT D-PDL 83 BR-NIL-POP 87 84 CALL D-PDL FEF|20 ;'NIL 85 PUSH FEF|6 ;':STR 86 MOVE D-LAST FEF|8 ;':*PACKAGE* 87 BR-NOT-NIL-POP 91 88 CALL D-PDL FEF|21 ;'NIL 89 PUSH FEF|6 ;':STR 90 MOVE D-LAST FEF|22 ;'<:ASK> 91 POP FEF|7 ;':PKG 92 PUSH LOCAL|0 93 - '2 94 POP LOCAL|2 95 BR 107 96 CALL0 D-PDL FEF|16 ;'NIL 97 POP FEF|6 ;':STR 98 CALL D-PDL FEF|20 ;'NIL 99 PUSH FEF|6 ;':STR 100 MOVE D-LAST FEF|7 ;':PKG 101 BR-NOT-NIL-POP 105 102 CALL D-PDL FEF|21 ;'NIL 103 PUSH FEF|6 ;':STR 104 MOVE D-LAST FEF|22 ;'<:ASK> 105 POP FEF|7 ;':PKG 106 DECF LOCAL|2 107 PUSH LOCAL|2 108 (MISC) PLUSP D-IGNORE 109 BR-NOT-NIL 96 110 CALL0 D-PDL FEF|16 ;'NIL 111 POP FEF|6 ;':STR 112 PUSH FEF|23 ;'NIL 113 PUSH-NUMBER 3 114 (MISC) %CALL-MULT-VALUE D-IGNORE 115 PUSH FEF|6 ;':STR 116 MOVE D-LAST FEF|7 ;':PKG 117 POP LOCAL|5 118 POP LOCAL|4 119 POP LOCAL|3 120 CALL D-RETURN FEF|18 ;'NIL 121 MOVE D-LAST LOCAL|3 ) (FASL-OP-STOREIN-FUNCTION-CELL [1387] {# 64765221>} (FASL-OP-INDEX [167] {})) (FASL-OP-FRAME 22 PUSH 1- FEF|7 ;':FASL-GROUP-LENGTH 23 PUSH-NUMBER 4 24 (MISC) LSH D-PDL 25 PUSH FEF|7 ;':FASL-GROUP-LENGTH 26 PUSH-NUMBER 0 27 POP LOCAL|2 28 POP LOCAL|1 29 POP LOCAL|0 30 BR 43 31 CALL0 D-PDL FEF|8 ;'NIL 32 PUSH LOCAL|0 33 PUSH-NUMBER 6 34 (MISC) LSH D-PDL 35 + '20 36 PUSH LOCAL|2 37 (MISC) DPB D-PDL 38 POP LOCAL|2 39 PUSH LOCAL|0 40 - '20 41 POP LOCAL|0 42 DECF LOCAL|1 43 ZEROP LOCAL|1 44 BR-NIL 31 45 MOVE D-IGNORE FEF|6 ;':FASL-GROUP-FLAG 46 BR-NIL 50 47 PUSH LOCAL|2 48 (MISC) MINUS D-PDL 49 POP LOCAL|2 50 CALL D-RETURN FEF|9 ;'NIL 51 MOVE D-LAST LOCAL|2 ) (FASL-OP-STOREIN-FUNCTION-CELL [1405] {# 64766507>} (FASL-OP-INDEX [125] {})) (FASL-OP-FRAME 24 PUSH 1- FEF|8 ;':FASL-GROUP-LENGTH 25 PUSH-NUMBER 4 26 (MISC) LSH D-PDL 27 PUSH FEF|8 ;':FASL-GROUP-LENGTH 28 PUSH-NUMBER 0 29 POP LOCAL|2 30 POP LOCAL|1 31 POP LOCAL|0 32 BR 45 33 CALL0 D-PDL FEF|9 ;'NIL 34 PUSH LOCAL|0 35 PUSH-NUMBER 6 36 (MISC) LSH D-PDL 37 + '20 38 PUSH LOCAL|2 39 (MISC) DPB D-PDL 40 POP LOCAL|2 41 PUSH LOCAL|0 42 - '20 43 POP LOCAL|0 44 DECF LOCAL|1 45 ZEROP LOCAL|1 46 BR-NIL 33 47 MOVE D-IGNORE FEF|7 ;':FASL-GROUP-FLAG 48 BR-NIL 52 49 PUSH LOCAL|2 50 (MISC) MINUS D-PDL 51 POP LOCAL|2 52 PUSH FEF|6 ;':DTP-CHARACTER 53 PUSH LOCAL|2 54 (MISC) %MAKE-POINTER D-PDL 55 POP LOCAL|2 56 CALL D-RETURN FEF|10 ;'NIL 57 MOVE D-LAST LOCAL|2 ) (FASL-OP-STOREIN-FUNCTION-CELL [1421] {# 64767053>} (FASL-OP-INDEX [156] {})) (FASL-OP-FRAME 20 MOVE D-IGNORE FEF|6 ;':FASL-GROUP-FLAG 21 BR-NIL 23 22 CALL0 D-RETURN FEF|7 ;'NIL 23 CALL0 D-RETURN FEF|8 ;'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [1431] {# 64767433>} (FASL-OP-INDEX [126] {})) (FASL-OP-FRAME 26 CALL0 D-PDL FEF|8 ;'NIL 27 PUSH FEF|9 ;'2010 28 CALL0 D-PDL FEF|8 ;'NIL 29 (MISC) %LOGDPB D-PDL 30 POP LOCAL|0 31 ZEROP LOCAL|0 32 BR-NIL 35 33 PUSH-NUMBER 0 34 BR 39 35 PUSH FEF|7 ;':DTP-FIX 36 PUSH LOCAL|0 37 PUSH FEF|10 ;'40000000 38 (MISC) %MAKE-POINTER-OFFSET D-PDL 39 POP LOCAL|0 40 CALL D-RETURN FEF|11 ;'NIL 41 PUSH FEF|6 ;':DTP-SMALL-FLONUM 42 PUSH LOCAL|0 43 (MISC) %MAKE-POINTER D-LAST ) (FASL-OP-STOREIN-FUNCTION-CELL [1450] {# 64767627>} (FASL-OP-INDEX [1427] {})) (FASL-OP-FRAME 22 PUSH-NUMBER 0 23 (MISC) INTERNAL-FLOAT D-PDL 24 POP LOCAL|0 25 CALL0 D-PDL FEF|6 ;'NIL 26 PUSH FEF|7 ;'1013 27 PUSH LOCAL|0 28 PUSH-NUMBER 0 29 (MISC) %P-DPB-OFFSET D-IGNORE 30 CALL0 D-PDL FEF|6 ;'NIL 31 POP LOCAL|1 32 PUSH '1010 33 PUSH LOCAL|1 34 (MISC) LDB D-PDL 35 PUSH-NUMBER 10 36 PUSH LOCAL|0 37 PUSH-NUMBER 0 38 (MISC) %P-DPB-OFFSET D-IGNORE 39 PUSH LOCAL|1 40 PUSH FEF|8 ;'2010 41 CALL0 D-PDL FEF|6 ;'NIL 42 (MISC) %LOGDPB D-PDL 43 PUSH-NUMBER 30 44 PUSH LOCAL|0 45 PUSH-NUMBER 1 46 (MISC) %P-DPB-OFFSET D-IGNORE 47 CALL D-RETURN FEF|9 ;'NIL 48 MOVE D-LAST LOCAL|0 ) (FASL-OP-STOREIN-FUNCTION-CELL [1464] {# 64770324>} (FASL-OP-INDEX [1428] {})) (FASL-OP-FRAME 46 MOVE D-IGNORE FEF|8 ;':FASL-GROUP-FLAG 47 BR-NIL 50 48 PUSH '-1 49 BR 51 50 PUSH-NUMBER 1 51 CALL0 D-PDL FEF|9 ;'NIL 52 PUSH-NUMBER 0 53 PUSH-NUMBER 0 54 POP LOCAL|4 55 POP LOCAL|2 56 POP LOCAL|1 57 POP LOCAL|0 58 PUSH LOCAL|1 59 < '11 60 BR-NIL 108 61 CALL0 D-PDL FEF|9 ;'NIL 62 POP LOCAL|2 63 CALL0 D-PDL FEF|9 ;'NIL 64 MOVEM LOCAL|3 65 < FEF|10 ;'22 66 BR-NIL 103 67 PUSH-NUMBER 0 68 PUSH-NUMBER 1 69 BR 79 70 PUSH LOCAL|4 71 PUSH LOCAL|7 72 CALL0 D-PDL FEF|9 ;'NIL 73 * PDL-POP 74 + PDL-POP 75 POP LOCAL|4 76 PUSH 1+ LOCAL|6 77 PUSH LOCAL|7 78 * FEF|11 ;'200000 79 POP LOCAL|7 80 MOVEM LOCAL|6 81 PUSH LOCAL|3 82 PUSH-NUMBER 20 83 (MISC) CEILING one value to stack 84 = PDL-POP 85 BR-NIL 70 86 PUSH LOCAL|4 87 PUSH LOCAL|0 88 (MISC) PLUSP D-IGNORE 89 BR-NIL 92 90 PUSH FEF|12 ;'377777 91 BR 93 92 PUSH FEF|13 ;'177777 93 LOGAND PDL-POP 94 POP LOCAL|4 95 PUSH FEF|7 ;':DTP-SMALL-FLONUM 96 PUSH LOCAL|2 97 PUSH FEF|14 ;'2110 98 PUSH LOCAL|4 99 (MISC) %LOGDPB D-PDL 100 (MISC) %MAKE-POINTER D-PDL 101 POP LOCAL|5 102 BR 189 103 CALL D-IGNORE FEF|15 ;'NIL 104 PUSH FEF|16 ;'"Fasl-op-new-float: Exponent length ~D, Mantissa length ~D" 105 PUSH LOCAL|1 106 MOVE D-LAST LOCAL|3 107 BR 189 108 PUSH LOCAL|1 109 < FEF|17 ;'14 110 BR-NIL 186 111 CALL0 D-PDL FEF|9 ;'NIL 112 MOVEM LOCAL|2 113 < '4000 114 BR-NOT-NIL 116 115 SET-ZERO LOCAL|2 116 CALL0 D-PDL FEF|9 ;'NIL 117 MOVEM LOCAL|3 118 < '40 119 BR-NIL 181 120 PUSH-NUMBER 0 121 PUSH-NUMBER 1 122 BR 132 123 PUSH LOCAL|4 124 PUSH LOCAL|7 125 CALL0 D-PDL FEF|9 ;'NIL 126 * PDL-POP 127 + PDL-POP 128 POP LOCAL|4 129 PUSH 1+ LOCAL|6 130 PUSH LOCAL|7 131 * FEF|11 ;'200000 132 POP LOCAL|7 133 MOVEM LOCAL|6 134 PUSH LOCAL|3 135 PUSH-NUMBER 20 136 (MISC) CEILING one value to stack 137 = PDL-POP 138 BR-NIL 123 139 PUSH-NUMBER 46 140 BIND-POP FEF|6 ;':NUMBER-CONS-AREA 141 PUSH-NUMBER 0 142 PUSH-NUMBER 1 143 (MISC) %FLOAT-DOUBLE D-PDL 144 POP LOCAL|5 145 (MISC) UNBIND 1 binding 146 PUSH-NUMBER 10 147 POP LOCAL|10 148 PUSH LOCAL|5 149 MOVEM LOCAL|8 150 POP LOCAL|11 151 PUSH FEF|18 ;'3010 152 PUSH LOCAL|0 153 * LOCAL|4 154 MOVEM LOCAL|9 155 (MISC) LDB D-PDL 156 PUSH LOCAL|10 157 PUSH LOCAL|11 158 PUSH-NUMBER 0 159 (MISC) %P-DPB-OFFSET D-IGNORE 160 PUSH-NUMBER 30 161 POP LOCAL|10 162 PUSH LOCAL|8 163 POP LOCAL|11 164 PUSH-NUMBER 30 165 PUSH LOCAL|9 166 (MISC) LDB D-PDL 167 PUSH LOCAL|10 168 PUSH LOCAL|11 169 PUSH-NUMBER 1 170 (MISC) %P-DPB-OFFSET D-IGNORE 171 PUSH FEF|19 ;'1013 172 POP LOCAL|10 173 PUSH LOCAL|5 174 POP LOCAL|11 175 PUSH LOCAL|2 176 PUSH LOCAL|10 177 PUSH LOCAL|11 178 PUSH-NUMBER 0 179 (MISC) %P-DPB-OFFSET D-IGNORE 180 BR 189 181 CALL D-IGNORE FEF|15 ;'NIL 182 PUSH FEF|16 ;'"Fasl-op-new-float: Exponent length ~D, Mantissa length ~D" 183 PUSH LOCAL|1 184 MOVE D-LAST LOCAL|3 185 BR 189 186 CALL D-IGNORE FEF|15 ;'NIL 187 PUSH FEF|20 ;'"Fasl-op-new-float: Exponent length ~D" 188 MOVE D-LAST LOCAL|1 189 CALL D-RETURN FEF|21 ;'NIL 190 MOVE D-LAST LOCAL|5 ) (FASL-OP-STOREIN-FUNCTION-CELL [1504] {# 64770554>} (FASL-OP-INDEX [146] {})) (FASL-OP-FRAME 18 CALL0 D-PDL FEF|6 ;'NIL 19 CALL0 D-PDL FEF|6 ;'NIL 20 (MISC) %DIV D-PDL 21 POP LOCAL|0 22 CALL D-RETURN FEF|7 ;'NIL 23 MOVE D-LAST LOCAL|0 ) (FASL-OP-STOREIN-FUNCTION-CELL [1516] {# 64773543>} (FASL-OP-INDEX [171] {})) (FASL-OP-FRAME 20 CALL D-PDL FEF|6 ;'NIL 21 CALL0 D-PDL FEF|7 ;'NIL 22 CALL0 D-LAST FEF|7 ;'NIL 23 POP LOCAL|0 24 CALL D-RETURN FEF|8 ;'NIL 25 MOVE D-LAST LOCAL|0 ) (FASL-OP-STOREIN-FUNCTION-CELL [1529] {# 64773743>} (FASL-OP-INDEX [172] {})) (FASL-OP-FRAME 28 CALL0 D-PDL FEF|8 ;'NIL 29 POP LOCAL|0 30 MOVE D-IGNORE ARG|0 31 BR-NOT-NIL 35 32 PUSH FEF|7 ;':FASL-TABLE 33 AR-1 (10) D-PDL 34 POP ARG|0 35 PUSH 'NIL 36 PUSH ARG|0 37 PUSH LOCAL|0 38 (MISC) %MAKE-LIST D-PDL 39 MOVEM LOCAL|1 40 PUSH LOCAL|0 41 POP LOCAL|3 42 POP LOCAL|2 43 BR 49 44 PUSH LOCAL|2 45 CALL0 D-PDL FEF|9 ;'NIL 46 (MISC) SETCAR D-IGNORE 47 SETE-CDR LOCAL|2 48 DECF LOCAL|3 49 ZEROP LOCAL|3 50 BR-NIL 44 51 MOVE D-IGNORE FEF|6 ;':FASL-GROUP-FLAG 52 BR-NIL 55 53 CALL D-IGNORE FEF|10 ;'NIL 54 MOVE D-LAST LOCAL|1 55 MOVE D-IGNORE ARG|1 56 BR-NOT-NIL 59 57 CALL D-RETURN FEF|11 ;'NIL 58 MOVE D-LAST LOCAL|1 59 CALL D-RETURN FEF|12 ;'NIL 60 MOVE D-LAST LOCAL|1 ) (FASL-OP-STOREIN-FUNCTION-CELL [1555] {# 64774174>} (FASL-OP-INDEX [123] {})) (FASL-OP-FRAME 18 CALL D-RETURN FEF|7 ;'NIL 19 PUSH FEF|6 ;':FASL-TABLE 20 AR-1 (11) D-LAST ) (FASL-OP-STOREIN-FUNCTION-CELL [1563] {# 64775670>} (FASL-OP-INDEX [124] {})) (FASL-OP-FRAME 16 CALL D-RETURN FEF|6 ;'NIL 17 PUSH 'NIL 18 MOVE D-LAST 'T ) (FASL-OP-STOREIN-FUNCTION-CELL [1571] {# 64776015>} (FASL-OP-INDEX [131] {})) (FASL-OP-FRAME 20 PUSH ARG|0 21 POP LOCAL|0 22 BR 24 23 SETE-CDR LOCAL|0 24 CDDR D-IGNORE LOCAL|0 25 BR-NOT-NIL 23 26 PUSH LOCAL|0 27 (MISC) %P-CDR-CODE D-PDL 28 = '0 29 BR-NOT-NIL 33 30 CALL D-IGNORE FEF|6 ;'NIL 31 PUSH FEF|7 ;'"~S is not a linear list" 32 MOVE D-LAST ARG|0 33 PUSH LOCAL|0 34 PUSH-NUMBER 2 35 (MISC) %P-STORE-CDR-CODE D-IGNORE 36 PUSH-NUMBER 1 37 PUSH FEF|8 ;'3602 38 PUSH LOCAL|0 39 PUSH-NUMBER 1 40 (MISC) %P-DPB-OFFSET D-IGNORE 41 MOVE D-RETURN ARG|0 ) (FASL-OP-STOREIN-FUNCTION-CELL [1590] {# 64776163>} (FASL-OP-INDEX [1535] {})) (FASL-OP-FRAME 42 CALL0 D-PDL FEF|9 ;'NIL 43 PUSH FEF|8 ;':PKG-GLOBAL-PACKAGE 44 BIND-POP FEF|6 ;':*PACKAGE* 45 CALL0 D-PDL FEF|9 ;'NIL 46 (MISC) UNBIND 1 binding 47 CALL0 D-PDL FEF|9 ;'NIL 48 CALL0 D-PDL FEF|9 ;'NIL 49 CALL0 D-PDL FEF|9 ;'NIL 50 CALL0 D-PDL FEF|9 ;'NIL 51 MOVE D-IGNORE FEF|7 ;':FASL-GROUP-FLAG 52 BR-NIL 55 53 CALL0 D-PDL FEF|9 ;'NIL 54 BR 56 55 PUSH 'NIL 56 POP LOCAL|6 57 POP LOCAL|5 58 POP LOCAL|4 59 POP LOCAL|3 60 POP LOCAL|2 61 POP LOCAL|1 62 POP LOCAL|0 63 CALL D-RETURN FEF|10 ;'NIL 64 CALL D-LAST FEF|11 ;'NIL 65 PUSH LOCAL|2 66 PUSH FEF|12 ;'<:TYPE> 67 PUSH LOCAL|1 68 PUSH FEF|13 ;'<:AREA> 69 PUSH LOCAL|0 70 PUSH FEF|14 ;'<:DISPLACED-TO> 71 PUSH LOCAL|3 72 PUSH FEF|15 ;'<:DISPLACED-INDEX-OFFSET> 73 PUSH LOCAL|5 74 PUSH FEF|16 ;'<:LEADER-LENGTH> 75 MOVE D-IGNORE LOCAL|4 76 BR-ATOM 80 77 PUSH LOCAL|4 78 (MISC) LENGTH D-PDL 79 BR 81 80 PUSH LOCAL|4 81 PUSH FEF|17 ;'<:LEADER-LIST> 82 MOVE D-IGNORE LOCAL|4 83 BR-ATOM 87 84 CALL D-PDL FEF|18 ;'NIL 85 MOVE D-LAST LOCAL|4 86 BR 88 87 PUSH 'NIL 88 PUSH FEF|19 ;'<:NAMED-STRUCTURE-SYMBOL> 89 MOVE D-LAST LOCAL|6 ) (FASL-OP-STOREIN-FUNCTION-CELL [1631] {# 64776366>} (FASL-OP-INDEX [127] {})) (FASL-OP-FRAME 58 CALL0 D-PDL FEF|9 ;'NIL 59 POP LOCAL|3 60 PUSH FEF|8 ;':FASL-TABLE 61 PUSH LOCAL|3 62 (MISC) AR-1 D-PDL 63 MOVEM LOCAL|0 64 (MISC) ARRAYP D-IGNORE 65 BR-NOT-NIL 71 66 CALL D-PDL FEF|10 ;':EH 67 PUSH LOCAL|0 68 PUSH FEF|11 ;' 69 MOVE D-LAST FEF|11 ;' 70 POP LOCAL|0 71 CALL0 D-PDL FEF|12 ;'NIL 72 POP LOCAL|1 73 CALL D-PDL FEF|13 ;'NIL 74 PUSH LOCAL|1 75 PUSH FEF|14 ;'<:AREA> 76 PUSH-NUMBER 57 77 PUSH FEF|15 ;'<:TYPE> 78 MOVE D-IGNORE ARG|0 79 BR-NOT-NIL 84 80 PUSH FEF|16 ;'2305 81 PUSH LOCAL|0 82 (MISC) %P-MASK-FIELD D-PDL 83 BR 85 84 PUSH FEF|17 ;' 85 PUSH FEF|18 ;'<:DISPLACED-TO> 86 PUSH LOCAL|0 87 PUSH FEF|19 ;'<:FILL-POINTER> 88 MOVE D-LAST '0 89 POP LOCAL|2 90 PUSH LOCAL|1 91 POP LOCAL|4 92 BR 123 93 MOVE D-IGNORE FEF|7 ;':*FASL-NIBBLE-8BIT* 94 BR-NIL 97 95 CALL0 D-PDL FEF|20 ;'NIL 96 BR 98 97 CALL0 D-PDL FEF|21 ;'NIL 98 POP LOCAL|5 99 PUSH-NUMBER 77 100 LOGAND LOCAL|5 101 = FEF|22 ;'32 102 BR-NIL 119 103 MOVE D-IGNORE FEF|7 ;':*FASL-NIBBLE-8BIT* 104 BR-NIL 107 105 CALL0 D-IGNORE FEF|23 ;'NIL 106 BR 108 107 CALL0 D-IGNORE FEF|24 ;'NIL 108 PUSH 'NIL 109 PUSH LOCAL|2 110 (MISC) VECTOR-PUSH D-IGNORE 111 PUSH LOCAL|0 112 PUSH LOCAL|2 113 ARRAY-LEADER (0) D-PDL 114 PUSH 1- PDL-POP 115 (MISC) AP-1 D-PDL 116 PUSH FEF|6 ;':DTP-NULL 117 (MISC) %P-STORE-DATA-TYPE D-IGNORE 118 BR 122 119 CALL0 D-PDL FEF|12 ;'NIL 120 PUSH LOCAL|2 121 (MISC) VECTOR-PUSH D-IGNORE 122 DECF LOCAL|4 123 ZEROP LOCAL|4 124 BR-NIL 93 125 PUSH LOCAL|0 126 (MISC) NAMED-STRUCTURE-P D-IGNORE 127 BR-NIL 138 128 PUSH FEF|25 ;'<:FASLOAD-FIXUP> 129 CALL D-PDL FEF|26 ;'NIL 130 PUSH FEF|27 ;'<:WHICH-OPERATIONS> 131 MOVE D-LAST LOCAL|0 132 (MISC) MEMQ D-IGNORE 133 BR-NIL 138 134 CALL D-IGNORE FEF|26 ;'NIL 135 PUSH FEF|25 ;'<:FASLOAD-FIXUP> 136 MOVE D-LAST LOCAL|0 137 MOVE D-RETURN LOCAL|3 138 MOVE D-RETURN LOCAL|3 ) (FASL-OP-STOREIN-FUNCTION-CELL [1670] {# 65000406>} (FASL-OP-INDEX [155] {})) (FASL-OP-FRAME 42 CALL0 D-PDL FEF|8 ;'NIL 43 POP LOCAL|3 44 PUSH FEF|7 ;':FASL-TABLE 45 PUSH LOCAL|3 46 (MISC) AR-1 D-PDL 47 MOVEM LOCAL|0 48 (MISC) ARRAYP D-IGNORE 49 BR-NOT-NIL 55 50 CALL D-PDL FEF|9 ;':EH 51 PUSH LOCAL|0 52 PUSH FEF|10 ;' 53 MOVE D-LAST FEF|10 ;' 54 POP LOCAL|0 55 CALL0 D-PDL FEF|11 ;'NIL 56 POP LOCAL|1 57 CALL D-PDL FEF|12 ;'NIL 58 PUSH LOCAL|1 59 PUSH FEF|13 ;'<:AREA> 60 PUSH-NUMBER 57 61 PUSH FEF|14 ;'<:ELEMENT-TYPE> 62 PUSH FEF|15 ;'( 20) 63 PUSH FEF|16 ;'<:DISPLACED-TO> 64 PUSH LOCAL|0 65 PUSH FEF|17 ;'<:FILL-POINTER> 66 MOVE D-LAST '0 67 POP LOCAL|2 68 PUSH LOCAL|1 69 POP LOCAL|4 70 BR 79 71 MOVE D-IGNORE FEF|6 ;':*FASL-NIBBLE-8BIT* 72 BR-NIL 75 73 CALL0 D-PDL FEF|18 ;'NIL 74 BR 76 75 CALL0 D-PDL FEF|19 ;'NIL 76 PUSH LOCAL|2 77 (MISC) VECTOR-PUSH D-IGNORE 78 DECF LOCAL|4 79 ZEROP LOCAL|4 80 BR-NIL 71 81 MOVE D-RETURN LOCAL|3 ) (FASL-OP-STOREIN-FUNCTION-CELL [1692] {# 65003415>} (FASL-OP-INDEX [165] {})) (FASL-OP-FRAME 16 CALL0 D-PDL FEF|6 ;'NIL 17 POP LOCAL|0 18 CALL0 D-PDL FEF|6 ;'NIL 19 PUSH LOCAL|0 20 (MISC) VECTOR-PUSH D-IGNORE 21 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [1704] {# 65005056>} (FASL-OP-INDEX [132] {})) (FASL-OP-FRAME 18 CALL D-RETURN FEF|6 ;'NIL 19 MOVE D-LAST FEF|7 ;'"Obsolete QFASL file." ) (FASL-OP-STOREIN-FUNCTION-CELL [1713] {# 65005233>} (FASL-OP-INDEX [128] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-INDEX [1042] {}) (FASL-OP-INDEX [45] {}) (FASL-OP-SYMBOL ) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-INDEX [110] {}) (FASL-OP-INDEX [45] {}) (FASL-OP-INDEX [1042] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-INDEX [117] {}) (FASL-OP-INDEX [45] {}) (FASL-OP-INDEX [1042] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-INDEX [247] {}) (FASL-OP-INDEX [45] {}) (FASL-OP-INDEX [1042] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [45] {}) (FASL-OP-INDEX [1042] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [45] {}) (FASL-OP-INDEX [1042] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [45] {}) (FASL-OP-INDEX [1042] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [45] {}) (FASL-OP-INDEX [1042] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-INDEX [56] {}) (FASL-OP-INDEX [45] {}) (FASL-OP-INDEX [1042] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [45] {}) (FASL-OP-INDEX [1042] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [45] {}) (FASL-OP-INDEX [1042] {}) => ( )) (EVAL '( ))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1041] {}) (FASL-OP-SYMBOL ) (FASL-OP-INDEX [45] {}) (FASL-OP-INDEX [1042] {}) => ( )) (EVAL '( ))) (FASL-OP-FRAME 46 CALL0 D-PDL FEF|10 ;'NIL 47 POP LOCAL|0 48 BR-ATOM 52 49 CAR D-PDL LOCAL|0 50 EQ FEF|11 ;' 51 BR-NOT-NIL 107 52 MOVE D-IGNORE FEF|9 ;':ACCUMULATE-FASL-FORMS 53 BR-NIL 58 54 PUSH LOCAL|0 55 PUSH FEF|8 ;':LAST-FASL-FILE-FORMS 56 (MISC) CONS D-PDL 57 POP FEF|8 ;':LAST-FASL-FILE-FORMS 58 MOVE D-IGNORE LOCAL|0 59 BR-ATOM 103 60 CAR D-PDL LOCAL|0 61 PUSH FEF|12 ;' 62 (MISC) INTERNAL-GET-2 D-IGNORE 63 BR-NOT-NIL 107 64 PUSH-NUMBER 126 65 (MISC) %CATCH-OPEN D-IGNORE 66 PUSH FEF|14 ;' 67 PUSH FEF|15 ;' 68 PUSH FEF|16 ;' 69 PUSH FEF|14 ;' 70 PUSH-NUMBER 3 71 (MISC) %INTERNAL-LIST D-PDL 72 MOVEM LOCAL|1 73 PUSH FEF|6 ;':CONDITION-HANDLERS 74 PUSH-NUMBER 2 75 (MISC) %INTERNAL-LIST* D-PDL 76 MOVEM LOCAL|2 77 BIND-POP FEF|6 ;':CONDITION-HANDLERS 78 PUSH FEF|12 ;' 79 CALL D-PDL FEF|17 ;'NIL 80 CAR D-LAST LOCAL|0 81 (MISC) ASSQ D-PDL 82 MOVE D-IGNORE PDL-POP 83 (MISC) UNBIND 1 binding 84 (MISC) PDL-POP 9 times 85 BR 87 86 BR 88 87 BR-NOT-NIL 107 88 CAR D-PDL LOCAL|0 89 EQ FEF|18 ;' 90 BR-NIL 95 91 PUSH LOCAL|0 92 (MISC) CADDDR D-PDL 93 EQ 'T 94 BR-NOT-NIL 107 95 CAR D-PDL LOCAL|0 96 EQ FEF|19 ;' 97 BR-NIL 103 98 PUSH LOCAL|0 99 (MISC) CADDDR D-PDL 100 PUSH FEF|12 ;' 101 (MISC) INTERNAL-GET-2 D-IGNORE 102 BR-NOT-NIL 107 103 PUSH LOCAL|0 104 PUSH FEF|7 ;':FASL-FILE-EVALUATIONS 105 (MISC) CONS D-PDL 106 POP FEF|7 ;':FASL-FILE-EVALUATIONS 107 CALL D-RETURN FEF|20 ;'NIL 108 CALL D-LAST FEF|21 ;'NIL 109 MOVE D-LAST LOCAL|0 ) (FASL-OP-STOREIN-FUNCTION-CELL [1766] {# 65007734>} (FASL-OP-INDEX [168] {})) (FASL-OP-FRAME 22 CALL0 D-PDL FEF|7 ;'NIL 23 CALL0 D-PDL FEF|7 ;'NIL 24 POP LOCAL|1 25 POP LOCAL|0 26 PUSH LOCAL|1 27 = FEF|8 ;'177777 28 BR-NIL 33 29 CALL D-RETURN FEF|9 ;'NIL 30 PUSH FEF|6 ;':FASL-TABLE 31 PUSH LOCAL|0 32 (MISC) AR-1 D-LAST 33 PUSH FEF|6 ;':FASL-TABLE 34 PUSH LOCAL|1 35 PUSH FEF|6 ;':FASL-TABLE 36 PUSH LOCAL|0 37 (MISC) AR-1 D-PDL 38 (MISC) SET-AR-1 D-IGNORE 39 MOVE D-RETURN LOCAL|1 ) (FASL-OP-STOREIN-FUNCTION-CELL [1783] {# 65010535>} (FASL-OP-INDEX [129] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL <*SNAP-INDEXED-FORWARDS*>) (FASL-OP-INDEX [250] {}) => ( <*SNAP-INDEXED-FORWARDS*> )) (EVAL '( <*SNAP-INDEXED-FORWARDS*> ))) (FASL-OP-FRAME 60 CALL0 D-PDL FEF|18 ;'NIL 61 CALL0 D-PDL FEF|18 ;'NIL 62 PUSH 'T 63 BIND-POP FEF|6 ;':%INHIBIT-READ-ONLY 64 POP LOCAL|1 65 POP LOCAL|0 66 CALL0 D-PDL FEF|18 ;'NIL 67 POP FEF|17 ;':FASL-GROUP-LENGTH 68 PUSH FEF|16 ;':DTP-FEF-POINTER 69 PUSH FEF|15 ;':DTP-HEADER 70 CALL0 D-PDL FEF|19 ;'NIL 71 PUSH LOCAL|0 72 + LOCAL|1 73 MOVEM LOCAL|2 74 PUSH FEF|14 ;':FASL-TABLE 75 AR-1 (9) D-PDL 76 PUSH LOCAL|2 77 PUSH LOCAL|0 78 (MISC) %MAKE-STRUCTURE D-PDL 79 POP LOCAL|3 80 CALL0 D-IGNORE FEF|18 ;'NIL 81 PUSH FEF|14 ;':FASL-TABLE 82 PUSH-NUMBER 12 83 (MISC) AP-1 D-PDL 84 PUSH-NUMBER 54 85 PUSH FEF|14 ;':FASL-TABLE 86 PUSH-NUMBER 10 87 (MISC) AP-1 D-PDL 88 PUSH-NUMBER 54 89 (MISC) %BIND D-IGNORE 90 (MISC) %BIND D-IGNORE 91 PUSH-NUMBER 1 92 POP LOCAL|7 93 BR 211 94 PUSH LOCAL|7 95 PUSH 1- LOCAL|0 96 = PDL-POP 97 BR-NIL 127 98 PUSH LOCAL|7 99 > '5 100 BR-NIL 127 101 PUSH FEF|20 ;'2701 102 PUSH LOCAL|3 103 PUSH-NUMBER 5 104 (MISC) %P-CONTENTS-OFFSET D-PDL 105 (MISC) LDB D-PDL 106 ZEROP PDL-POP 107 BR-NOT-NIL 127 108 (MISC) SPECIAL-PDL-INDEX D-PDL 109 PUSH FEF|14 ;':FASL-TABLE 110 PUSH-NUMBER 12 111 (MISC) AP-1 D-PDL 112 PUSH FEF|13 ;':DEBUG-INFO-AREA 113 (MISC) %BIND D-IGNORE 114 CALL0 D-PDL FEF|19 ;'NIL 115 POP LOCAL|4 116 (MISC) UNBIND-TO-INDEX D-IGNORE 117 PUSH FEF|21 ;'<:MACROS-EXPANDED> 118 PUSH LOCAL|4 119 (MISC) ASSQ D-PDL 120 POP LOCAL|8 121 BR-NIL 129 122 CALL D-IGNORE FEF|22 ;'NIL 123 CADR D-PDL LOCAL|8 124 CALL D-LAST FEF|23 ;'NIL 125 MOVE D-LAST LOCAL|3 126 BR 129 127 CALL0 D-PDL FEF|19 ;'NIL 128 POP LOCAL|4 129 CALL0 D-PDL FEF|18 ;'NIL 130 POP LOCAL|5 131 PUSH-NUMBER 17 132 LOGAND LOCAL|5 133 MOVEM LOCAL|6 134 ZEROP PDL-POP 135 BR-NOT-NIL 141 136 PUSH FEF|12 ;':DTP-LOCATIVE 137 PUSH LOCAL|4 138 PUSH LOCAL|6 139 (MISC) %MAKE-POINTER-OFFSET D-PDL 140 POP LOCAL|4 141 PUSH LOCAL|4 142 PUSH LOCAL|3 143 PUSH LOCAL|7 144 (MISC) %P-STORE-CONTENTS-OFFSET D-IGNORE 145 CALL D-PDL FEF|24 ;'NIL 146 PUSH LOCAL|5 147 PUSH '-6 148 (MISC) LSH D-LAST 149 PUSH FEF|25 ;'3602 150 PUSH LOCAL|3 151 PUSH LOCAL|7 152 (MISC) %P-DPB-OFFSET D-IGNORE 153 PUSH-NUMBER 20 154 LOGAND LOCAL|5 155 ZEROP PDL-POP 156 BR-NOT-NIL 162 157 PUSH FEF|11 ;':DTP-ONE-Q-FORWARD 158 PUSH '3105 159 PUSH LOCAL|3 160 PUSH LOCAL|7 161 (MISC) %P-DPB-OFFSET D-IGNORE 162 PUSH-NUMBER 400 163 LOGAND LOCAL|5 164 ZEROP PDL-POP 165 BR-NOT-NIL 171 166 PUSH FEF|12 ;':DTP-LOCATIVE 167 PUSH '3105 168 PUSH LOCAL|3 169 PUSH LOCAL|7 170 (MISC) %P-DPB-OFFSET D-IGNORE 171 PUSH '1000 172 LOGAND LOCAL|5 173 ZEROP PDL-POP 174 BR-NOT-NIL 180 175 PUSH FEF|10 ;':DTP-SELF-REF-POINTER 176 PUSH '3105 177 PUSH LOCAL|3 178 PUSH LOCAL|7 179 (MISC) %P-DPB-OFFSET D-IGNORE 180 MOVE D-IGNORE FEF|9 ;':*SNAP-INDEXED-FORWARDS* 181 BR-NIL 210 182 PUSH FEF|11 ;':DTP-ONE-Q-FORWARD 183 PUSH '3105 184 PUSH LOCAL|3 185 PUSH LOCAL|7 186 (MISC) %P-LDB-OFFSET D-PDL 187 = PDL-POP 188 BR-NIL 210 189 PUSH LOCAL|3 190 PUSH LOCAL|7 191 (MISC) %P-CONTENTS-AS-LOCATIVE-OFFSET D-PDL 192 MOVEM LOCAL|9 193 (MISC) %FIND-STRUCTURE-HEADER D-PDL 194 MOVEM LOCAL|10 195 (MISC) SYMBOLP D-IGNORE 196 BR-NIL 210 197 PUSH FEF|8 ;':DTP-INDEXED-FORWARD 198 PUSH LOCAL|9 199 (MISC) %P-DATA-TYPE D-PDL 200 = PDL-POP 201 BR-NIL 210 202 PUSH FEF|12 ;':DTP-LOCATIVE 203 PUSH LOCAL|3 204 PUSH LOCAL|7 205 (MISC) %MAKE-POINTER-OFFSET D-PDL 206 PUSH FEF|8 ;':DTP-INDEXED-FORWARD 207 PUSH LOCAL|9 208 (MISC) %P-POINTER D-PDL 209 (MISC) %P-STORE-TAG-AND-POINTER D-IGNORE 210 INCF LOCAL|7 211 PUSH LOCAL|7 212 < LOCAL|0 213 BR-NOT-NIL 94 214 PUSH LOCAL|0 215 POP LOCAL|7 216 BR 228 217 CALL0 D-PDL FEF|18 ;'NIL 218 PUSH-NUMBER 20 219 PUSH LOCAL|3 220 PUSH LOCAL|7 221 (MISC) %P-DPB-OFFSET D-IGNORE 222 CALL0 D-PDL FEF|18 ;'NIL 223 PUSH '2020 224 PUSH LOCAL|3 225 PUSH LOCAL|7 226 (MISC) %P-DPB-OFFSET D-IGNORE 227 INCF LOCAL|7 228 PUSH LOCAL|7 229 < LOCAL|2 230 BR-NOT-NIL 217 231 MOVE D-IGNORE FEF|7 ;':DONT-CONVERT-DESTINATIONS 232 BR-NOT-NIL 235 233 CALL D-IGNORE FEF|26 ;'NIL 234 MOVE D-LAST LOCAL|3 235 CALL D-IGNORE FEF|27 ;'NIL 236 MOVE D-LAST LOCAL|3 237 CALL D-RETURN FEF|28 ;'NIL 238 MOVE D-LAST LOCAL|3 ) (FASL-OP-STOREIN-FUNCTION-CELL [1831] {# 65011176>} (FASL-OP-INDEX [130] {})) (FASL-OP-FRAME 14 PUSH ARG|1 15 (MISC) EVENP D-IGNORE 16 BR-NIL 19 17 PUSH-NUMBER 20 18 BR 20 19 PUSH '2020 20 PUSH ARG|0 21 PUSH ARG|1 22 PUSH-NUMBER 2 23 (MISC) TRUNCATE one value to stack 24 (MISC) %P-LDB-OFFSET D-RETURN ) (FASL-OP-STOREIN-FUNCTION-CELL [1864] {# 65022402>} (FASL-OP-INDEX [1834] {})) (FASL-OP-FRAME 24 CALL D-PDL FEF|6 ;'NIL 25 MOVE D-LAST ARG|0 26 POP LOCAL|1 27 PUSH-NUMBER 17 28 PUSH ARG|0 29 PUSH-NUMBER 0 30 (MISC) %P-LDB-OFFSET D-PDL 31 BR 91 32 PUSH LOCAL|2 33 (MISC) EVENP D-IGNORE 34 BR-NIL 37 35 PUSH-NUMBER 20 36 BR 38 37 PUSH '2020 38 PUSH ARG|0 39 PUSH LOCAL|2 40 PUSH-NUMBER 2 41 (MISC) TRUNCATE one value to stack 42 (MISC) %P-LDB-OFFSET D-PDL 43 POP LOCAL|3 44 PUSH FEF|7 ;'1104 45 PUSH LOCAL|3 46 (MISC) LDB D-PDL 47 MOVEM LOCAL|4 48 < '11 49 BR-NOT-NIL 53 50 PUSH LOCAL|4 51 = FEF|8 ;'15 52 BR-NIL 85 53 PUSH FEF|9 ;'1503 54 PUSH LOCAL|3 55 (MISC) LDB D-PDL 56 POP LOCAL|5 57 PUSH-NUMBER 0 58 < LOCAL|5 59 BR-NIL 85 60 PUSH LOCAL|5 61 < '4 62 BR-NIL 85 63 PUSH LOCAL|2 64 (MISC) EVENP D-IGNORE 65 BR-NIL 68 66 PUSH-NUMBER 20 67 BR 69 68 PUSH '2020 69 POP LOCAL|6 70 PUSH ARG|0 71 POP LOCAL|7 72 PUSH LOCAL|2 73 PUSH-NUMBER 2 74 (MISC) TRUNCATE one value to stack 75 POP LOCAL|8 76 PUSH-NUMBER 2 77 * LOCAL|5 78 PUSH FEF|9 ;'1503 79 PUSH LOCAL|3 80 (MISC) DPB D-PDL 81 PUSH LOCAL|6 82 PUSH LOCAL|7 83 PUSH LOCAL|8 84 (MISC) %P-DPB-OFFSET D-IGNORE 85 CALL D-PDL FEF|10 ;'NIL 86 PUSH ARG|0 87 MOVE D-LAST LOCAL|2 88 POP LOCAL|0 89 PUSH LOCAL|2 90 + LOCAL|0 91 MOVEM LOCAL|2 92 < LOCAL|1 93 BR-NOT-NIL 32 94 MOVE D-RETURN 'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [1896] {# 65023001>} (FASL-OP-INDEX [1802] {})) (FASL-OP-FRAME 22 PUSH ARG|1 23 (MISC) EVENP D-IGNORE 24 BR-NIL 27 25 PUSH-NUMBER 20 26 BR 28 27 PUSH '2020 28 PUSH ARG|0 29 PUSH ARG|1 30 PUSH-NUMBER 2 31 (MISC) TRUNCATE one value to stack 32 (MISC) %P-LDB-OFFSET D-PDL 33 POP LOCAL|0 34 PUSH FEF|6 ;'1104 35 PUSH LOCAL|0 36 (MISC) LDB D-PDL 37 POP LOCAL|1 38 PUSH-NUMBER 11 39 PUSH LOCAL|0 40 (MISC) LDB D-PDL 41 POP LOCAL|2 42 PUSH LOCAL|1 43 = FEF|7 ;'14 44 BR-NIL 49 45 PUSH LOCAL|2 46 = FEF|8 ;'777 47 BR-NIL 49 48 MOVE D-RETURN '2 49 PUSH LOCAL|1 50 < FEF|7 ;'14 51 BR-NIL 56 52 PUSH LOCAL|2 53 = FEF|9 ;'776 54 BR-NIL 56 55 MOVE D-RETURN '2 56 MOVE D-RETURN '1 ) (FASL-OP-STOREIN-FUNCTION-CELL [1922] {# 65023472>} (FASL-OP-INDEX [1874] {})) (FASL-OP-FRAME 14 PUSH-NUMBER 2 15 PUSH-NUMBER 31 16 PUSH ARG|0 17 PUSH-NUMBER 1 18 (MISC) %P-LDB-OFFSET D-PDL 19 * PDL-POP 20 POP LOCAL|0 21 PUSH ARG|0 22 POP LOCAL|1 23 PUSH 1- LOCAL|0 24 MOVEM LOCAL|2 25 (MISC) EVENP D-IGNORE 26 BR-NIL 29 27 PUSH-NUMBER 20 28 BR 30 29 PUSH '2020 30 PUSH LOCAL|1 31 PUSH LOCAL|2 32 PUSH-NUMBER 2 33 (MISC) TRUNCATE one value to stack 34 (MISC) %P-LDB-OFFSET D-PDL 35 ZEROP PDL-POP 36 BR-NIL 39 37 PUSH LOCAL|0 38 (MISC) 1- D-RETURN 39 MOVE D-RETURN LOCAL|0 ) (FASL-OP-STOREIN-FUNCTION-CELL [1941] {# 65023722>} (FASL-OP-INDEX [1870] {})) (FASL-OP-FRAME 16 CALL0 D-PDL FEF|6 ;'NIL 17 CALL0 D-PDL FEF|6 ;'NIL 18 POP LOCAL|1 19 POP LOCAL|0 20 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [1955] {# 65025037>} (FASL-OP-INDEX [143] {})) (FASL-OP-FRAME 14 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [1963] {# 65025254>} (FASL-OP-INDEX [144] {})) (FASL-OP-FRAME 46 CALL0 D-PDL FEF|9 ;'NIL 47 CALL0 D-PDL FEF|10 ;'NIL 48 CALL0 D-PDL FEF|10 ;'NIL 49 POP LOCAL|2 50 POP LOCAL|1 51 MOVEM LOCAL|0 52 EQ '1 53 BR-NIL 82 54 PUSH LOCAL|2 55 PUSH LOCAL|1 56 (MISC) SET D-IGNORE 57 MOVE D-IGNORE FEF|8 ;':PRINT-LOADED-FORMS 58 BR-NIL 68 59 CALL D-IGNORE FEF|11 ;'NIL 60 PUSH FEF|12 ;' 61 PUSH LOCAL|2 62 PUSH FEF|13 ;' 63 PUSH LOCAL|1 64 PUSH-NUMBER 2 65 (MISC) %INTERNAL-LIST D-PDL 66 PUSH-NUMBER 3 67 (MISC) %INTERNAL-LIST D-LAST 68 MOVE D-IGNORE FEF|7 ;':ACCUMULATE-FASL-FORMS 69 BR-NIL 166 70 PUSH FEF|12 ;' 71 PUSH LOCAL|2 72 PUSH FEF|13 ;' 73 PUSH LOCAL|1 74 PUSH-NUMBER 2 75 (MISC) %INTERNAL-LIST D-PDL 76 PUSH-NUMBER 3 77 (MISC) %INTERNAL-LIST D-PDL 78 PUSH FEF|6 ;':LAST-FASL-FILE-FORMS 79 (MISC) CONS D-PDL 80 POP FEF|6 ;':LAST-FASL-FILE-FORMS 81 MOVE D-RETURN '0 82 PUSH LOCAL|0 83 EQ '2 84 BR-NIL 119 85 CALL D-IGNORE FEF|14 ;'NIL 86 PUSH LOCAL|2 87 MOVE D-LAST LOCAL|1 88 MOVE D-IGNORE FEF|8 ;':PRINT-LOADED-FORMS 89 BR-NIL 102 90 CALL D-IGNORE FEF|11 ;'NIL 91 PUSH FEF|15 ;' 92 PUSH FEF|13 ;' 93 PUSH LOCAL|2 94 PUSH-NUMBER 2 95 (MISC) %INTERNAL-LIST D-PDL 96 PUSH FEF|13 ;' 97 PUSH LOCAL|1 98 PUSH-NUMBER 2 99 (MISC) %INTERNAL-LIST D-PDL 100 PUSH-NUMBER 3 101 (MISC) %INTERNAL-LIST D-LAST 102 MOVE D-IGNORE FEF|7 ;':ACCUMULATE-FASL-FORMS 103 BR-NIL 166 104 PUSH FEF|15 ;' 105 PUSH FEF|13 ;' 106 PUSH LOCAL|2 107 PUSH-NUMBER 2 108 (MISC) %INTERNAL-LIST D-PDL 109 PUSH FEF|13 ;' 110 PUSH LOCAL|1 111 PUSH-NUMBER 2 112 (MISC) %INTERNAL-LIST D-PDL 113 PUSH-NUMBER 3 114 (MISC) %INTERNAL-LIST D-PDL 115 PUSH FEF|6 ;':LAST-FASL-FILE-FORMS 116 (MISC) CONS D-PDL 117 POP FEF|6 ;':LAST-FASL-FILE-FORMS 118 MOVE D-RETURN '0 119 PUSH LOCAL|0 120 EQ '3 121 BR-NIL 160 122 PUSH LOCAL|2 123 (MISC) PROPERTY-CELL-LOCATION D-PDL 124 PUSH LOCAL|1 125 (MISC) SETCDR D-IGNORE 126 MOVE D-IGNORE FEF|8 ;':PRINT-LOADED-FORMS 127 BR-NIL 140 128 CALL D-IGNORE FEF|11 ;'NIL 129 PUSH FEF|16 ;' 130 PUSH FEF|17 ;' 131 PUSH LOCAL|2 132 PUSH-NUMBER 2 133 (MISC) %INTERNAL-LIST D-PDL 134 PUSH FEF|13 ;' 135 PUSH LOCAL|1 136 PUSH-NUMBER 2 137 (MISC) %INTERNAL-LIST D-PDL 138 PUSH-NUMBER 3 139 (MISC) %INTERNAL-LIST D-LAST 140 MOVE D-IGNORE FEF|7 ;':ACCUMULATE-FASL-FORMS 141 BR-NIL 166 142 PUSH FEF|16 ;' 143 PUSH FEF|17 ;' 144 PUSH FEF|13 ;' 145 PUSH LOCAL|2 146 PUSH-NUMBER 2 147 (MISC) %INTERNAL-LIST D-PDL 148 PUSH-NUMBER 2 149 (MISC) %INTERNAL-LIST D-PDL 150 PUSH FEF|13 ;' 151 PUSH LOCAL|1 152 PUSH-NUMBER 2 153 (MISC) %INTERNAL-LIST D-PDL 154 PUSH-NUMBER 3 155 (MISC) %INTERNAL-LIST D-PDL 156 PUSH FEF|6 ;':LAST-FASL-FILE-FORMS 157 (MISC) CONS D-PDL 158 POP FEF|6 ;':LAST-FASL-FILE-FORMS 159 MOVE D-RETURN '0 160 CALL D-IGNORE FEF|18 ;'NIL 161 PUSH 'NIL 162 PUSH FEF|19 ;' 163 PUSH FEF|20 ;' 164 PUSH LOCAL|0 165 MOVE D-LAST FEF|21 ;'( 1 2 3) 166 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [1987] {# 65025347>} (FASL-OP-INDEX [174] {})) (FASL-OP-FRAME 34 PUSH FEF|10 ;':FASL-TABLE 35 CALL0 D-PDL FEF|11 ;'NIL 36 (MISC) AR-1 D-PDL 37 CALL0 D-PDL FEF|12 ;'NIL 38 POP LOCAL|1 39 POP LOCAL|0 40 PUSH LOCAL|1 41 PUSH LOCAL|0 42 (MISC) SET D-IGNORE 43 PUSH FEF|13 ;' 44 PUSH LOCAL|1 45 PUSH FEF|14 ;' 46 PUSH LOCAL|0 47 PUSH-NUMBER 2 48 (MISC) %INTERNAL-LIST D-PDL 49 PUSH-NUMBER 3 50 (MISC) %INTERNAL-LIST D-PDL 51 PUSH FEF|9 ;':FASL-FILE-EVALUATIONS 52 (MISC) CONS D-PDL 53 POP FEF|9 ;':FASL-FILE-EVALUATIONS 54 MOVE D-IGNORE FEF|8 ;':PRINT-LOADED-FORMS 55 BR-NIL 58 56 CALL D-IGNORE FEF|15 ;'NIL 57 CAR D-LAST FEF|9 ;':FASL-FILE-EVALUATIONS 58 MOVE D-IGNORE FEF|7 ;':ACCUMULATE-FASL-FORMS 59 BR-NIL 64 60 CAR D-PDL FEF|9 ;':FASL-FILE-EVALUATIONS 61 PUSH FEF|6 ;':LAST-FASL-FILE-FORMS 62 (MISC) CONS D-PDL 63 POP FEF|6 ;':LAST-FASL-FILE-FORMS 64 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [2001] {# 65026354>} (FASL-OP-INDEX [133] {})) (FASL-OP-FRAME 36 PUSH FEF|9 ;':FASL-TABLE 37 CALL0 D-PDL FEF|10 ;'NIL 38 (MISC) AR-1 D-PDL 39 CALL0 D-PDL FEF|11 ;'NIL 40 POP LOCAL|1 41 POP LOCAL|0 42 CALL D-IGNORE FEF|12 ;'NIL 43 PUSH LOCAL|1 44 MOVE D-LAST LOCAL|0 45 MOVE D-IGNORE FEF|8 ;':PRINT-LOADED-FORMS 46 BR-NIL 62 47 CALL D-IGNORE FEF|13 ;'NIL 48 PUSH FEF|14 ;' 49 PUSH FEF|15 ;' 50 PUSH FEF|16 ;' 51 PUSH LOCAL|1 52 PUSH-NUMBER 2 53 (MISC) %INTERNAL-LIST D-PDL 54 PUSH-NUMBER 2 55 (MISC) %INTERNAL-LIST D-PDL 56 PUSH FEF|16 ;' 57 PUSH LOCAL|0 58 PUSH-NUMBER 2 59 (MISC) %INTERNAL-LIST D-PDL 60 PUSH-NUMBER 3 61 (MISC) %INTERNAL-LIST D-LAST 62 MOVE D-IGNORE FEF|7 ;':ACCUMULATE-FASL-FORMS 63 BR-NIL 81 64 PUSH FEF|14 ;' 65 PUSH FEF|15 ;' 66 PUSH FEF|16 ;' 67 PUSH LOCAL|1 68 PUSH-NUMBER 2 69 (MISC) %INTERNAL-LIST D-PDL 70 PUSH-NUMBER 2 71 (MISC) %INTERNAL-LIST D-PDL 72 PUSH FEF|16 ;' 73 PUSH LOCAL|0 74 PUSH-NUMBER 2 75 (MISC) %INTERNAL-LIST D-PDL 76 PUSH-NUMBER 3 77 (MISC) %INTERNAL-LIST D-PDL 78 PUSH FEF|6 ;':LAST-FASL-FILE-FORMS 79 (MISC) CONS D-PDL 80 POP FEF|6 ;':LAST-FASL-FILE-FORMS 81 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [2017] {# 65026755>} (FASL-OP-INDEX [134] {})) (FASL-OP-FRAME 36 PUSH FEF|10 ;':FASL-TABLE 37 CALL0 D-PDL FEF|11 ;'NIL 38 (MISC) AR-1 D-PDL 39 CALL0 D-PDL FEF|12 ;'NIL 40 POP LOCAL|1 41 POP LOCAL|0 42 PUSH LOCAL|1 43 (MISC) PROPERTY-CELL-LOCATION D-PDL 44 PUSH LOCAL|0 45 (MISC) SETCDR D-IGNORE 46 PUSH FEF|13 ;' 47 PUSH FEF|14 ;' 48 PUSH FEF|15 ;' 49 PUSH LOCAL|1 50 PUSH-NUMBER 2 51 (MISC) %INTERNAL-LIST D-PDL 52 PUSH-NUMBER 2 53 (MISC) %INTERNAL-LIST D-PDL 54 PUSH FEF|15 ;' 55 PUSH LOCAL|0 56 PUSH-NUMBER 2 57 (MISC) %INTERNAL-LIST D-PDL 58 PUSH-NUMBER 3 59 (MISC) %INTERNAL-LIST D-PDL 60 PUSH FEF|9 ;':FASL-FILE-EVALUATIONS 61 (MISC) CONS D-PDL 62 POP FEF|9 ;':FASL-FILE-EVALUATIONS 63 MOVE D-IGNORE FEF|8 ;':PRINT-LOADED-FORMS 64 BR-NIL 67 65 CALL D-IGNORE FEF|16 ;'NIL 66 CAR D-LAST FEF|9 ;':FASL-FILE-EVALUATIONS 67 MOVE D-IGNORE FEF|7 ;':ACCUMULATE-FASL-FORMS 68 BR-NIL 73 69 CAR D-PDL FEF|9 ;':FASL-FILE-EVALUATIONS 70 PUSH FEF|6 ;':LAST-FASL-FILE-FORMS 71 (MISC) CONS D-PDL 72 POP FEF|6 ;':LAST-FASL-FILE-FORMS 73 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [2031] {# 65027374>} (FASL-OP-INDEX [135] {})) (FASL-OP-FRAME 18 PUSH FEF|6 ;':FASL-TABLE 19 CALL0 D-PDL FEF|7 ;'NIL 20 (MISC) AR-1 D-PDL 21 PUSH FEF|6 ;':FASL-TABLE 22 CALL0 D-PDL FEF|7 ;'NIL 23 (MISC) AR-1 D-PDL 24 PUSH FEF|6 ;':FASL-TABLE 25 CALL0 D-PDL FEF|7 ;'NIL 26 (MISC) AR-1 D-PDL 27 POP LOCAL|2 28 POP LOCAL|1 29 MOVEM LOCAL|0 30 PUSH LOCAL|1 31 PUSH LOCAL|2 32 (MISC) SET-ARRAY-LEADER D-IGNORE 33 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [2048] {# 65030722>} (FASL-OP-INDEX [164] {})) (FASL-OP-FRAME 18 CALL D-RETURN FEF|6 ;'NIL 19 CALL0 D-PDL FEF|7 ;'NIL 20 (MISC) SYMEVAL D-LAST ) (FASL-OP-STOREIN-FUNCTION-CELL [2056] {# 65031226>} (FASL-OP-INDEX [136] {})) (FASL-OP-FRAME 18 CALL D-RETURN FEF|6 ;'NIL 19 CALL0 D-PDL FEF|7 ;'NIL 20 (MISC) FUNCTION-CELL-LOCATION D-PDL 21 CDR D-LAST PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [2066] {# 65031353>} (FASL-OP-INDEX [137] {})) (FASL-OP-FRAME 18 CALL D-RETURN FEF|6 ;'NIL 19 CALL0 D-PDL FEF|7 ;'NIL 20 (MISC) PROPERTY-CELL-LOCATION D-PDL 21 CDR D-LAST PDL-POP ) (FASL-OP-STOREIN-FUNCTION-CELL [2076] {# 65031517>} (FASL-OP-INDEX [138] {})) (FASL-OP-FRAME 32 CALL0 D-PDL FEF|10 ;'NIL 33 POP LOCAL|0 34 CALL0 D-PDL FEF|11 ;'NIL 35 POP LOCAL|1 36 PUSH LOCAL|2 37 (MISC) VALUE-CELL-LOCATION D-PDL 38 POP LOCAL|3 39 PUSH-NUMBER 0 40 PUSH LOCAL|0 41 POP LOCAL|5 42 POP LOCAL|4 43 BR 52 44 PUSH LOCAL|3 45 CALL0 D-PDL FEF|11 ;'NIL 46 PUSH FEF|9 ;':FASL-TABLE 47 AR-1 (11) D-PDL 48 (MISC) NCONS-IN-AREA D-PDL 49 MOVEM LOCAL|3 50 (MISC) SETCDR D-IGNORE 51 INCF LOCAL|4 52 PUSH LOCAL|4 53 < LOCAL|5 54 BR-NOT-NIL 44 55 MOVE D-IGNORE FEF|8 ;':ACCUMULATE-FASL-FORMS 56 BR-NIL 71 57 PUSH FEF|12 ;' 58 PUSH FEF|13 ;' 59 PUSH LOCAL|1 60 PUSH-NUMBER 2 61 (MISC) %INTERNAL-LIST D-PDL 62 PUSH FEF|13 ;' 63 PUSH LOCAL|2 64 PUSH-NUMBER 2 65 (MISC) %INTERNAL-LIST D-PDL 66 PUSH-NUMBER 3 67 (MISC) %INTERNAL-LIST D-PDL 68 PUSH FEF|7 ;':LAST-FASL-FILE-FORMS 69 (MISC) CONS D-PDL 70 POP FEF|7 ;':LAST-FASL-FILE-FORMS 71 PUSH LOCAL|1 72 PUSH-NUMBER 1 73 (MISC) %INTERNAL-LIST D-PDL 74 PUSH FEF|6 ;':FASL-FILE-EVALUATIONS 75 (MISC) CONS D-PDL 76 POP FEF|6 ;':FASL-FILE-EVALUATIONS 77 CALL D-RETURN FEF|14 ;'NIL 78 PUSH LOCAL|1 79 PUSH LOCAL|2 80 (MISC) INTERNAL-APPLY D-LAST ) (FASL-OP-STOREIN-FUNCTION-CELL [2096] {# 65032567>} (FASL-OP-INDEX [139] {})) (FASL-OP-FRAME 18 PUSH FEF|7 ;' 19 POP FEF|6 ;':FASL-RETURN-FLAG 20 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [2105] {# 65033411>} (FASL-OP-INDEX [140] {})) (FASL-OP-FRAME 18 PUSH FEF|7 ;' 19 POP FEF|6 ;':FASL-RETURN-FLAG 20 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [2113] {# 65033611>} (FASL-OP-INDEX [141] {})) (FASL-OP-FRAME 20 CALL0 D-PDL FEF|6 ;'NIL 21 POP LOCAL|0 22 PUSH-NUMBER 0 23 PUSH LOCAL|0 24 POP LOCAL|2 25 POP LOCAL|1 26 BR 29 27 CALL0 D-IGNORE FEF|7 ;'NIL 28 INCF LOCAL|1 29 PUSH LOCAL|1 30 < LOCAL|2 31 BR-NOT-NIL 27 32 CALL0 D-RETURN FEF|8 ;'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [2127] {# 65034356>} (FASL-OP-INDEX [142] {})) (FASL-OP-FRAME 22 CALL0 D-PDL FEF|7 ;'NIL 23 CALL0 D-PDL FEF|8 ;'NIL 24 POP LOCAL|1 25 POP LOCAL|0 26 PUSH FEF|6 ;':FASL-TABLE 27 CALL D-PDL FEF|9 ;'NIL 28 MOVE D-LAST LOCAL|0 29 PUSH FEF|6 ;':FASL-TABLE 30 PUSH LOCAL|1 31 (MISC) AR-1 D-PDL 32 (MISC) SET-AR-1 D-IGNORE 33 MOVE D-RETURN '0 ) (FASL-OP-STOREIN-FUNCTION-CELL [2141] {# 65034734>} (FASL-OP-INDEX [154] {})) (FASL-OP-FRAME Arg 0 (NIL) is required, local, not initialized. Rest arg (NIL) is local, not initialized. Local 1 (NIL) is local, not initialized. Local 2 (NIL) is local, initialized to '<:ABORT>. 74 PUSH-NUMBER 247 75 PUSH-NUMBER 4 76 (MISC) %CATCH-OPEN-MV D-IGNORE 77 PUSH 'T 78 CALL D-PDL FEF|22 ;'NIL 79 CALL D-PDL FEF|23 ;':FS 80 PUSH ARG|0 81 PUSH FEF|7 ;':LOAD-PATHNAME-DEFAULTS 82 MOVE D-LAST FEF|24 ;'<:QFASL> 83 PUSH FEF|25 ;'<:DIRECTION> 84 PUSH FEF|26 ;'<:OUTPUT> 85 PUSH FEF|27 ;'<:CHARACTERS> 86 PUSH 'NIL 87 PUSH FEF|28 ;'<:BYTE-SIZE> 88 MOVE D-LAST FEF|6 ;':*FASL-BYTE-SIZE* 89 MOVEM LOCAL|1 90 POP LOCAL|3 91 PUSH LOCAL|0 92 POP LOCAL|4 93 BR-NIL 164 94 PUSH FEF|29 ;'<:ABORT> 95 POP LOCAL|6 96 SET-NIL LOCAL|5 97 PUSH-NUMBER 231 98 PUSH-NUMBER 4 99 (MISC) %CATCH-OPEN-MV D-IGNORE 100 PUSH 'T 101 CALL D-PDL FEF|22 ;'NIL 102 CALL D-PDL FEF|23 ;':FS 103 CAR D-PDL LOCAL|4 104 PUSH FEF|7 ;':LOAD-PATHNAME-DEFAULTS 105 MOVE D-LAST FEF|24 ;'<:QFASL> 106 PUSH FEF|25 ;'<:DIRECTION> 107 PUSH FEF|31 ;'<:INPUT> 108 PUSH FEF|27 ;'<:CHARACTERS> 109 PUSH 'NIL 110 PUSH FEF|28 ;'<:BYTE-SIZE> 111 MOVE D-LAST FEF|6 ;':*FASL-BYTE-SIZE* 112 MOVEM LOCAL|5 113 POP LOCAL|7 114 PUSH LOCAL|4 115 EQ LOCAL|0 116 BR-NOT-NIL 121 117 CALL D-IGNORE LOCAL|7 118 MOVE D-LAST FEF|32 ;'<:TYI> 119 CALL D-IGNORE LOCAL|7 120 MOVE D-LAST FEF|32 ;'<:TYI> 121 CALL D-PDL LOCAL|7 122 MOVE D-LAST FEF|32 ;'<:TYI> 123 CALL D-PDL LOCAL|7 124 MOVE D-LAST FEF|32 ;'<:TYI> 125 SET-NIL LOCAL|10 126 POP LOCAL|9 127 POP LOCAL|8 128 BR-NIL 150 129 CALL D-PDL LOCAL|7 130 MOVE D-LAST FEF|32 ;'<:TYI> 131 POP LOCAL|10 132 BR-NOT-NIL 141 133 MOVE D-IGNORE LOCAL|9 134 BR-NIL 137 135 ZEROP LOCAL|9 136 BR-NIL 141 137 CDR D-IGNORE LOCAL|4 138 BR-NOT-NIL 144 139 ZEROP LOCAL|8 140 BR-NOT-NIL 144 141 CALL D-IGNORE LOCAL|3 142 PUSH FEF|33 ;'<:TYO> 143 MOVE D-LAST LOCAL|8 144 PUSH LOCAL|9 145 POP LOCAL|8 146 PUSH LOCAL|10 147 POP LOCAL|9 148 MOVE D-IGNORE LOCAL|8 149 BR-NOT-NIL 129 150 PUSH 'NIL 151 SET-NIL LOCAL|6 152 MOVE D-LAST PDL-POP 153 MOVE D-IGNORE LOCAL|5 154 BR-NIL 161 155 CALL D-IGNORE FEF|34 ;'NIL 156 MOVE D-LAST LOCAL|5 157 BR-NOT-NIL 161 158 CALL D-IGNORE LOCAL|5 159 PUSH FEF|35 ;'<:CLOSE> 160 MOVE D-LAST LOCAL|6 161 (MISC) %UNWIND-PROTECT-CONTINUE D-IGNORE 162 SETE-CDR LOCAL|4 163 BR-NOT-NIL 94 164 PUSH ARG|0 165 SET-NIL LOCAL|2 166 MOVE D-RETURN PDL-POP 167 MOVE D-IGNORE LOCAL|1 168 BR-NIL 175 169 CALL D-IGNORE FEF|34 ;'NIL 170 MOVE D-LAST LOCAL|1 171 BR-NOT-NIL 175 172 CALL D-IGNORE LOCAL|1 173 PUSH FEF|35 ;'<:CLOSE> 174 MOVE D-LAST LOCAL|2 175 (MISC) %UNWIND-PROTECT-CONTINUE D-RETURN ) (FASL-OP-STOREIN-FUNCTION-CELL [2195] {# 65035170>} (FASL-OP-INDEX [2144] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL <*MACHINE-FASLING-ON*>) (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [40] {"COMPILER"}) (FASL-OP-STRING "TARGET-PROCESSOR-SYMBOL") ) => ()) (FASL-OP-STRING "Machine on which FASL input is being loaded") => ( <*MACHINE-FASLING-ON*> () "Machine on which FASL input is being loaded")) (EVAL '( <*MACHINE-FASLING-ON*> () "Machine on which FASL input is being loaded"))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-SYMBOL <*FASL-VERSION*>) (FASL-OP-FIXED 2) (FASL-OP-STRING "Version number of internal FASL format currently supported") => ( <*FASL-VERSION*> 2 "Version number of internal FASL format currently supported")) (EVAL '( <*FASL-VERSION*> 2 "Version number of internal FASL format currently supported"))) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [110] {}) (FASL-OP-INDEX [702] {}) (FASL-OP-FIXED 2) (FASL-OP-STRING "Version number of current FASL") => ( 2 "Version number of current FASL")) (EVAL '( 2 "Version number of current FASL"))) (FASL-OP-FRAME 16 CALL0 D-IGNORE FEF|6 ;'NIL 17 MOVE D-RETURN 'T ) (FASL-OP-STOREIN-FUNCTION-CELL [2219] {# 65040440>} (FASL-OP-INDEX [723] {})) (FASL-OP-FRAME 32 CALL0 D-PDL FEF|9 ;'NIL 33 CALL0 D-PDL FEF|9 ;'NIL 34 POP LOCAL|1 35 MOVEM LOCAL|0 36 PUSH FEF|8 ;':*MACHINE-FASLING-ON* 37 (MISC) EQL D-IGNORE 38 BR-NOT-NIL 43 39 CALL D-IGNORE FEF|10 ;'NIL 40 PUSH FEF|11 ;'"File was compiled for ~A and is being loaded on ~A." 41 PUSH LOCAL|0 42 MOVE D-LAST FEF|8 ;':*MACHINE-FASLING-ON* 43 PUSH LOCAL|1 44 PUSH FEF|7 ;':*FASL-VERSION* 45 (MISC) EQL D-IGNORE 46 BR-NOT-NIL 60 47 PUSH LOCAL|1 48 EQ '1 49 BR-NIL 56 50 PUSH FEF|7 ;':*FASL-VERSION* 51 EQ '2 52 BR-NIL 56 53 PUSH FEF|8 ;':*MACHINE-FASLING-ON* 54 EQ FEF|12 ;'<:LAMBDA> 55 BR-NOT-NIL 60 56 CALL D-IGNORE FEF|10 ;'NIL 57 PUSH FEF|13 ;'"File was compiled with version ~A FASL format; version ~A was expected." 58 PUSH LOCAL|1 59 MOVE D-LAST FEF|7 ;':*FASL-VERSION* 60 PUSH LOCAL|1 61 POP FEF|6 ;':FASL-INTERNAL-VERSION 62 CALL D-RETURN FEF|14 ;'NIL 63 MOVE D-LAST 'NIL ) (FASL-OP-STOREIN-FUNCTION-CELL [2238] {# 65040563>} (FASL-OP-INDEX [175] {})) (FASL-OP-FRAME 22 CALL D-RETURN FEF|7 ;':FASL-GENERIC-PLIST-RECEIVER 23 PUSH FEF|8 ;'<:PUTPROP> 24 PUSH FEF|6 ;':FASL-INTERNAL-VERSION 25 MOVE D-LAST FEF|9 ;'<:FASL-VERSION> ) (FASL-OP-STOREIN-FUNCTION-CELL [2250] {# 65041245>} (FASL-OP-INDEX [724] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1027] {}) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-LIST [55] Area=WORKING-STORAGE-AREA (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [2083] {}) (FASL-OP-FIXED 1056157) => ( 1056157)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1970] {}) (FASL-OP-FIXED 35461533) => ( 35461533)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1976] {}) (FASL-OP-FIXED 7535144) => ( 7535144)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1928] {}) (FASL-OP-FIXED 21413607) => ( 21413607)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1875] {}) (FASL-OP-FIXED 35226107) => ( 35226107)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1834] {}) (FASL-OP-FIXED 11253012) => ( 11253012)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1806] {}) (FASL-OP-FIXED 6265466) => ( 6265466)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1805] {}) (FASL-OP-FIXED 5266631) => ( 5266631)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1804] {}) (FASL-OP-FIXED 6176414) => ( 6176414)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1758] {}) (FASL-OP-FIXED 4076306) => ( 4076306)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1757] {}) (FASL-OP-FIXED 15250572) => ( 15250572)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1650] {}) (FASL-OP-FIXED 27342154) => ( 27342154)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1649] {}) (FASL-OP-FIXED 36173654) => ( 36173654)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1482] {}) (FASL-OP-FIXED 37573463) => ( 37573463)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1481] {<%SINGLE-FLOAT-EXPONENT>}) (FASL-OP-FIXED 1203132) => (<%SINGLE-FLOAT-EXPONENT> 1203132)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1441] {<%POINTER-PLUS>}) (FASL-OP-FIXED 32205506) => (<%POINTER-PLUS> 32205506)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1296] {}) (FASL-OP-FIXED 10776102) => ( 10776102)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1058] {}) (FASL-OP-FIXED 33267116) => ( 33267116)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1093] {}) (FASL-OP-FIXED 25723306) => ( 25723306)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [1013] {}) (FASL-OP-FIXED 37403313) => ( 37403313)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [937] {}) (FASL-OP-FIXED 15351352) => ( 15351352)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [936] {}) (FASL-OP-FIXED 23530756) => ( 23530756)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [935] {}) (FASL-OP-FIXED 25612421) => ( 25612421)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [934] {}) (FASL-OP-FIXED 1157446) => ( 1157446)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [933] {}) (FASL-OP-FIXED 23741744) => ( 23741744)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [932] {}) (FASL-OP-FIXED 17647512) => ( 17647512)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [931] {}) (FASL-OP-FIXED 33571236) => ( 33571236)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [930] {}) (FASL-OP-FIXED 30356030) => ( 30356030)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [929] {}) (FASL-OP-FIXED 5724264) => ( 5724264)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [928] {}) (FASL-OP-FIXED 37567607) => ( 37567607)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [764] {}) (FASL-OP-FIXED 37655552) => ( 37655552)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [763] {}) (FASL-OP-FIXED 17061227) => ( 17061227)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [708] {}) (FASL-OP-FIXED 26704327) => ( 26704327)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [762] {}) (FASL-OP-FIXED 14377771) => ( 14377771)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [426] {}) (FASL-OP-FIXED 37056623) => ( 37056623)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [761] {}) (FASL-OP-FIXED 27124135) => ( 27124135)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [760] {}) (FASL-OP-FIXED 21200777) => ( 21200777)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [671] {}) (FASL-OP-FIXED 26347067) => ( 26347067)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [670] {}) (FASL-OP-FIXED 33006173) => ( 33006173)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [610] {}) (FASL-OP-FIXED 17171721) => ( 17171721)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [609] {}) (FASL-OP-FIXED 36013402) => ( 36013402)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [608] {}) (FASL-OP-FIXED 27740223) => ( 27740223)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [407] {}) (FASL-OP-FIXED 7115100) => ( 7115100)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [462] {}) (FASL-OP-FIXED 36121672) => ( 36121672)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [466] {}) (FASL-OP-FIXED 16640044) => ( 16640044)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [483] {}) (FASL-OP-FIXED 35276704) => ( 35276704)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [474] {}) (FASL-OP-FIXED 16250410) => ( 16250410)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [476] {}) (FASL-OP-FIXED 5513564) => ( 5513564)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [454] {}) (FASL-OP-FIXED 1120530) => ( 1120530)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [383] {}) (FASL-OP-FIXED 17253672) => ( 17253672)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [382] {}) (FASL-OP-FIXED 7447475) => ( 7447475)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [208] {}) (FASL-OP-FIXED 37707667) => ( 37707667)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [207] {}) (FASL-OP-FIXED 21547672) => ( 21547672)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [206] {}) (FASL-OP-FIXED 22543670) => ( 22543670)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [205] {}) (FASL-OP-FIXED 12776506) => ( 12776506)) => (( 1056157) ( 35461533) ( 7535144) ( 21413607) ( 35226107) ( 11253012) ( 6265466) ( 5266631) ( 6176414) ( 4076306) ( 15250572) ( 27342154) ( 36173654) ( 37573463) (<%SINGLE-FLOAT-EXPONENT> 1203132) (<%POINTER-PLUS> 32205506) ( 10776102) ( 33267116) ( 25723306) ( 37403313) ( 15351352) ( 23530756) ( 25612421) ( 1157446) ( 23741744) ( 17647512) ( 33571236) ( 30356030) ( 5724264) ( 37567607) ( 37655552) ( 17061227) ( 26704327) ( 14377771) ( 37056623) ( 27124135) ( 21200777) ( 26347067) ( 33006173) ( 17171721) ( 36013402) ( 27740223) ( 7115100) ( 36121672) ( 16640044) ( 35276704) ( 16250410) ( 5513564) ( 1120530) ( 17253672) ( 7447475) ( 37707667) ( 21547672) ( 22543670) ( 12776506))) => ( (( 1056157) ( 35461533) ( 7535144) ( 21413607) ( 35226107) ( 11253012) ( 6265466) ( 5266631) ( 6176414) ( 4076306) ( 15250572) ( 27342154) ( 36173654) ( 37573463) (<%SINGLE-FLOAT-EXPONENT> 1203132) (<%POINTER-PLUS> 32205506) ( 10776102) ( 33267116) ( 25723306) ( 37403313) ( 15351352) ( 23530756) ( 25612421) ( 1157446) ( 23741744) ( 17647512) ( 33571236) ( 30356030) ( 5724264) ( 37567607) ( 37655552) ( 17061227) ( 26704327) ( 14377771) ( 37056623) ( 27124135) ( 21200777) ( 26347067) ( 33006173) ( 17171721) ( 36013402) ( 27740223) ( 7115100) ( 36121672) ( 16640044) ( 35276704) ( 16250410) ( 5513564) ( 1120530) ( 17253672) ( 7447475) ( 37707667) ( 21547672) ( 22543670) ( 12776506)))) => ( ( (( 1056157) ( 35461533) ( 7535144) ( 21413607) ( 35226107) ( 11253012) ( 6265466) ( 5266631) ( 6176414) ( 4076306) ( 15250572) ( 27342154) ( 36173654) ( 37573463) (<%SINGLE-FLOAT-EXPONENT> 1203132) (<%POINTER-PLUS> 32205506) ( 10776102) ( 33267116) ( 25723306) ( 37403313) ( 15351352) ( 23530756) ( 25612421) ( 1157446) ( 23741744) ( 17647512) ( 33571236) ( 30356030) ( 5724264) ( 37567607) ( 37655552) ( 17061227) ( 26704327) ( 14377771) ( 37056623) ( 27124135) ( 21200777) ( 26347067) ( 33006173) ( 17171721) ( 36013402) ( 27740223) ( 7115100) ( 36121672) ( 16640044) ( 35276704) ( 16250410) ( 5513564) ( 1120530) ( 17253672) ( 7447475) ( 37707667) ( 21547672) ( 22543670) ( 12776506))))) (EVAL '( ( (( 1056157) ( 35461533) ( 7535144) ( 21413607) ( 35226107) ( 11253012) ( 6265466) ( 5266631) ( 6176414) ( 4076306) ( 15250572) ( 27342154) ( 36173654) ( 37573463) (<%SINGLE-FLOAT-EXPONENT> 1203132) (<%POINTER-PLUS> 32205506) ( 10776102) ( 33267116) ( 25723306) ( 37403313) ( 15351352) ( 23530756) ( 25612421) ( 1157446) ( 23741744) ( 17647512) ( 33571236) ( 30356030) ( 5724264) ( 37567607) ( 37655552) ( 17061227) ( 26704327) ( 14377771) ( 37056623) ( 27124135) ( 21200777) ( 26347067) ( 33006173) ( 17171721) ( 36013402) ( 27740223) ( 7115100) ( 36121672) ( 16640044) ( 35276704) ( 16250410) ( 5513564) ( 1120530) ( 17253672) ( 7447475) ( 37707667) ( 21547672) ( 22543670) ( 12776506)))))) (FASL-OP-END-OF-WHACK) (FASL-OP-END-OF-FILE)