; -*- Mode:TEXT -*- ; This is the UNFASL for DJ: L.ZWEI; COMH.QFASL#21 (SI::FASL-OP-VERSION-INFO (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "") (SYSTEM:FASL-OP-STRING "LAMBDA") <:LAMBDA>) (SYSTEM:FASL-OP-FIXED 2)) (SYSTEM:FASL-OP-END-OF-WHACK) (SYSTEM:FASL-OP-FILE-PROPERTY-LIST (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "") (SYSTEM:FASL-OP-STRING "COMPILE-DATA") <:COMPILE-DATA>) (SYSTEM:FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-STRING "keith") (SYSTEM:FASL-OP-STRING "Djinn") (SYSTEM:FASL-OP-FIXED 24707670465) (SYSTEM:FASL-OP-FIXED 201) (SYSTEM:FASL-OP-FIXED 0) (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "COMPILER") (SYSTEM:FASL-OP-STRING "NEW-DESTINATIONS") ) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "GLOBAL") (SYSTEM:FASL-OP-STRING "T") ) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "SITE") <:SITE>) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "LMI") <:LMI>) => ( <:SITE> <:LMI>)) => ("keith" "Djinn" 24707670465 201 0 ( <:SITE> <:LMI>))) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "QFASL-SOURCE-FILE-UNIQUE-ID") <:QFASL-SOURCE-FILE-UNIQUE-ID>) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "FS") (SYSTEM:FASL-OP-STRING "MAKE-FASLOAD-PATHNAME") ) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [43] {"GLOBAL"}) (SYSTEM:FASL-OP-STRING "QUOTE") ) (SYSTEM:FASL-OP-STRING "DJ") => ( "DJ")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "DSK") => ( "DSK")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-STRING "L") (SYSTEM:FASL-OP-STRING "ZWEI") => ("L" "ZWEI")) => ( ("L" "ZWEI"))) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "COMH") => ( "COMH")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "LISP") => ( "LISP")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-FIXED 25) => ( 25)) => ( ( "DJ") ( "DSK") ( ("L" "ZWEI")) ( "COMH") ( "LISP") ( 25))) (EVAL '( ( "DJ") ( "DSK") ( ("L" "ZWEI")) ( "COMH") ( "LISP") ( 25)))) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "PACKAGE") <:PACKAGE>) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "ZWEI") <:ZWEI>) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "BASE") <:BASE>) (SYSTEM:FASL-OP-FIXED 10) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "READTABLE") <:READTABLE>) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "ZL") <:ZL>) => (<:COMPILE-DATA> ("keith" "Djinn" 24707670465 201 0 ( <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (SI::**EVAL** (QUOTE ( ( "DJ") ( "DSK") ( ("L" "ZWEI")) ( "COMH") ( "LISP") ( 25)))) <:PACKAGE> <:ZWEI> <:BASE> 10 <:READTABLE> <:ZL>))) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-SYMBOL ) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-SYMBOL ) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "Uppercase the region, but not strings, comments, etc. Characters preceded by escape characters are also immune.") => ( "Uppercase the region, but not strings, comments, etc. Characters preceded by escape characters are also immune.")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-SYMBOL ) => ( )) => ( ( ) ( "Uppercase the region, but not strings, comments, etc. Characters preceded by escape characters are also immune.") ( ))) (EVAL '( ( ) ( "Uppercase the region, but not strings, comments, etc. Characters preceded by escape characters are also immune.") ( )))) (SYSTEM:FASL-OP-FRAME 16 CALL D-RETURN FEF|6 ;'NIL 17 MOVE D-LAST 'T ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [110] {# 62701256>} (SYSTEM:FASL-OP-INDEX [88] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [87] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-SYMBOL ) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "Lowercase the region, but not strings, comments, etc. Characters preceded by escape characters are also immune.") => ( "Lowercase the region, but not strings, comments, etc. Characters preceded by escape characters are also immune.")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [92] {}) => ( )) => ( ( ) ( "Lowercase the region, but not strings, comments, etc. Characters preceded by escape characters are also immune.") ( ))) (EVAL '( ( ) ( "Lowercase the region, but not strings, comments, etc. Characters preceded by escape characters are also immune.") ( )))) (SYSTEM:FASL-OP-FRAME 16 CALL D-RETURN FEF|6 ;'NIL 17 MOVE D-LAST 'NIL ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [126] {# 62702143>} (SYSTEM:FASL-OP-INDEX [111] {})) (SYSTEM:FASL-OP-FRAME 52 PUSH FEF|7 ;':*WINDOW* 53 PUSH FEF|8 ;' 54 (MISC) LOCATE-IN-INSTANCE D-PDL 55 CDR D-PDL PDL-POP 56 PUSH FEF|7 ;':*WINDOW* 57 PUSH FEF|9 ;' 58 (MISC) LOCATE-IN-INSTANCE D-PDL 59 CDR D-PDL PDL-POP 60 POP LOCAL|5 61 POP LOCAL|4 62 PUSH FEF|7 ;':*WINDOW* 63 PUSH FEF|10 ;' 64 (MISC) LOCATE-IN-INSTANCE D-PDL 65 CDR D-IGNORE PDL-POP 66 BR-NOT-NIL 70 67 CALL D-IGNORE FEF|11 ;'NIL 68 MOVE D-LAST FEF|12 ;'"There is no region." 69 BR 78 70 CALL D-IGNORE FEF|13 ;'NIL 71 PUSH LOCAL|5 72 MOVE D-LAST LOCAL|4 73 BR-NIL 78 74 PUSH LOCAL|5 75 PUSH LOCAL|4 76 POP LOCAL|5 77 POP LOCAL|4 78 PUSH FEF|14 ;'NIL 79 PUSH-NUMBER 3 80 (MISC) %CALL-MULT-VALUE D-IGNORE 81 MOVE D-LAST LOCAL|4 82 POP LOCAL|8 83 POP LOCAL|7 84 POP LOCAL|6 85 PUSH FEF|15 ;'(<:INTERNAL> 0) 86 MAKE-LEXICAL-CLOSURE-TOP-LEVEL local slot 10 87 POP LOCAL|9 88 CALL D-PDL FEF|16 ;'NIL 89 MOVE D-LAST LOCAL|4 90 POP LOCAL|0 91 CALL D-PDL FEF|16 ;'NIL 92 MOVE D-LAST LOCAL|4 93 POP LOCAL|1 94 BR 180 95 CALL D-IGNORE FEF|17 ;'NIL 96 MOVE D-LAST LOCAL|1 97 PUSH-NUMBER 10 98 CALL D-PDL FEF|18 ;'NIL 99 MOVE D-LAST LOCAL|1 100 (MISC) LDB D-PDL 101 (MISC) INT-CHAR D-PDL 102 POP LOCAL|2 103 CALL D-PDL FEF|19 ;'NIL 104 PUSH LOCAL|2 105 MOVE D-LAST FEF|6 ;':*MODE-LIST-SYNTAX-TABLE* 106 POP LOCAL|3 107 MOVE D-IGNORE LOCAL|8 108 BR-NIL 119 109 PUSH LOCAL|2 110 EQ '#/RETURN 111 BR-NIL 180 112 SET-NIL LOCAL|8 113 CALL D-IGNORE FEF|20 ;'NIL 114 PUSH LOCAL|0 115 MOVE D-LAST LOCAL|1 116 CALL D-IGNORE FEF|17 ;'NIL 117 MOVE D-LAST LOCAL|0 118 BR 180 119 MOVE D-IGNORE LOCAL|7 120 BR-NIL 128 121 SET-NIL LOCAL|7 122 CALL D-IGNORE FEF|20 ;'NIL 123 PUSH LOCAL|0 124 MOVE D-LAST LOCAL|1 125 CALL D-IGNORE FEF|17 ;'NIL 126 MOVE D-LAST LOCAL|0 127 BR 180 128 PUSH LOCAL|3 129 = '2 130 BR-NIL 136 131 PUSH LOCAL|1 132 POP LOCAL|7 133 MOVE D-IGNORE LOCAL|6 134 BR-NOT-NIL 180 135 BR 179 136 MOVE D-IGNORE LOCAL|6 137 BR-NIL 148 138 PUSH LOCAL|2 139 EQ LOCAL|6 140 BR-NIL 180 141 SET-NIL LOCAL|6 142 CALL D-IGNORE FEF|20 ;'NIL 143 PUSH LOCAL|0 144 MOVE D-LAST LOCAL|1 145 CALL D-IGNORE FEF|17 ;'NIL 146 MOVE D-LAST LOCAL|0 147 BR 180 148 PUSH LOCAL|3 149 = '7 150 BR-NOT-NIL 154 151 PUSH LOCAL|3 152 = '3 153 BR-NIL 163 154 PUSH LOCAL|3 155 = '7 156 BR-NIL 160 157 PUSH 'T 158 POP LOCAL|8 159 BR 179 160 PUSH LOCAL|2 161 POP LOCAL|6 162 BR 179 163 MOVE D-IGNORE LOCAL|8 164 BR-NOT-NIL 180 165 MOVE D-IGNORE LOCAL|6 166 BR-NOT-NIL 180 167 MOVE D-IGNORE LOCAL|7 168 BR-NOT-NIL 180 169 PUSH LOCAL|2 170 EQ FEF|21 ;'134 171 BR-NIL 180 172 CALL D-PDL FEF|22 ;'NIL 173 MOVE D-LAST LOCAL|1 174 PUSH '#/# 175 (MISC) INTERNAL-CHAR-EQUAL D-IGNORE 176 BR-NIL 180 177 PUSH 'T 178 POP LOCAL|7 179 CALL0 D-IGNORE LOCAL|9 180 CALL D-IGNORE FEF|23 ;'NIL 181 PUSH LOCAL|1 182 MOVE D-LAST LOCAL|5 183 BR-NIL 95 184 MOVE D-IGNORE LOCAL|8 185 BR-NOT-NIL 190 186 MOVE D-IGNORE LOCAL|6 187 BR-NOT-NIL 190 188 MOVE D-IGNORE LOCAL|7 189 BR-NIL 191 190 MOVE D-RETURN '4 191 CALL0 D-IGNORE LOCAL|9 192 MOVE D-RETURN '4 ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [215] {# 62702275>} (SYSTEM:FASL-OP-INDEX [101] {})) (SYSTEM:FASL-OP-FRAME (<:INTERNAL> ) 30 PUSH-NUMBER 77 31 PUSH-NUMBER 4 32 (MISC) %CATCH-OPEN-MV D-IGNORE 33 PUSH 'T 34 PUSH 'T 35 BIND-POP FEF|6 ;':*BATCH-UNDO-SAVE* 36 CALL D-IGNORE FEF|8 ;'NIL 37 PUSH-NUMBER 1 38 (MISC) %LOAD-FROM-HIGHER-CONTEXT D-PDL 39 PUSH-NUMBER 0 40 (MISC) %LOAD-FROM-HIGHER-CONTEXT D-PDL 41 PUSH 'T 42 PUSH-NUMBER 2 43 (MISC) %LOAD-FROM-HIGHER-CONTEXT D-IGNORE 44 BR-NIL 47 45 MOVE D-LAST FEF|9 ;'"Upcase Lisp Code" 46 BR 48 47 MOVE D-LAST FEF|10 ;'"Downcase Lisp Code" 48 PUSH-NUMBER 2 49 (MISC) %LOAD-FROM-HIGHER-CONTEXT D-IGNORE 50 BR-NIL 57 51 CALL D-RETURN FEF|11 ;'NIL 52 PUSH-NUMBER 1 53 (MISC) %LOAD-FROM-HIGHER-CONTEXT D-PDL 54 PUSH-NUMBER 0 55 (MISC) %LOAD-FROM-HIGHER-CONTEXT D-PDL 56 MOVE D-LAST 'T 57 CALL D-RETURN FEF|12 ;'NIL 58 PUSH-NUMBER 1 59 (MISC) %LOAD-FROM-HIGHER-CONTEXT D-PDL 60 PUSH-NUMBER 0 61 (MISC) %LOAD-FROM-HIGHER-CONTEXT D-PDL 62 MOVE D-LAST 'T 63 CALL0 D-IGNORE FEF|13 ;'NIL 64 (MISC) %UNWIND-PROTECT-CONTINUE D-RETURN ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [244] {# ) 62704771>} (SYSTEM:FASL-OP-INDEX [144] {(<:INTERNAL> 0)})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [87] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-SYMBOL ) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "Stick comment start characters at the start of each line in the region. Adds regardless of any that may already be there. A numeric argument specifies how many to add. A negative argument species how many to delete. An argument of c-U is treated like -1: it deletes single comment starts.") => ( "Stick comment start characters at the start of each line in the region. Adds regardless of any that may already be there. A numeric argument specifies how many to add. A negative argument species how many to delete. An argument of c-U is treated like -1: it deletes single comment starts.")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [92] {}) => ( )) => ( ( ) ( "Stick comment start characters at the start of each line in the region. Adds regardless of any that may already be there. A numeric argument specifies how many to add. A negative argument species how many to delete. An argument of c-U is treated like -1: it deletes single comment starts.") ( ))) (EVAL '( ( ) ( "Stick comment start characters at the start of each line in the region. Adds regardless of any that may already be there. A numeric argument specifies how many to add. A negative argument species how many to delete. An argument of c-U is treated like -1: it deletes single comment starts.") ( )))) (SYSTEM:FASL-OP-FRAME 56 PUSH FEF|9 ;':*NUMERIC-ARG-P* 57 EQ FEF|10 ;'<:CONTROL-U> 58 BR-NIL 63 59 PUSH FEF|8 ;':*NUMERIC-ARG* 60 PUSH '-4 61 (MISC) %DIV D-PDL 62 POP FEF|8 ;':*NUMERIC-ARG* 63 PUSH FEF|7 ;':*WINDOW* 64 PUSH FEF|11 ;' 65 (MISC) LOCATE-IN-INSTANCE D-PDL 66 CDR D-PDL PDL-POP 67 PUSH FEF|7 ;':*WINDOW* 68 PUSH FEF|12 ;' 69 (MISC) LOCATE-IN-INSTANCE D-PDL 70 CDR D-PDL PDL-POP 71 POP LOCAL|1 72 POP LOCAL|0 73 PUSH FEF|7 ;':*WINDOW* 74 PUSH FEF|13 ;' 75 (MISC) LOCATE-IN-INSTANCE D-PDL 76 CDR D-IGNORE PDL-POP 77 BR-NOT-NIL 81 78 CALL D-IGNORE FEF|14 ;'NIL 79 MOVE D-LAST FEF|15 ;'"There is no region." 80 BR 89 81 CALL D-IGNORE FEF|16 ;'NIL 82 PUSH LOCAL|1 83 MOVE D-LAST LOCAL|0 84 BR-NIL 89 85 PUSH LOCAL|1 86 PUSH LOCAL|0 87 POP LOCAL|1 88 POP LOCAL|0 89 CADR D-PDL LOCAL|0 90 ZEROP PDL-POP 91 BR-NIL 94 92 CAR D-PDL LOCAL|0 93 BR 96 94 CAR D-PDL LOCAL|0 95 ARRAY-LEADER (1) D-PDL 96 CADR D-PDL LOCAL|1 97 ZEROP PDL-POP 98 BR-NIL 101 99 CAR D-PDL LOCAL|1 100 BR 103 101 CAR D-PDL LOCAL|1 102 ARRAY-LEADER (1) D-PDL 103 POP LOCAL|3 104 POP LOCAL|2 105 PUSH FEF|8 ;':*NUMERIC-ARG* 106 (MISC) PLUSP D-IGNORE 107 BR-NIL 157 108 PUSH FEF|6 ;':*COMMENT-BEGIN* 109 (MISC) LENGTH D-PDL 110 POP LOCAL|4 111 CALL D-PDL FEF|17 ;':SI 112 PUSH FEF|8 ;':*NUMERIC-ARG* 113 * LOCAL|4 114 MOVE D-LAST FEF|18 ;'22000000 115 POP LOCAL|5 116 PUSH-NUMBER 0 117 PUSH FEF|8 ;':*NUMERIC-ARG* 118 POP LOCAL|7 119 POP LOCAL|6 120 BR 132 121 PUSH FEF|6 ;':*COMMENT-BEGIN* 122 PUSH-NUMBER 0 123 PUSH LOCAL|4 124 PUSH LOCAL|5 125 PUSH LOCAL|6 126 * LOCAL|4 127 PUSH LOCAL|6 128 * LOCAL|4 129 + LOCAL|4 130 (MISC) COPY-ARRAY-PORTION D-IGNORE 131 INCF LOCAL|6 132 PUSH LOCAL|6 133 < LOCAL|7 134 BR-NOT-NIL 121 135 PUSH LOCAL|2 136 CALL D-PDL FEF|19 ;'NIL 137 PUSH LOCAL|2 138 MOVE D-LAST '0 139 POP LOCAL|9 140 BR 154 141 CALL D-IGNORE FEF|20 ;'NIL 142 PUSH LOCAL|9 143 PUSH LOCAL|8 144 MOVE D-LAST '0 145 CALL D-PDL FEF|21 ;'NIL 146 MOVE D-LAST LOCAL|8 147 EQ FEF|22 ;'<:BLANK> 148 BR-NOT-NIL 152 149 CALL D-IGNORE FEF|23 ;'NIL 150 PUSH LOCAL|9 151 MOVE D-LAST LOCAL|5 152 PUSH LOCAL|8 153 ARRAY-LEADER (1) D-PDL 154 MOVEM LOCAL|8 155 EQ LOCAL|3 156 BR-NIL 141 157 PUSH FEF|8 ;':*NUMERIC-ARG* 158 (MISC) MINUS D-PDL 159 POP FEF|8 ;':*NUMERIC-ARG* 160 PUSH LOCAL|2 161 CALL D-PDL FEF|19 ;'NIL 162 PUSH LOCAL|2 163 MOVE D-LAST '0 164 CALL D-PDL FEF|19 ;'NIL 165 PUSH LOCAL|2 166 MOVE D-LAST '1 167 POP LOCAL|10 168 POP LOCAL|9 169 BR 205 170 PUSH-NUMBER 0 171 PUSH FEF|8 ;':*NUMERIC-ARG* 172 POP LOCAL|7 173 POP LOCAL|6 174 BR 200 175 CALL D-PDL FEF|21 ;'NIL 176 MOVE D-LAST LOCAL|8 177 EQ FEF|22 ;'<:BLANK> 178 BR-NOT-NIL 203 179 CALL D-IGNORE FEF|24 ;'NIL 180 PUSH LOCAL|8 181 PUSH FEF|6 ;':*COMMENT-BEGIN* 182 PUSH FEF|25 ;'<:END1> 183 PUSH FEF|6 ;':*COMMENT-BEGIN* 184 (MISC) LENGTH D-LAST 185 BR-NIL 203 186 CALL D-IGNORE FEF|20 ;'NIL 187 PUSH LOCAL|9 188 PUSH LOCAL|8 189 MOVE D-LAST '0 190 CALL D-IGNORE FEF|20 ;'NIL 191 PUSH LOCAL|10 192 PUSH LOCAL|8 193 PUSH FEF|6 ;':*COMMENT-BEGIN* 194 (MISC) LENGTH D-LAST 195 CALL D-IGNORE FEF|26 ;'NIL 196 PUSH LOCAL|9 197 PUSH LOCAL|10 198 MOVE D-LAST 'T 199 INCF LOCAL|6 200 PUSH LOCAL|6 201 < LOCAL|7 202 BR-NOT-NIL 175 203 PUSH LOCAL|8 204 ARRAY-LEADER (1) D-PDL 205 MOVEM LOCAL|8 206 EQ LOCAL|3 207 BR-NIL 170 208 MOVE D-RETURN '4 ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [307] {# 62707050>} (SYSTEM:FASL-OP-INDEX [245] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [263] {"SI"}) (SYSTEM:FASL-OP-STRING "DEFVAR-1") ) (SYSTEM:FASL-OP-SYMBOL <*LAST-LISP-MATCH-SEARCH-STRING*>) (SYSTEM:FASL-OP-INDEX [92] {}) (SYSTEM:FASL-OP-STRING "Previous string searched for in Lisp Match Search command.") => ( <*LAST-LISP-MATCH-SEARCH-STRING*> "Previous string searched for in Lisp Match Search command.")) (EVAL '( <*LAST-LISP-MATCH-SEARCH-STRING*> "Previous string searched for in Lisp Match Search command."))) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [87] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-SYMBOL ) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "Move to next occurrence of the given pattern of Lisp code. In matching, differences in whitespace characters are ignored except for characters that are quoted or inside strings. The characters # as an atom in the pattern match any sexp in the buffer. The characters ... as an atom in the pattern match any number of sexps. Patterns starting with infrequent characters such as open parentheses are found much faster. Those starting with common letters are likely to be slow. Patterns starting with very infrequent characters are fastest. A negative argument means search backwards. An empty pattern string means repeat the last pattern specified.") => ( "Move to next occurrence of the given pattern of Lisp code. In matching, differences in whitespace characters are ignored except for characters that are quoted or inside strings. The characters # as an atom in the pattern match any sexp in the buffer. The characters ... as an atom in the pattern match any number of sexps. Patterns starting with infrequent characters such as open parentheses are found much faster. Those starting with common letters are likely to be slow. Patterns starting with very infrequent characters are fastest. A negative argument means search backwards. An empty pattern string means repeat the last pattern specified.")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [92] {}) => ( )) => ( ( ) ( "Move to next occurrence of the given pattern of Lisp code. In matching, differences in whitespace characters are ignored except for characters that are quoted or inside strings. The characters # as an atom in the pattern match any sexp in the buffer. The characters ... as an atom in the pattern match any number of sexps. Patterns starting with infrequent characters such as open parentheses are found much faster. Those starting with common letters are likely to be slow. Patterns starting with very infrequent characters are fastest. A negative argument means search backwards. An empty pattern string means repeat the last pattern specified.") ( ))) (EVAL '( ( ) ( "Move to next occurrence of the given pattern of Lisp code. In matching, differences in whitespace characters are ignored except for characters that are quoted or inside strings. The characters # as an atom in the pattern match any sexp in the buffer. The characters ... as an atom in the pattern match any number of sexps. Patterns starting with infrequent characters such as open parentheses are found much faster. Those starting with common letters are likely to be slow. Patterns starting with very infrequent characters are fastest. A negative argument means search backwards. An empty pattern string means repeat the last pattern specified.") ( )))) (SYSTEM:FASL-OP-FRAME 44 CALL D-PDL FEF|10 ;'NIL 45 MOVE D-LAST FEF|11 ;'"Pattern to search for:" 46 MOVEM LOCAL|0 47 PUSH FEF|12 ;'"" 48 (MISC) EQUAL D-IGNORE 49 BR-NIL 60 50 PUSH FEF|9 ;':*LAST-LISP-MATCH-SEARCH-STRING* 51 BR-NOT-NIL-POP 54 52 CALL D-PDL FEF|13 ;'NIL 53 MOVE D-LAST FEF|14 ;'"No previous pattern" 54 POP LOCAL|0 55 CALL D-IGNORE FEF|15 ;'NIL 56 PUSH FEF|8 ;':*QUERY-IO* 57 PUSH FEF|16 ;'"~&Finding ~S" 58 MOVE D-LAST LOCAL|0 59 BR 62 60 PUSH LOCAL|0 61 POP FEF|9 ;':*LAST-LISP-MATCH-SEARCH-STRING* 62 CALL D-PDL FEF|17 ;'NIL 63 PUSH FEF|7 ;':*WINDOW* 64 PUSH FEF|18 ;' 65 (MISC) LOCATE-IN-INSTANCE D-PDL 66 CDR D-PDL PDL-POP 67 PUSH LOCAL|0 68 PUSH FEF|6 ;':*NUMERIC-ARG* 69 (MISC) MINUSP D-LAST 70 POP LOCAL|1 71 BR-NOT-NIL 73 72 CALL0 D-IGNORE FEF|13 ;'NIL 73 CALL D-IGNORE FEF|19 ;'NIL 74 MOVE D-LAST LOCAL|1 75 CALL D-IGNORE FEF|20 ;'NIL 76 PUSH FEF|7 ;':*WINDOW* 77 PUSH FEF|18 ;' 78 (MISC) LOCATE-IN-INSTANCE D-PDL 79 CDR D-PDL PDL-POP 80 MOVE D-LAST LOCAL|1 81 MOVE D-RETURN '2 ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [345] {# 62713250>} (SYSTEM:FASL-OP-INDEX [314] {})) (SYSTEM:FASL-OP-FRAME 56 SET-ZERO LOCAL|0 57 PUSH ARG|1 58 (MISC) LENGTH D-PDL 59 POP LOCAL|1 60 MOVE D-IGNORE ARG|2 61 BR-NIL 65 62 PUSH FEF|7 ;':*INTERVAL* 63 %INSTANCE-REF (1) D-PDL 64 BR 67 65 PUSH FEF|7 ;':*INTERVAL* 66 %INSTANCE-REF (2) D-PDL 67 POP LOCAL|2 68 BR 70 69 INCF LOCAL|0 70 PUSH LOCAL|0 71 = LOCAL|1 72 BR-NOT-NIL 81 73 PUSH-NUMBER 1 74 CALL D-PDL FEF|8 ;'NIL 75 PUSH ARG|1 76 PUSH LOCAL|0 77 (MISC) COMMON-LISP-AR-1 D-PDL 78 MOVE D-LAST FEF|6 ;':*MODE-LIST-SYNTAX-TABLE* 79 = PDL-POP 80 BR-NOT-NIL 69 81 PUSH LOCAL|0 82 = LOCAL|1 83 BR-NIL 91 84 PUSH ARG|3 85 BR-NIL-POP 90 86 PUSH ARG|5 87 BR-NOT-NIL-POP 89 88 MOVE D-RETURN LOCAL|2 89 MOVE D-RETURN PDL-POP 90 MOVE D-RETURN PDL-POP 91 CALL D-IGNORE FEF|9 ;'NIL 92 PUSH ARG|1 93 PUSH FEF|10 ;'"..." 94 PUSH FEF|11 ;'<:START1> 95 PUSH LOCAL|0 96 PUSH FEF|12 ;'<:END1> 97 PUSH LOCAL|0 98 + '3 99 MOVE D-LAST PDL-POP 100 BR-NIL 116 101 PUSH LOCAL|0 102 + '3 103 = LOCAL|1 104 BR-NOT-NIL 114 105 CALL D-PDL FEF|8 ;'NIL 106 PUSH ARG|1 107 PUSH LOCAL|0 108 + '3 109 (MISC) COMMON-LISP-AR-1 D-PDL 110 MOVE D-LAST FEF|6 ;':*MODE-LIST-SYNTAX-TABLE* 111 PUSH FEF|13 ;'((SI::**EVAL** (QUOTE )) (SI::**EVAL** (QUOTE ))) 112 (MISC) MEMQ D-IGNORE 113 BR-NOT-NIL 116 114 CALL D-RETURN FEF|14 ;'NIL 115 MOVE D-LAST FEF|15 ;'"A search pattern starting with ... is not meaningful." 116 CALL D-IGNORE FEF|9 ;'NIL 117 PUSH ARG|1 118 PUSH FEF|16 ;'"#" 119 PUSH FEF|11 ;'<:START1> 120 PUSH LOCAL|0 121 PUSH FEF|12 ;'<:END1> 122 PUSH LOCAL|0 123 (MISC) 1+ D-LAST 124 BR-NIL 166 125 PUSH LOCAL|0 126 + '2 127 = LOCAL|1 128 BR-NOT-NIL 138 129 CALL D-PDL FEF|8 ;'NIL 130 PUSH ARG|1 131 PUSH LOCAL|0 132 + '2 133 (MISC) COMMON-LISP-AR-1 D-PDL 134 MOVE D-LAST FEF|6 ;':*MODE-LIST-SYNTAX-TABLE* 135 PUSH FEF|17 ;'((SI::**EVAL** (QUOTE )) (SI::**EVAL** (QUOTE ))) 136 (MISC) MEMQ D-IGNORE 137 BR-NOT-NIL 166 138 CALL D-PDL FEF|18 ;'NIL 139 CALL D-PDL FEF|19 ;'NIL 140 PUSH ARG|0 141 PUSH-NUMBER 1 142 MOVE D-LAST 'T 143 CALL D-LAST FEF|20 ;'NIL 144 PUSH ARG|1 145 PUSH LOCAL|0 146 + '3 147 MOVE D-LAST PDL-POP 148 MOVEM LOCAL|3 149 BR-NIL-POP 158 150 CALL D-PDL FEF|19 ;'NIL 151 PUSH LOCAL|3 152 PUSH '-1 153 PUSH 'NIL 154 PUSH-NUMBER 0 155 PUSH ARG|0 156 PUSH 'T 157 MOVE D-LAST 'T 158 BR-NOT-NIL-POP 165 159 PUSH ARG|3 160 BR-NIL-POP 164 161 PUSH ARG|5 162 BR-NIL-POP 164 163 MOVE D-RETURN LOCAL|2 164 MOVE D-RETURN PDL-POP 165 MOVE D-RETURN PDL-POP 166 MOVE D-IGNORE ARG|2 167 BR-NIL 203 168 CALL D-PDL FEF|21 ;'NIL 169 MOVE D-LAST ARG|0 170 SET-NIL LOCAL|5 171 POP LOCAL|4 172 CALL D-PDL FEF|22 ;'NIL 173 PUSH LOCAL|4 174 PUSH ARG|1 175 PUSH LOCAL|0 176 (MISC) COMMON-LISP-AR-1 D-PDL 177 PUSH 'T 178 PUSH 'NIL 179 PUSH 'NIL 180 PUSH ARG|5 181 BR-NOT-NIL-POP 183 182 PUSH LOCAL|2 183 MOVE D-LAST PDL-POP 184 POP LOCAL|4 185 BR-NOT-NIL 193 186 PUSH ARG|3 187 BR-NIL-POP 192 188 PUSH ARG|5 189 BR-NOT-NIL-POP 191 190 MOVE D-RETURN LOCAL|2 191 MOVE D-RETURN PDL-POP 192 MOVE D-RETURN PDL-POP 193 CALL D-PDL FEF|23 ;'NIL 194 PUSH LOCAL|4 195 PUSH ARG|0 196 PUSH ARG|1 197 MOVE D-LAST LOCAL|0 198 POP LOCAL|5 199 BR-NIL 172 200 PUSH LOCAL|4 201 PUSH LOCAL|5 202 (MISC) %RETURN-2 D-IGNORE 203 CALL D-PDL FEF|21 ;'NIL 204 MOVE D-LAST ARG|0 205 SET-NIL LOCAL|5 206 POP LOCAL|4 207 CALL D-PDL FEF|22 ;'NIL 208 PUSH LOCAL|4 209 PUSH ARG|1 210 PUSH LOCAL|0 211 (MISC) COMMON-LISP-AR-1 D-PDL 212 PUSH 'NIL 213 PUSH 'NIL 214 PUSH 'NIL 215 MOVE D-LAST ARG|5 216 POP LOCAL|4 217 BR-NOT-NIL 225 218 PUSH ARG|3 219 BR-NIL-POP 224 220 PUSH ARG|5 221 BR-NOT-NIL-POP 223 222 MOVE D-RETURN LOCAL|2 223 MOVE D-RETURN PDL-POP 224 MOVE D-RETURN PDL-POP 225 CALL D-IGNORE FEF|24 ;'NIL 226 MOVE D-LAST LOCAL|4 227 CALL D-PDL FEF|23 ;'NIL 228 PUSH LOCAL|4 229 PUSH ARG|5 230 BR-NOT-NIL-POP 232 231 PUSH LOCAL|2 232 PUSH ARG|1 233 MOVE D-LAST LOCAL|0 234 POP LOCAL|5 235 BR-NIL 239 236 PUSH LOCAL|5 237 PUSH LOCAL|4 238 (MISC) %RETURN-2 D-IGNORE 239 CALL D-IGNORE FEF|25 ;'NIL 240 PUSH LOCAL|4 241 MOVE D-LAST ARG|5 242 BR-NOT-NIL 247 243 CALL D-IGNORE FEF|25 ;'NIL 244 PUSH LOCAL|4 245 MOVE D-LAST LOCAL|2 246 BR-NIL 251 247 MOVE D-IGNORE ARG|3 248 BR-NIL 250 249 MOVE D-RETURN LOCAL|4 250 MOVE D-RETURN 'NIL 251 CALL D-IGNORE FEF|26 ;'NIL 252 MOVE D-LAST LOCAL|4 253 BR-NOT-NIL 207 254 MOVE D-IGNORE ARG|3 255 BR-NIL 257 256 MOVE D-RETURN LOCAL|4 257 MOVE D-RETURN 'NIL 258 BR 207 ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [408] {# 62714327>} (SYSTEM:FASL-OP-INDEX [333] {})) (SYSTEM:FASL-OP-FRAME Arg 0 (NIL) is required, local, not initialized. Arg 1 (NIL) is required, local, not initialized. Arg 2 (NIL) is required, local, not initialized. Arg 3 (NIL) is optional, local, initialized to '0. Arg 4 (NIL) is optional, local, initialized to NIL. 78 MOVE D-IGNORE ARG|4 79 BR-NOT-NIL 83 80 PUSH ARG|2 81 (MISC) LENGTH D-PDL 82 POP ARG|4 83 PUSH ARG|3 84 CALL D-PDL FEF|24 ;'NIL 85 MOVE D-LAST ARG|0 86 PUSH '-1 87 POP LOCAL|6 88 POP LOCAL|1 89 POP LOCAL|0 90 BR 328 91 CALL D-IGNORE FEF|25 ;'NIL 92 PUSH ARG|1 93 MOVE D-LAST LOCAL|1 94 BR-NIL 96 95 MOVE D-RETURN 'NIL 96 PUSH ARG|2 97 PUSH LOCAL|0 98 (MISC) COMMON-LISP-AR-1 D-PDL 99 POP LOCAL|7 100 CALL D-PDL FEF|26 ;'NIL 101 PUSH LOCAL|7 102 MOVE D-LAST FEF|6 ;':*MODE-LIST-SYNTAX-TABLE* 103 POP LOCAL|8 104 MOVE D-IGNORE LOCAL|2 105 BR-NIL 134 106 MOVE D-IGNORE LOCAL|3 107 BR-NIL 110 108 SET-NIL LOCAL|3 109 BR 120 110 PUSH LOCAL|8 111 = '3 112 BR-NIL 115 113 SET-NIL LOCAL|2 114 BR 120 115 PUSH LOCAL|8 116 = '2 117 BR-NIL 120 118 PUSH 'T 119 POP LOCAL|3 120 PUSH LOCAL|7 121 PUSH-NUMBER 10 122 CALL D-PDL FEF|27 ;'NIL 123 MOVE D-LAST LOCAL|1 124 (MISC) LDB D-PDL 125 (MISC) INT-CHAR D-PDL 126 EQ PDL-POP 127 BR-NOT-NIL 129 128 MOVE D-RETURN 'NIL 129 PUSH '-1 130 POP LOCAL|6 131 CALL D-IGNORE FEF|28 ;'NIL 132 MOVE D-LAST LOCAL|1 133 BR 327 134 MOVE D-IGNORE LOCAL|4 135 BR-NIL 151 136 PUSH LOCAL|7 137 EQ '#/RETURN 138 BR-NIL 140 139 SET-NIL LOCAL|4 140 PUSH LOCAL|7 141 CALL D-PDL FEF|27 ;'NIL 142 MOVE D-LAST LOCAL|1 143 (MISC) INTERNAL-CHAR-EQUAL D-IGNORE 144 BR-NOT-NIL 146 145 MOVE D-RETURN 'NIL 146 PUSH '-1 147 POP LOCAL|6 148 CALL D-IGNORE FEF|28 ;'NIL 149 MOVE D-LAST LOCAL|1 150 BR 327 151 MOVE D-IGNORE LOCAL|3 152 BR-NIL 167 153 SET-NIL LOCAL|3 154 PUSH LOCAL|7 155 PUSH-NUMBER 10 156 CALL D-PDL FEF|27 ;'NIL 157 MOVE D-LAST LOCAL|1 158 (MISC) LDB D-PDL 159 (MISC) INT-CHAR D-PDL 160 EQ PDL-POP 161 BR-NOT-NIL 163 162 MOVE D-RETURN 'NIL 163 SET-ZERO LOCAL|6 164 CALL D-IGNORE FEF|28 ;'NIL 165 MOVE D-LAST LOCAL|1 166 BR 327 167 PUSH LOCAL|8 168 = '1 169 BR-NIL 172 170 SET-NIL LOCAL|5 171 BR 327 172 MOVE D-IGNORE LOCAL|5 173 BR-NOT-NIL 285 174 PUSH LOCAL|0 175 + '3 176 > ARG|4 177 BR-NOT-NIL 222 178 CALL D-IGNORE FEF|29 ;'NIL 179 PUSH ARG|2 180 PUSH FEF|30 ;'"..." 181 PUSH FEF|31 ;'<:START1> 182 PUSH LOCAL|0 183 PUSH FEF|32 ;'<:END1> 184 PUSH LOCAL|0 185 + '3 186 MOVE D-LAST PDL-POP 187 BR-NIL 222 188 PUSH LOCAL|0 189 + '3 190 = ARG|4 191 BR-NOT-NIL 201 192 CALL D-PDL FEF|26 ;'NIL 193 PUSH ARG|2 194 PUSH LOCAL|0 195 + '3 196 (MISC) COMMON-LISP-AR-1 D-PDL 197 MOVE D-LAST FEF|6 ;':*MODE-LIST-SYNTAX-TABLE* 198 PUSH FEF|33 ;'((SI::**EVAL** (QUOTE )) (SI::**EVAL** (QUOTE ))) 199 (MISC) MEMQ D-IGNORE 200 BR-NOT-NIL 222 201 CALL D-PDL FEF|34 ;'NIL 202 PUSH LOCAL|1 203 PUSH ARG|1 204 PUSH ARG|2 205 PUSH LOCAL|0 206 + '3 207 MOVE D-LAST ARG|4 208 POP LOCAL|9 209 BR-NIL 211 210 MOVE D-RETURN LOCAL|9 211 CALL D-PDL FEF|35 ;'NIL 212 PUSH LOCAL|1 213 PUSH-NUMBER 1 214 PUSH 'NIL 215 PUSH-NUMBER 0 216 PUSH ARG|1 217 PUSH 'NIL 218 MOVE D-LAST 'T 219 POP LOCAL|1 220 BR-NIL 327 221 BR 201 222 MOVE D-IGNORE LOCAL|5 223 BR-NOT-NIL 285 224 PUSH 1+ LOCAL|0 225 > ARG|4 226 BR-NOT-NIL 262 227 CALL D-IGNORE FEF|29 ;'NIL 228 PUSH ARG|2 229 PUSH FEF|36 ;'"#" 230 PUSH FEF|31 ;'<:START1> 231 PUSH LOCAL|0 232 PUSH FEF|32 ;'<:END1> 233 PUSH LOCAL|0 234 (MISC) 1+ D-LAST 235 BR-NIL 262 236 PUSH 1+ LOCAL|0 237 = ARG|4 238 BR-NOT-NIL 247 239 CALL D-PDL FEF|26 ;'NIL 240 PUSH ARG|2 241 PUSH 1+ LOCAL|0 242 (MISC) COMMON-LISP-AR-1 D-PDL 243 MOVE D-LAST FEF|6 ;':*MODE-LIST-SYNTAX-TABLE* 244 PUSH FEF|37 ;'((SI::**EVAL** (QUOTE )) (SI::**EVAL** (QUOTE ))) 245 (MISC) MEMQ D-IGNORE 246 BR-NOT-NIL 262 247 CALL D-PDL FEF|35 ;'NIL 248 PUSH LOCAL|1 249 PUSH-NUMBER 1 250 PUSH 'NIL 251 PUSH-NUMBER 0 252 PUSH ARG|1 253 PUSH 'NIL 254 MOVE D-LAST 'T 255 POP LOCAL|1 256 PUSH '-1 257 POP LOCAL|6 258 MOVE D-IGNORE LOCAL|1 259 BR-NOT-NIL 327 260 MOVE D-RETURN 'NIL 261 BR 327 262 MOVE D-IGNORE LOCAL|5 263 BR-NOT-NIL 285 264 SET-ZERO LOCAL|10 265 BR 269 266 CALL D-IGNORE FEF|28 ;'NIL 267 MOVE D-LAST LOCAL|1 268 INCF LOCAL|10 269 PUSH-NUMBER 1 270 CALL D-PDL FEF|26 ;'NIL 271 CALL D-PDL FEF|27 ;'NIL 272 MOVE D-LAST LOCAL|1 273 MOVE D-LAST FEF|6 ;':*MODE-LIST-SYNTAX-TABLE* 274 = PDL-POP 275 BR-NOT-NIL 266 276 ZEROP LOCAL|10 277 BR-NIL 285 278 PUSH LOCAL|8 279 = '0 280 BR-NIL 285 281 PUSH LOCAL|6 282 = '0 283 BR-NIL 285 284 MOVE D-RETURN 'NIL 285 PUSH LOCAL|8 286 PUSH-NUMBER 3 287 (MISC) EQL D-IGNORE 288 BR-NIL 292 289 PUSH 'T 290 POP LOCAL|2 291 BR 312 292 PUSH LOCAL|8 293 PUSH-NUMBER 2 294 (MISC) EQL D-IGNORE 295 BR-NIL 299 296 PUSH 'T 297 POP LOCAL|3 298 BR 312 299 PUSH LOCAL|8 300 PUSH-NUMBER 7 301 (MISC) EQL D-IGNORE 302 BR-NIL 306 303 PUSH 'T 304 POP LOCAL|4 305 BR 312 306 PUSH LOCAL|8 307 PUSH-NUMBER 0 308 (MISC) EQL D-IGNORE 309 BR-NIL 312 310 PUSH 'T 311 POP LOCAL|5 312 PUSH LOCAL|7 313 EQ '#/. 314 BR-NIL 317 315 PUSH 'T 316 POP LOCAL|5 317 PUSH LOCAL|7 318 CALL D-PDL FEF|27 ;'NIL 319 MOVE D-LAST LOCAL|1 320 (MISC) INTERNAL-CHAR-EQUAL D-IGNORE 321 BR-NOT-NIL 323 322 MOVE D-RETURN 'NIL 323 CALL D-IGNORE FEF|28 ;'NIL 324 MOVE D-LAST LOCAL|1 325 PUSH LOCAL|8 326 POP LOCAL|6 327 INCF LOCAL|0 328 PUSH LOCAL|0 329 = ARG|4 330 BR-NIL 91 331 MOVE D-RETURN LOCAL|1 ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [475] {# 62717142>} (SYSTEM:FASL-OP-INDEX [368] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [87] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-SYMBOL ) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "List contents of a file directory. While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.") => ( "List contents of a file directory. While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [92] {}) => ( )) => ( ( ) ( "List contents of a file directory. While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.") ( ))) (EVAL '( ( ) ( "List contents of a file directory. While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.") ( )))) (SYSTEM:FASL-OP-FRAME 22 CALL D-PDL FEF|6 ;'NIL 23 PUSH FEF|7 ;'"View directory" 24 CALL0 D-LAST FEF|8 ;'NIL 25 POP LOCAL|0 26 CALL D-RETURN FEF|9 ;'NIL 27 MOVE D-LAST LOCAL|0 ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [499] {# 62723406>} (SYSTEM:FASL-OP-INDEX [476] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [87] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-SYMBOL ) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "List files in user's directory.") => ( "List files in user's directory.")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [92] {}) => ( )) => ( ( ) ( "List files in user's directory.") ( ))) (EVAL '( ( ) ( "List files in user's directory.") ( )))) (SYSTEM:FASL-OP-FRAME 28 CALL D-RETURN FEF|6 ;'NIL 29 CALL0 D-PDL FEF|7 ;':FS 30 CALL D-LAST PDL-POP 31 PUSH FEF|8 ;'<:NEW-PATHNAME> 32 PUSH FEF|9 ;'<:NAME> 33 PUSH FEF|10 ;'<:WILD> 34 PUSH FEF|11 ;'<:TYPE> 35 PUSH FEF|10 ;'<:WILD> 36 PUSH FEF|12 ;'<:VERSION> 37 MOVE D-LAST FEF|10 ;'<:WILD> ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [530] {# 62726703>} (SYSTEM:FASL-OP-INDEX [500] {})) (SYSTEM:FASL-OP-FRAME 20 CALL D-RETURN FEF|6 ;'NIL 21 CALL0 D-PDL FEF|7 ;':FS 22 CALL D-LAST PDL-POP 23 MOVE D-LAST FEF|8 ;'<:NEW-MAIL-PATHNAME> ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [546] {# 62727334>} (SYSTEM:FASL-OP-INDEX [533] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [87] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-SYMBOL ) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "View any new mail (your inbox file). While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.") => ( "View any new mail (your inbox file). While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [92] {}) => ( )) => ( ( ) ( "View any new mail (your inbox file). While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.") ( ))) (EVAL '( ( ) ( "View any new mail (your inbox file). While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.") ( )))) (SYSTEM:FASL-OP-FRAME 28 CALL0 D-PDL FEF|7 ;':FS 29 CALL D-PDL PDL-POP 30 MOVE D-LAST FEF|8 ;'<:NEW-MAIL-PATHNAME> 31 POP LOCAL|0 32 CALL D-IGNORE FEF|9 ;'NIL 33 MOVE D-LAST LOCAL|0 34 BR-NIL 38 35 CALL D-IGNORE FEF|10 ;'NIL 36 MOVE D-LAST LOCAL|0 37 MOVE D-RETURN '0 38 CALL D-IGNORE FEF|11 ;'NIL 39 PUSH FEF|6 ;':*QUERY-IO* 40 MOVE D-LAST FEF|12 ;'"~&No new mail." 41 MOVE D-RETURN '0 ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [569] {# 62730237>} (SYSTEM:FASL-OP-INDEX [547] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [87] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-SYMBOL ) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "View old mail (your BABYL file, etc.). While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.") => ( "View old mail (your BABYL file, etc.). While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [92] {}) => ( )) => ( ( ) ( "View old mail (your BABYL file, etc.). While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.") ( ))) (EVAL '( ( ) ( "View old mail (your BABYL file, etc.). While viewing, you can use Space and Overstrike to scroll forward and backward. Type Rubout to exit.") ( )))) (SYSTEM:FASL-OP-FRAME 38 CALL0 D-PDL FEF|7 ;':FS 39 CALL D-PDL PDL-POP 40 MOVE D-LAST FEF|8 ;'<:POSSIBLE-MAIL-FILE-NAMES> 41 POP LOCAL|1 42 MOVE D-IGNORE LOCAL|1 43 BR-NIL 57 44 CAR D-PDL LOCAL|1 45 POP LOCAL|0 46 SETE-CDR LOCAL|1 47 CALL D-IGNORE FEF|9 ;'NIL 48 CALL D-LAST FEF|10 ;'NIL 49 PUSH LOCAL|0 50 PUSH FEF|11 ;'<:DIRECTION> 51 MOVE D-LAST FEF|12 ;'<:PROBE> 52 BR-NOT-NIL 42 53 CALL D-IGNORE FEF|13 ;'NIL 54 MOVE D-LAST LOCAL|0 55 PUSH FEF|14 ;'<:FOUND> 56 POP LOCAL|0 57 CALL D-IGNORE FEF|15 ;'NIL 58 PUSH LOCAL|0 59 MOVE D-LAST FEF|14 ;'<:FOUND> 60 BR-NOT-NIL 65 61 CALL D-IGNORE FEF|16 ;'NIL 62 PUSH FEF|6 ;':*QUERY-IO* 63 MOVE D-LAST FEF|17 ;'"~&No old mail." 64 MOVE D-RETURN '0 65 MOVE D-RETURN '0 ) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [604] {# 62731143>} (SYSTEM:FASL-OP-INDEX [570] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [263] {"SI"}) (SYSTEM:FASL-OP-STRING "FASL-RECORD-FILE-MACROS-EXPANDED") ) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-LIST [31] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [594] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [593] {}) (SYSTEM:FASL-OP-FIXED 6247763) => ( 6247763)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [524] {}) (SYSTEM:FASL-OP-FIXED 1120530) => ( 1120530)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [439] { 22353153)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [374] {}) (SYSTEM:FASL-OP-FIXED 26064401) => ( 26064401)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [373] {}) (SYSTEM:FASL-OP-FIXED 26064415) => ( 26064415)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [372] {}) (SYSTEM:FASL-OP-FIXED 16250410) => ( 16250410)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [371] {}) (SYSTEM:FASL-OP-FIXED 26643524) => ( 26643524)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [370] {}) (SYSTEM:FASL-OP-FIXED 37676775) => ( 37676775)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [281] {}) (SYSTEM:FASL-OP-FIXED 37733473) => ( 37733473)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [280] {}) (SYSTEM:FASL-OP-FIXED 34776340) => ( 34776340)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [279] {}) (SYSTEM:FASL-OP-FIXED 27753566) => ( 27753566)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [278] {}) (SYSTEM:FASL-OP-FIXED 25753566) => ( 25753566)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [277] {}) (SYSTEM:FASL-OP-FIXED 14356370) => ( 14356370)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [276] {}) (SYSTEM:FASL-OP-FIXED 1056157) => ( 1056157)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [230] {}) (SYSTEM:FASL-OP-FIXED 32273103) => ( 32273103)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [173] {}) (SYSTEM:FASL-OP-FIXED 17764003) => ( 17764003)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [134] {}) (SYSTEM:FASL-OP-FIXED 34174610) => ( 34174610)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [172] {}) (SYSTEM:FASL-OP-FIXED 6476111) => ( 6476111)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [171] {}) (SYSTEM:FASL-OP-FIXED 1405255) => ( 1405255)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [170] {}) (SYSTEM:FASL-OP-FIXED 7535144) => ( 7535144)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [135] {}) (SYSTEM:FASL-OP-FIXED 24454462) => ( 24454462)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [169] {}) (SYSTEM:FASL-OP-FIXED 2422265) => ( 2422265)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [168] {}) (SYSTEM:FASL-OP-FIXED 3034367) => ( 3034367)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [167] {}) (SYSTEM:FASL-OP-FIXED 12776506) => ( 12776506)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [166] {}) (SYSTEM:FASL-OP-FIXED 3537237) => ( 3537237)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [165] {}) (SYSTEM:FASL-OP-FIXED 11255014) => ( 11255014)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [164] {}) (SYSTEM:FASL-OP-FIXED 24103526) => ( 24103526)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [163] {}) (SYSTEM:FASL-OP-FIXED 37707667) => ( 37707667)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [162] {}) (SYSTEM:FASL-OP-FIXED 16640044) => ( 16640044)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [161] {}) (SYSTEM:FASL-OP-FIXED 35276704) => ( 35276704)) => ( ( 6247763) ( 1120530) ( 22353153) ( 26064401) ( 26064415) ( 16250410) ( 26643524) ( 37676775) ( 37733473) ( 34776340) ( 27753566) ( 25753566) ( 14356370) ( 1056157) ( 32273103) ( 17764003) ( 34174610) ( 6476111) ( 1405255) ( 7535144) ( 24454462) ( 2422265) ( 3034367) ( 12776506) ( 3537237) ( 11255014) ( 24103526) ( 37707667) ( 16640044) ( 35276704)))) => ( ( ( ( 6247763) ( 1120530) ( 22353153) ( 26064401) ( 26064415) ( 16250410) ( 26643524) ( 37676775) ( 37733473) ( 34776340) ( 27753566) ( 25753566) ( 14356370) ( 1056157) ( 32273103) ( 17764003) ( 34174610) ( 6476111) ( 1405255) ( 7535144) ( 24454462) ( 2422265) ( 3034367) ( 12776506) ( 3537237) ( 11255014) ( 24103526) ( 37707667) ( 16640044) ( 35276704)))))) (SYSTEM:FASL-OP-END-OF-WHACK) (SYSTEM:FASL-OP-END-OF-FILE)