; -*- Mode:TEXT -*- ; This is the UNFASL for DJ: L.PATCH; SYSTEM-126-32.QFASL#3 (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 "RWK") (FASL-OP-STRING "Claude Debussy") (FASL-OP-FIXED 24652431037) (FASL-OP-FIXED 176) (FASL-OP-FIXED 36) (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>)) => ("RWK" "Claude Debussy" 24652431037 176 36 ( <: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 "PATCH") => ("L" "PATCH")) => ( ("L" "PATCH"))) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-STRING "SYSTEM-126-32") => ( "SYSTEM-126-32")) (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 3) => ( 3)) => ( ( "DJ") ( "DSK") ( ("L" "PATCH")) ( "SYSTEM-126-32") ( "LISP") ( 3))) (EVAL '( ( "DJ") ( "DSK") ( ("L" "PATCH")) ( "SYSTEM-126-32") ( "LISP") ( 3)))) (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>) (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 "PATCH-FILE") <:PATCH-FILE>) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "T") <:T>) (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>) => (<:COMPILE-DATA> ("RWK" "Claude Debussy" 24652431037 176 36 ( <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE ( ( "DJ") ( "DSK") ( ("L" "PATCH")) ( "SYSTEM-126-32") ( "LISP") ( 3)))) <:READTABLE> <:ZL> <:BASE> 10 <:PATCH-FILE> <:T> <:PACKAGE> <:SYSTEM-INTERNALS>))) (FASL-OP-STRING "SYS: SYS; QFASL  ") (FASL-OP-STOREIN-SYMBOL-VALUE [91] {"SYS: SYS; QFASL  "} (FASL-OP-SYMBOL )) (FASL-OP-EVAL1 (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-SYMBOL <*FASL-NIBBLE-8BIT*>) (FASL-OP-PACKAGE-SYMBOL (FASL-OP-INDEX [32] {""}) (FASL-OP-STRING "UNBOUND") <: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 [93] {}) (FASL-OP-SYMBOL <*FASL-NIBBLE-PEEK*>) (FASL-OP-SYMBOL ) (FASL-OP-STRING "Holds a PEEKED fasl-nibble-from-8bit") => ( <*FASL-NIBBLE-PEEK*> "Holds a PEEKED fasl-nibble-from-8bit")) (EVAL '( <*FASL-NIBBLE-PEEK*> "Holds a PEEKED fasl-nibble-from-8bit"))) (FASL-OP-INDEX [101] {}) (FASL-OP-STOREIN-SYMBOL-VALUE [101] {} (FASL-OP-INDEX [92] {})) (FASL-OP-STRING "SYS: SYS; QFASL  ") (FASL-OP-STOREIN-SYMBOL-VALUE [105] {"SYS: SYS; QFASL  "} (FASL-OP-INDEX [92] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [93] {}) (FASL-OP-SYMBOL <*FASL-BYTE-SIZE*>) (FASL-OP-FIXED 20) => ( <*FASL-BYTE-SIZE*> 20)) (EVAL '( <*FASL-BYTE-SIZE*> 20))) (FASL-OP-INDEX [101] {}) (FASL-OP-STOREIN-SYMBOL-VALUE [101] {} (FASL-OP-INDEX [92] {})) (FASL-OP-STRING "SYS: SYS; QFASL  ") (FASL-OP-STOREIN-SYMBOL-VALUE [110] {"SYS: SYS; QFASL  "} (FASL-OP-INDEX [92] {})) (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 [176] {# 22474033>} (FASL-OP-INDEX [113] {})) (FASL-OP-INDEX [101] {}) (FASL-OP-STOREIN-SYMBOL-VALUE [101] {} (FASL-OP-INDEX [92] {})) (FASL-OP-STRING "SYS: SYS; QFASL  ") (FASL-OP-STOREIN-SYMBOL-VALUE [177] {"SYS: SYS; QFASL  "} (FASL-OP-INDEX [92] {})) (FASL-OP-FRAME 196 CALL D-PDL FEF|6 ;':FASL-STREAM 197 MOVE D-LAST FEF|36 ;'<:PATHNAME> 198 POP LOCAL|0 199 CALL D-PDL FEF|6 ;':FASL-STREAM 200 PUSH FEF|37 ;'<:SEND-IF-HANDLES> 201 PUSH FEF|38 ;'<:BYTE-SIZE> 202 PUSH 'NIL 203 (MISC) %SPREAD D-LAST 204 BR-NOT-NIL-POP 208 205 CALL D-PDL FEF|6 ;':FASL-STREAM 206 PUSH FEF|39 ;'<:GET> 207 MOVE D-LAST FEF|38 ;'<:BYTE-SIZE> 208 POP LOCAL|1 209 BIND-NIL FEF|7 ;':*FASL-NIBBLE-PEEK* 210 PUSH LOCAL|1 211 EQ '10 212 BR-NIL 215 213 PUSH 'T 214 BR 226 215 PUSH LOCAL|1 216 EQ '20 217 BR-NIL 220 218 PUSH 'NIL 219 BR 226 220 CALL D-PDL FEF|40 ;'NIL 221 PUSH 'NIL 222 PUSH FEF|41 ;' 223 PUSH FEF|42 ;' 224 PUSH LOCAL|1 225 MOVE D-LAST FEF|43 ;'( 10 20) 226 BIND-POP FEF|8 ;':*FASL-NIBBLE-8BIT* 227 PUSH LOCAL|0 228 (MISC) STRINGP D-IGNORE 229 BR-NIL 232 230 PUSH LOCAL|0 231 BR 234 232 CALL D-PDL LOCAL|0 233 MOVE D-LAST FEF|44 ;'<:GENERIC-PATHNAME> 234 BIND-POP FEF|9 ;':FDEFINE-FILE-PATHNAME 235 BIND-NIL FEF|10 ;':PATCH-SOURCE-FILE-NAMESTRING 236 BIND-NIL FEF|11 ;':FDEFINE-FILE-DEFINITIONS 237 CALL D-PDL FEF|6 ;':FASL-STREAM 238 MOVE D-LAST FEF|44 ;'<:GENERIC-PATHNAME> 239 BIND-POP FEF|12 ;':FASL-GENERIC-PLIST-RECEIVER 240 CALL D-PDL FEF|6 ;':FASL-STREAM 241 MOVE D-LAST FEF|45 ;'<:INFO> 242 POP LOCAL|2 243 CALL D-PDL FEF|6 ;':FASL-STREAM 244 PUSH FEF|46 ;'<:OPERATION-HANDLED-P> 245 MOVE D-LAST FEF|47 ;'<:GET-INPUT-BUFFER> 246 BIND-POP FEF|13 ;':FASL-STREAM-BYPASS-P 247 BIND-NIL FEF|14 ;':*FASL-STREAM-ARRAY* 248 BIND-NIL FEF|15 ;':*FASL-STREAM-INDEX* 249 PUSH-NUMBER 0 250 BIND-POP FEF|16 ;':*FASL-STREAM-COUNT* 251 BIND-NIL FEF|17 ;':FASL-STREAM-ARRAY 252 BIND-NIL FEF|18 ;':FASL-STREAM-INDEX 253 PUSH-NUMBER 0 254 BIND-POP FEF|19 ;':FASL-STREAM-COUNT 255 BIND-NIL FEF|20 ;':FASLOAD-FILE-PROPERTY-LIST-FLAG 256 PUSH ARG|1 257 BIND-POP FEF|21 ;':FASL-PACKAGE-SPECIFIED 258 BIND-NIL FEF|22 ;':FASL-FILE-EVALUATIONS 259 BIND-NIL FEF|23 ;':FASL-FILE-PLIST 260 BIND-NIL FEF|24 ;':DONT-CONVERT-DESTINATIONS 261 BIND-NIL FEF|25 ;':DONT-CONVERT-CDR-CODES 262 BIND-NIL FEF|26 ;':FASL-TABLE 263 CALL0 D-IGNORE FEF|48 ;'NIL 264 CALL D-PDL FEF|6 ;':FASL-STREAM 265 MOVE D-LAST FEF|45 ;'<:INFO> 266 CAR D-PDL PDL-POP 267 PUSH FEF|35 ;':FASLOADED-FILE-TRUENAMES 268 (MISC) CONS D-PDL 269 POP FEF|35 ;':FASLOADED-FILE-TRUENAMES 270 MOVE D-IGNORE FEF|8 ;':*FASL-NIBBLE-8BIT* 271 BR-NIL 274 272 CALL0 D-PDL FEF|49 ;'NIL 273 BR 275 274 CALL0 D-PDL FEF|50 ;'NIL 275 BR-NOT-NIL-POP 277 276 PUSH-NUMBER 0 277 MOVE D-IGNORE FEF|8 ;':*FASL-NIBBLE-8BIT* 278 BR-NIL 281 279 CALL0 D-PDL FEF|49 ;'NIL 280 BR 282 281 CALL0 D-PDL FEF|50 ;'NIL 282 BR-NOT-NIL-POP 284 283 PUSH-NUMBER 0 284 POP LOCAL|4 285 MOVEM LOCAL|3 286 = FEF|51 ;'143150 287 BR-NIL 291 288 PUSH LOCAL|4 289 = FEF|52 ;'71660 290 BR-NOT-NIL 294 291 CALL D-IGNORE FEF|53 ;'NIL 292 PUSH FEF|54 ;'"~A is not a QFASL file" 293 MOVE D-LAST LOCAL|0 294 MOVE D-IGNORE FEF|8 ;':*FASL-NIBBLE-8BIT* 295 BR-NIL 298 296 CALL0 D-PDL FEF|55 ;'NIL 297 BR 299 298 CALL0 D-PDL FEF|56 ;'NIL 299 LOGAND FEF|34 ;':%FASL-GROUP-TYPE 300 = FEF|33 ;':FASL-OP-VERSION-INFO 301 BR-NIL 303 302 CALL0 D-IGNORE FEF|57 ;'NIL 303 CALL D-IGNORE FEF|12 ;':FASL-GENERIC-PLIST-RECEIVER 304 PUSH FEF|58 ;'<:REMPROP> 305 MOVE D-LAST FEF|59 ;'<:MACROS-EXPANDED> 306 MOVE D-IGNORE FEF|8 ;':*FASL-NIBBLE-8BIT* 307 BR-NIL 310 308 CALL0 D-PDL FEF|55 ;'NIL 309 BR 311 310 CALL0 D-PDL FEF|56 ;'NIL 311 LOGAND FEF|34 ;':%FASL-GROUP-TYPE 312 = FEF|32 ;':FASL-OP-FILE-PROPERTY-LIST 313 BR-NIL 382 314 CALL0 D-IGNORE FEF|60 ;'NIL 315 PUSH FEF|61 ;' 316 (MISC) %EXTERNAL-VALUE-CELL D-PDL 317 PUSH FEF|62 ;'<:COMPILE-IN-ROOTS> 318 (MISC) INTERNAL-GET-2 D-PDL 319 POP LOCAL|5 320 BR-NIL 343 321 CALL D-IGNORE FEF|63 ;':LISP 322 CALL D-PDL FEF|64 ;'NIL 323 MOVE D-IGNORE ARG|1 324 BR-NIL 327 325 MOVE D-LAST ARG|1 326 BR 328 327 MOVE D-LAST FEF|27 ;':*PACKAGE* 328 PUSH LOCAL|5 329 PUSH FEF|65 ;'<:TEST> 330 MOVE D-LAST FEF|66 ;' 331 BR-NOT-NIL 343 332 CALL D-IGNORE FEF|67 ;'NIL 333 MOVE D-LAST FEF|6 ;':FASL-STREAM 334 CALL D-RETURN FEF|68 ;'NIL 335 CALL D-PDL FEF|69 ;':FS 336 CALL D-PDL LOCAL|0 337 PUSH FEF|70 ;'<:NEW-TYPE> 338 MOVE D-LAST FEF|71 ;'<:UNSPECIFIED> 339 PUSH 'NIL 340 MOVE D-LAST FEF|72 ;'<:LISP> 341 PUSH ARG|1 342 MOVE D-LAST ARG|2 343 PUSH FEF|61 ;' 344 (MISC) %EXTERNAL-VALUE-CELL D-PDL 345 PUSH FEF|73 ;'<:FASD-DATA> 346 (MISC) INTERNAL-GET-2 D-PDL 347 BR-NOT-NIL-POP 352 348 PUSH FEF|61 ;' 349 (MISC) %EXTERNAL-VALUE-CELL D-PDL 350 PUSH FEF|74 ;'<:COMPILE-DATA> 351 (MISC) INTERNAL-GET-2 D-PDL 352 POP LOCAL|6 353 CDDR D-PDL LOCAL|6 354 (MISC) CADDDR D-PDL 355 POP LOCAL|7 356 PUSH LOCAL|6 357 (MISC) CADDDR D-PDL 358 POP LOCAL|8 359 BR-NIL 367 360 PUSH LOCAL|8 361 < FEF|75 ;'142 362 BR-NIL 367 363 CALL D-IGNORE FEF|76 ;'NIL 364 PUSH FEF|77 ;'"Try to load it anyway" 365 PUSH FEF|78 ;'"~This QFASL file was written from system version ~D~%~ and may be dangerous to load into this system.~" 366 MOVE D-LAST LOCAL|8 367 MOVE D-IGNORE LOCAL|7 368 BR-NIL 382 369 PUSH LOCAL|8 370 > FEF|75 ;'142 371 BR-NIL 374 372 PUSH 'T 373 BR 377 374 PUSH-ADDRESS LOCAL|7 375 PUSH FEF|79 ;' 376 (MISC) INTERNAL-GET-2 D-PDL 377 POP FEF|24 ;':DONT-CONVERT-DESTINATIONS 378 PUSH-ADDRESS LOCAL|7 379 PUSH FEF|80 ;' 380 (MISC) INTERNAL-GET-2 D-PDL 381 POP FEF|25 ;':DONT-CONVERT-CDR-CODES 382 PUSH LOCAL|0 383 (MISC) STRINGP D-IGNORE 384 BR-NOT-NIL 402 385 PUSH FEF|81 ;':FS 386 PUSH-NUMBER 2 387 (MISC) %CALL-MULT-VALUE D-IGNORE 388 MOVE D-IGNORE ARG|1 389 BR-NIL 400 390 CALL D-PDL FEF|82 ;'NIL 391 CALL D-LAST FEF|9 ;':FDEFINE-FILE-PATHNAME 392 MOVE D-LAST FEF|83 ;'<:PROPERTY-LIST> 393 POP LOCAL|9 394 CALL D-IGNORE FEF|84 ;'NIL 395 PUSH-ADDRESS LOCAL|9 396 MOVE D-LAST FEF|85 ;'<:PACKAGE> 397 PUSH-ADDRESS LOCAL|9 398 MOVE D-LAST PDL-POP 399 BR 404 400 MOVE D-LAST FEF|9 ;':FDEFINE-FILE-PATHNAME 401 BR 404 402 PUSH 'NIL 403 PUSH 'NIL 404 POP LOCAL|11 405 MOVEM LOCAL|10 406 PUSH LOCAL|11 407 POP LOCAL|13 408 POP LOCAL|12 409 (MISC) SPECIAL-PDL-INDEX D-PDL 410 MOVE D-IGNORE LOCAL|12 411 BR-NIL 423 412 CAR D-PDL LOCAL|12 413 (MISC) VALUE-CELL-LOCATION D-PDL 414 CAR D-PDL LOCAL|13 415 (MISC) %BIND D-IGNORE 416 MOVE D-IGNORE LOCAL|13 417 BR-NOT-NIL 420 418 CALL D-IGNORE FEF|86 ;'NIL 419 CAR D-LAST LOCAL|12 420 SETE-CDR LOCAL|12 421 SETE-CDR LOCAL|13 422 BR 410 423 CALL D-PDL FEF|87 ;'NIL 424 PUSH ARG|1 425 BR-NOT-NIL-POP 427 426 PUSH FEF|27 ;':*PACKAGE* 427 MOVE D-LAST FEF|88 ;'<:ASK> 428 BIND-POP FEF|27 ;':*PACKAGE* 429 PUSH FEF|27 ;':*PACKAGE* 430 BIND-POP FEF|27 ;':*PACKAGE* 431 MOVE D-IGNORE ARG|1 432 BR-NOT-NIL 448 433 MOVE D-IGNORE FEF|8 ;':*FASL-NIBBLE-8BIT* 434 BR-NIL 437 435 CALL0 D-PDL FEF|55 ;'NIL 436 BR 438 437 CALL0 D-PDL FEF|56 ;'NIL 438 LOGAND FEF|34 ;':%FASL-GROUP-TYPE 439 = FEF|31 ;':FASL-OP-REL-FILE 440 BR-NOT-NIL 448 441 MOVE D-IGNORE ARG|2 442 BR-NOT-NIL 448 443 CALL D-IGNORE FEF|89 ;'NIL 444 PUSH FEF|30 ;':*QUERY-IO* 445 PUSH FEF|90 ;'"~&Loading ~A into package ~A~%" 446 PUSH LOCAL|0 447 MOVE D-LAST FEF|27 ;':*PACKAGE* 448 PUSH FEF|27 ;':*PACKAGE* 449 POP FEF|29 ;':LAST-FASL-FILE-PACKAGE 450 CALL0 D-IGNORE FEF|91 ;'NIL 451 (MISC) UNBIND 1 binding 452 CALL D-IGNORE FEF|12 ;':FASL-GENERIC-PLIST-RECEIVER 453 PUSH FEF|92 ;'<:PUTPROP> 454 PUSH FEF|22 ;':FASL-FILE-EVALUATIONS 455 MOVE D-LAST FEF|93 ;'<:RANDOM-FORMS> 456 CALL D-IGNORE FEF|94 ;'NIL 457 PUSH LOCAL|0 458 CALL D-PDL FEF|95 ;'NIL 459 MOVE D-LAST FEF|11 ;':FDEFINE-FILE-DEFINITIONS 460 PUSH 'T 461 MOVE D-LAST FEF|12 ;':FASL-GENERIC-PLIST-RECEIVER 462 CALL D-IGNORE FEF|96 ;'NIL 463 PUSH LOCAL|0 464 PUSH LOCAL|2 465 MOVE D-LAST FEF|27 ;':*PACKAGE* 466 (MISC) UNBIND 1 binding 467 (MISC) UNBIND-TO-INDEX D-IGNORE 468 SET-NIL FEF|14 ;':*FASL-STREAM-ARRAY* 469 CALL D-PDL FEF|95 ;'NIL 470 MOVE D-LAST FEF|28 ;':LAST-FASL-FILE-FORMS 471 POP FEF|28 ;':LAST-FASL-FILE-FORMS 472 MOVE D-RETURN LOCAL|0 ) (FASL-OP-STOREIN-FUNCTION-CELL [337] {# 22475516>} (FASL-OP-INDEX [136] {})) (FASL-OP-INDEX [101] {}) (FASL-OP-STOREIN-SYMBOL-VALUE [101] {} (FASL-OP-INDEX [92] {})) (FASL-OP-STRING "SYS: SYS; QFASL  ") (FASL-OP-STOREIN-SYMBOL-VALUE [338] {"SYS: SYS; QFASL  "} (FASL-OP-INDEX [92] {})) (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 [361] {# 22506421>} (FASL-OP-INDEX [341] {})) (FASL-OP-INDEX [101] {}) (FASL-OP-STOREIN-SYMBOL-VALUE [101] {} (FASL-OP-INDEX [92] {})) (FASL-OP-STRING "SYS: SYS; QFASL  ") (FASL-OP-STOREIN-SYMBOL-VALUE [362] {"SYS: SYS; QFASL  "} (FASL-OP-INDEX [92] {})) (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 [420] {# 22507175>} (FASL-OP-INDEX [365] {})) (FASL-OP-INDEX [101] {}) (FASL-OP-STOREIN-SYMBOL-VALUE [101] {} (FASL-OP-INDEX [92] {})) (FASL-OP-EVAL1 (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-SYMBOL ) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [58] {}) (FASL-OP-LIST [19] Area=WORKING-STORAGE-AREA (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [391] {}) (FASL-OP-FIXED 12776506) => ( 12776506)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [302] {}) (FASL-OP-FIXED 37655552) => ( 37655552)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [301] {}) (FASL-OP-FIXED 17061227) => ( 17061227)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [217] {}) (FASL-OP-FIXED 26214130) => ( 26214130)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [300] {}) (FASL-OP-FIXED 14377771) => ( 14377771)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [299] {}) (FASL-OP-FIXED 7447475) => ( 7447475)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [298] {}) (FASL-OP-FIXED 7115100) => ( 7115100)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [297] {}) (FASL-OP-FIXED 37707667) => ( 37707667)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [296] {}) (FASL-OP-FIXED 37056623) => ( 37056623)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [295] {}) (FASL-OP-FIXED 36013402) => ( 36013402)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [294] {}) (FASL-OP-FIXED 27124135) => ( 27124135)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [293] {}) (FASL-OP-FIXED 21200777) => ( 21200777)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [292] {}) (FASL-OP-FIXED 17171721) => ( 17171721)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [291] {}) (FASL-OP-FIXED 27740223) => ( 27740223)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [290] {}) (FASL-OP-FIXED 16640044) => ( 16640044)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [289] {}) (FASL-OP-FIXED 35276704) => ( 35276704)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [144] {}) (FASL-OP-FIXED 26347067) => ( 26347067)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [143] {}) (FASL-OP-FIXED 33006173) => ( 33006173)) (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (FASL-OP-INDEX [142] {}) (FASL-OP-FIXED 1120530) => ( 1120530)) => (( 12776506) ( 37655552) ( 17061227) ( 26214130) ( 14377771) ( 7447475) ( 7115100) ( 37707667) ( 37056623) ( 36013402) ( 27124135) ( 21200777) ( 17171721) ( 27740223) ( 16640044) ( 35276704) ( 26347067) ( 33006173) ( 1120530))) => ( (( 12776506) ( 37655552) ( 17061227) ( 26214130) ( 14377771) ( 7447475) ( 7115100) ( 37707667) ( 37056623) ( 36013402) ( 27124135) ( 21200777) ( 17171721) ( 27740223) ( 16640044) ( 35276704) ( 26347067) ( 33006173) ( 1120530)))) => ( ( (( 12776506) ( 37655552) ( 17061227) ( 26214130) ( 14377771) ( 7447475) ( 7115100) ( 37707667) ( 37056623) ( 36013402) ( 27124135) ( 21200777) ( 17171721) ( 27740223) ( 16640044) ( 35276704) ( 26347067) ( 33006173) ( 1120530))))) (EVAL '( ( (( 12776506) ( 37655552) ( 17061227) ( 26214130) ( 14377771) ( 7447475) ( 7115100) ( 37707667) ( 37056623) ( 36013402) ( 27124135) ( 21200777) ( 17171721) ( 27740223) ( 16640044) ( 35276704) ( 26347067) ( 33006173) ( 1120530)))))) (FASL-OP-END-OF-WHACK) (FASL-OP-END-OF-FILE)