Article View: comp.sys.ti.explorer
Article #463Re: question regarding pcl on ti
From: James Rice
Date: Wed, 21 Feb 1990 19:36
Date: Wed, 21 Feb 1990 19:36
939 lines
70172 bytes
70172 bytes
>> I am curious. What kind of bug/feature do you mean? >> Does it violate CltL? I can't imagine that this >> should only have consequences for PCL. >> -Christian Of course, in the broadest sense you're right. I don't remember the bug (it happened to me about a year ago). I put some effort into finding a repro case that did not involve the loading of most of PCL and failed. I've dug back through my mail on this subject and the following are all that I can find. Note: this problem was VERY obscure and we have seen no sign of it in normal code (it may have been fixed anyway by now in the process of the changes that were made for the releasing of Rel. 6). The following was a message I sent to David Gray who was then doing TI's CLOS development. I don't have access to the backtrace I mention. >> Hello, Remember that backtrace i sent you where the >> compiler was saying "Compiler Bug" and you said >> ~"Ignore it we'll be redoing that all for Rel 6 >> anyway". Well, under Rel 6 I no longer get the old >> problem. This time the function compiles without >> incident. However, when I call the function it all >> goes wrong. Of course, it might have been doing the >> wrong thing under Rel 5, but everything seemed to >> work. I originally yhtought that this problem was to >> do with some change to the structure of lexical >> environments, but a simple experiment seemed to >> indicate that this was not the case, but it may be. >> Do you have any ideas on this one? There's about 1/2 >> a page of system dependent code in PCL that hacks >> inside lexical environments, so if there has been a >> change then maybe a suitable for here would cure >> things. >> Rice. ;------------------------------------------------------------------------------- This is the reply I was sent (hoping DG won't mind my forwarding it). >> > I originally yhtought that this problem was to do >> > with some change to the structure of lexical environments, but >> > a simple experiment seemed to indicate that this was >> > not the case, but it may be. >> No, the structure of lexical environments has not >> changed since release 3.0. There was a rel 6 bug in >> encapsulations on lexical closures that was fixed in >> System patch 6.9, if that's relevant. >> > Do you have any ideas on this one? >> No, not without more information. ;------------------------------------------------------------------------------- The long and the short seems to be to give it a try. It only takes a few minutes to FTP PCL over and try to compile it. The worst that can happen is that you'll fail and waste your time. Rice. The following is the backtrace for the original problem. Note this was in the alpha version of TICLOS running under Rel 5, but it points to the place in the compiler where the problem happened, though the actual bug was different, I seem to recall, in the later release. ;------------------------------------------------------------------------------- BACKTRACE: >>Error: Compiler bug - failed assertion (EQUAL COMPILER::INITFORM (SECOND COMPILER::INTCODE)) Backtrace from the debugger: COMPILER::P2LMB (P.C. = 96) Arg 0 (VARNAME): #:G0389 Arg 1 (HOME): (#:G0389 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 14) (COMPILER::FEF-INI-COMP-C (COMPILER::LOCAL-REF # . 8192)) COMPILER::FEF-QT-DONTCARE NIL ...) Local 0 (INTCODE): (COMPILER::FEF-INI-COMP-C (COMPILER::LOCAL-REF (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) . 8192)) Local 1 (INITFORM): (COMPILER::UNDEFINED-VALUE) Local 2 (KIND): NIL No specials bound in this frame COMPILER::P2SBIND (P.C. = 49) Arg 0 (X): ((#:G0389 (COMPILER::UNDEFINED-VALUE))) Arg 1 (NEWVARS): ((#:G0389 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 14) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE NIL ...) (|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 (COMPILER::FEF-ARG-DELETED |#'TRAMPOLINE|) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 13) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE NI L ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 12) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 11) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-USED-IN-LEXICAL-CLOSURES) ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 10) (COMPILER::FEF-INI-COMP-C #) COMPILER:: F EF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 (COMPILER::LOCBLOCK 9) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 (COMPILER::LOCBLOCK 8) (COMPILER::FEF-INI-NONE NIL) COMPILER::FEF-QT-DONTCARE NIL ...) ...) Arg 2 (VARS): ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 (COMPILER::FEF-ARG-DELETED |#'TRAMPOLINE|) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 13) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 12) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONTCA RE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 11) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-USED-IN-LEXICAL-CLOSURES) ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 10) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 (COMPILER::LOCBLOCK 9) (COMPILER::FEF - INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 (COMPILER::LOCBLOCK 8) (COMPILER::FEF-INI-NONE NIL) COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 7) (COMPILER::FEF-INI-COMP-C *EARLY-GENERIC-FUNCTIONS*) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) ...) Local 0 (L): ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 (COMPILER::FEF-ARG-DELETED |#'TRAMPOLINE|) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 13) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 12) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONTCAR E NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 11) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-USED-IN-LEXICAL-CLOSURES) ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 10) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 (COMPILER::LOCBLOCK 9) (COMPILER::FEF- I NI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 (COMPILER::LOCBLOCK 8) (COMPILER::FEF-INI-NONE NIL) COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 7) (COMPILER::FEF-INI-COMP-C *EARLY-GENERIC-FUNCTIONS*) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) ...) Local 1: 1 Local 2 (NBINDS): 0 Local 3 (NNEWVARS): 0 Local 4 (X): ((#:G0389 (COMPILER::UNDEFINED-VALUE))) Local 5 (HOME): (#:G0389 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 14) (COMPILER::FEF-INI-COMP-C (COMPILER::LOCAL-REF # . 8192)) COMPILER::FEF-QT-DONTCARE NIL ...) Names and values of specials bound in this frame: COMPILER::VARS: ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 (COMPILER::FEF-ARG-DELETED |#'TRAMPOLINE|) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 13) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 12) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONT CARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 11) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-USED-IN-LEXICAL-CLOSURES) ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 10) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 (COMPILER::LOCBLOCK 9) (COMPILER::F E F-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 (COMPILER::LOCBLOCK 8) (COMPILER::FEF-INI-NONE NIL) COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 7) (COMPILER::FEF-INI-COMP-C *EARLY-GENERIC-FUNCTIONS*) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) ...) (:PROPERTY LET* COMPILER::P2) (P.C. = 30) Arg 0 (ARGL): (((#:G0389 #)) ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMP ILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((#:G0389 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE NIL ...) (|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED C O MPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER:: FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) ...) NIL 2 2 (|SETF GDEFINITION| (TICL:LEXICAL-CLOSURE #<COMPILER::COMPILAND 35351076> NIL) (COMPILER::LOCAL-REF # . 2097152))) Arg 1 (DEST): COMPILER::D-IGNORE Names and values of specials bound in this frame: COMPILER::KEEP-CURRENT-FRAME: T COMPILER::LEXICAL-CLOSURE-COUNT: 1 COMPILER::CLOSURE-DISCONNECT-OFFSETS: NIL COMPILER::VARS: ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 (COMPILER::FEF-ARG-DELETED |#'TRAMPOLINE|) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 13) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 12) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONT CARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 11) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-USED-IN-LEXICAL-CLOSURES) ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 10) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 (COMPILER::LOCBLOCK 9) (COMPILER::F E F-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 (COMPILER::LOCBLOCK 8) (COMPILER::FEF-INI-NONE NIL) COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 7) (COMPILER::FEF-INI-COMP-C *EARLY-GENERIC-FUNCTIONS*) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) ...) COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (LET* ((#:G0389 #)) ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((#:G0389 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE NIL ...) (|#'TRAMPOLINE| COMPILER::FEF-ARG-DELE T ED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPI LER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) ...) NIL 2 2 (|SETF GDEFINITION| (TICL:LEXICAL-CLOSURE #<COMPILER::COMPILAND 35351076> NIL) (COMPILER::LOCAL-REF # . 2097152))) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): LET* Local 1 (ARGL): (((#:G0389 #)) ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX CO MPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((#:G0389 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE NIL ...) (|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER ::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) ...) NIL 2 2 (|SETF GDEFINITION| (TICL:LEXICAL-CLOSURE #<COMPILER::COMPILAND 35351076> NIL) (COMPILER::LOCAL-REF # . 2097152))) Local 2 (HANDLER): #<DTP-FUNCTION (:PROPERTY LET* COMPILER::P2) 12412747> Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL (:PROPERTY COMPILER::THE-EXPR COMPILER::P2) (P.C. = 35) Arg 0 (ARGL): ((LET* (#) (# # # # # # # # ...) (# # # # # # # # ...) NIL 2 2 (|SETF GDEFINITION| # #)) 2236419 2097155 69905 COMPILER::UNKNOWN NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (THE-FORM): (COMPILER::THE-EXPR (LET* (#) (# # # # # # # # ...) (# # # # # # # # ...) NIL 2 2 (|SETF GDEFINITION| # #)) 2236419 2097155 69905 COMPILER::UNKNOWN NIL) Local 1 (FORM): (LET* ((#:G0389 #)) ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-A UX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((#:G0389 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE NIL ...) (|#'TRAMPOLINE| COMPILER::FEF-ARG-DE L ETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COM PILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) ...) NIL 2 2 (|SETF GDEFINITION| (TICL:LEXICAL-CLOSURE #<COMPILER::COMPILAND 35351076> NIL) (COMPILER::LOCAL-REF # . 2097152))) COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (COMPILER::THE-EXPR (LET* (#) (# # # # # # # # ...) (# # # # # # # # ...) NIL 2 2 (|SETF GDEFINITION| # #)) 2236419 2097155 69905 COMPILER::UNKNOWN NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): COMPILER::THE-EXPR Local 1 (ARGL): ((LET* (#) (# # # # # # # # ...) (# # # # # # # # ...) NIL 2 2 (|SETF GDEFINITION| # #)) 2236419 2097155 69905 COMPILER::UNKNOWN NIL) Local 2 (HANDLER): #<DTP-FUNCTION (:PROPERTY COMPILER::THE-EXPR COMPILER::P2) 12414251> Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL COMPILER::P2 (P.C. = 193) Arg 0 (FORM): (COMPILER::THE-EXPR (LET* (#) (# # # # # # # # ...) (# # # # # # # # ...) NIL 2 2 (|SETF GDEFINITION| # #)) 2236419 2097155 69905 COMPILER::UNKNOWN NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (ADR): NIL Local 1 (DEST1): NIL COMPILER::P2PROG12N (P.C. = 54) Arg 0 (N): 9 Arg 1 (DEST): COMPILER::D-IGNORE Arg 2 (ARGL): ((COMPILER::THE-EXPR (LET* # # # NIL 2 2 #) 2236419 2097155 69905 COMPILER::UNKNOWN NIL) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-STRING #)) (FUNCALL (COMPILER::LOCAL-REF # . 512) (COMPILER::LOCAL-REF # . 32768)) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-STRING #)) (INITIALIZE (COMPILER::LOCAL-REF # . 32768) (QUOTE NIL)) (COMPILER::THE-EXPR (LET* # # # NIL 2 2 #) 17072135 16777219 69905 COMPILER::UNKNOWN NIL) (SET-SLOT-VALUE (COMPILER::LOCAL-REF # . 32768) (QUOTE NAME) (COMPILER::LOCAL-REF # . 8192)) (SETQ (COMPILER::LOCAL-REF # . 524288) (QUOTE NIL))) Local 0 (IDEST): COMPILER::D-IGNORE Local 1 (I): 2 Local 2: NIL Local 3 (ARG): NIL COMPILER::P2PROGN (P.C. = 13) Arg 0 (ARGL): ((SETQ (COMPILER::LOCAL-REF # . 131072) (CADR #)) (SETQ (COMPILER::LOCAL-REF # . 262144) (CAR #)) (COMPILER::THE-EXPR (LET* # # # NIL 2 2 #) 2236419 2097155 69905 COMPILER::UNKNOWN NIL) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-STRING #)) (FUNCALL (COMPILER::LOCAL-REF # . 512) (COMPILER::LOCAL-REF # . 32768)) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-STRING #)) (INITIALIZE (COMPILER::LOCAL-REF # . 32768) (QUOTE NIL)) (COMPILER::THE-EXPR (LET* # # # NIL 2 2 #) 17072135 16777219 69905 COMPILER::UN KNOWN NIL) ...) Arg 1 (DEST): COMPILER::D-IGNORE COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (PROGN (SETQ (COMPILER::LOCAL-REF # . 131072) (CADR #)) (SETQ (COMPILER::LOCAL-REF # . 262144) (CAR #)) (COMPILER::THE-EXPR (LET* # # # NIL 2 2 #) 2236419 2097155 69905 COMPILER::UNKNOWN NIL) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-STRING #)) (FUNCALL (COMPILER::LOCAL-REF # . 512) (COMPILER::LOCAL-REF # . 32768)) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-STRING #)) (INITIALIZE (COMPILER::LOCAL-REF # . 32768) (QUOTE NIL)) ...) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): PROGN Local 1 (ARGL): ((SETQ (COMPILER::LOCAL-REF # . 131072) (CADR #)) (SETQ (COMPILER::LOCAL-REF # . 262144) (CAR #)) (COMPILER::THE-EXPR (LET* # # # NIL 2 2 #) 2236419 2097155 69905 COMPILER::UNKNOWN NIL) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-STRING #)) (FUNCALL (COMPILER::LOCAL-REF # . 512) (COMPILER::LOCAL-REF # . 32768)) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-STRING #)) (INITIALIZE (COMPILER::LOCAL-REF # . 32768) (QUOTE NIL)) (COMPILER::THE-EXPR (LET* # # # NIL 2 2 #) 17072135 16777219 69905 COMPILER:: UNKNOWN NIL) ...) Local 2 (HANDLER): COMPILER::P2PROGN Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL COMPILER::P2 (P.C. = 193) Arg 0 (FORM): (PROGN (SETQ (COMPILER::LOCAL-REF # . 131072) (CADR #)) (SETQ (COMPILER::LOCAL-REF # . 262144) (CAR #)) (COMPILER::THE-EXPR (LET* # # # NIL 2 2 #) 2236419 2097155 69905 COMPILER::UNKNOWN NIL) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-STRING #)) (FUNCALL (COMPILER::LOCAL-REF # . 512) (COMPILER::LOCAL-REF # . 32768)) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-STRING #)) (INITIALIZE (COMPILER::LOCAL-REF # . 32768) (QUOTE NIL)) ...) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (ADR): NIL Local 1 (DEST1): NIL (:PROPERTY UNWIND-PROTECT COMPILER::P2) (P.C. = 211) Arg 0 (FORMS): ((PROGN (SETQ # #) (SETQ # #) (COMPILER::THE-EXPR # 2236419 2097155 69905 COMPILER::UNKNOWN NIL) (AND # #) (FUNCALL # #) (AND # #) (INITIALIZE # #) ...) (|SETF GDEFINITION| (COMPILER::LOCAL-REF # . 32768) (COMPILER::LOCAL-REF # . 8192)) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-CHAR #)) (AND (COMPILER::LOCAL-REF # . 524288) (COMPILER::THE-EXPR # 2195459 3 69905 T T))) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (RESTART-TAG): #:G0424 Local 1 (UNDO-TAG): #:G0425 Local 2 (EXIT-TAG): #:G0426 Local 3 (PDLLVL0): 2 Local 4 (SINGLE-VALUE-RETURN): NIL Local 5 (ARGS): (COMPILER::%OPEN-CATCH-MULTIPLE-VALUE) Local 6 (I): NIL Local 7: NIL Local 8 (FORM): NIL COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (UNWIND-PROTECT (PROGN (SETQ # #) (SETQ # #) (COMPILER::THE-EXPR # 2236419 2097155 69905 COMPILER::UNKNOWN NIL) (AND # #) (FUNCALL # #) (AND # #) (INITIALIZE # #) ...) (|SETF GDEFINITION| (COMPILER::LOCAL-REF # . 32768) (COMPILER::LOCAL-REF # . 8192)) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-CHAR #)) (AND (COMPILER::LOCAL-REF # . 524288) (COMPILER::THE-EXPR # 2195459 3 69905 T T))) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): UNWIND-PROTECT Local 1 (ARGL): ((PROGN (SETQ # #) (SETQ # #) (COMPILER::THE-EXPR # 2236419 2097155 69905 COMPILER::UNKNOWN NIL) (AND # #) (FUNCALL # #) (AND # #) (INITIALIZE # #) ...) (|SETF GDEFINITION| (COMPILER::LOCAL-REF # . 32768) (COMPILER::LOCAL-REF # . 8192)) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-CHAR #)) (AND (COMPILER::LOCAL-REF # . 524288) (COMPILER::THE-EXPR # 2195459 3 69905 T T))) Local 2 (HANDLER): #<DTP-FUNCTION (:PROPERTY UNWIND-PROTECT COMPILER::P2) 13213371> Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL COMPILER::P2 (P.C. = 193) Arg 0 (FORM): (UNWIND-PROTECT (PROGN (SETQ # #) (SETQ # #) (COMPILER::THE-EXPR # 2236419 2097155 69905 COMPILER::UNKNOWN NIL) (AND # #) (FUNCALL # #) (AND # #) (INITIALIZE # #) ...) (|SETF GDEFINITION| (COMPILER::LOCAL-REF # . 32768) (COMPILER::LOCAL-REF # . 8192)) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-CHAR #)) (AND (COMPILER::LOCAL-REF # . 524288) (COMPILER::THE-EXPR # 2195459 3 69905 T T))) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (ADR): NIL Local 1 (DEST1): NIL COMPILER::P2MV (P.C. = 30) Arg 0 (FORM): (UNWIND-PROTECT (PROGN (SETQ # #) (SETQ # #) (COMPILER::THE-EXPR # 2236419 2097155 69905 COMPILER::UNKNOWN NIL) (AND # #) (FUNCALL # #) (AND # #) (INITIALIZE # #) ...) (|SETF GDEFINITION| (COMPILER::LOCAL-REF # . 32768) (COMPILER::LOCAL-REF # . 8192)) (AND (COMPILER::LOCAL-REF # . 4) (WRITE-CHAR #)) (AND (COMPILER::LOCAL-REF # . 524288) (COMPILER::THE-EXPR # 2195459 3 69905 T T))) Arg 1 (DEST): COMPILER::D-IGNORE Arg 2 (M-V-TARGET): NIL COMPILER::P2COND (P.C. = 350) Arg 0 (ARGL): (((QUOTE T) (UNWIND-PROTECT # # # #))) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (X): NIL Local 1 (N): NIL Local 2 (CLAUSE): ((UNWIND-PROTECT (PROGN # # # # # # # ...) (|SETF GDEFINITION| # #) (AND # #) (AND # #))) Local 3 (TEST): NIL Local 4 (TAG): #:G0420 Local 5 (TAG1): #:G0423 Local 6 (TAG2): #:G0419 Local 7 (VALF): NIL Local 8 (CLAUSE-LENGTH): 2 Local 9 (TM): ((QUOTE T) (UNWIND-PROTECT (PROGN # # # # # # # ...) (|SETF GDEFINITION| # #) (AND # #) (AND # #))) Local 10 (IDEST): COMPILER::D-IGNORE Local 11 (PRED): (QUOTE T) Local 12 (NOFALLTHRU): T Local 13 (LAST-CLAUSE-FLAG): T Local 14 (IDEST-USED): NIL Local 15 (ACTIONS): ((UNWIND-PROTECT (PROGN # # # # # # # ...) (|SETF GDEFINITION| # #) (AND # #) (AND # #))) Local 16 (TO-IDEST-P): NIL COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (COND ((NOT #) (AND # #)) ((QUOTE T) (UNWIND-PROTECT # # # #))) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): COND Local 1 (ARGL): (((NOT #) (AND # #)) ((QUOTE T) (UNWIND-PROTECT # # # #))) Local 2 (HANDLER): COMPILER::P2COND Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL COMPILER::P2 (P.C. = 193) Arg 0 (FORM): (COND ((NOT #) (AND # #)) ((QUOTE T) (UNWIND-PROTECT # # # #))) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (ADR): NIL Local 1 (DEST1): NIL COMPILER::P2MV (P.C. = 30) Arg 0 (FORM): (COND ((NOT #) (AND # #)) ((QUOTE T) (UNWIND-PROTECT # # # #))) Arg 1 (DEST): COMPILER::D-IGNORE Arg 2 (M-V-TARGET): NIL COMPILER::P2LET-INTERNAL (P.C. = 203) Arg 0 (OVARS): ((ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 13) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 12) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 11) (COMPILER::FEF-INI-COMP-C NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-USED-IN -LEXICAL-CLOSURES) ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 10) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 (COMPILER::LOCBLOCK 9) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 (COMPILER::LOCBLOCK 8) (COMPILER::FEF-INI-NONE NIL) C OMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 7) (COMPILER::FEF-INI-COMP-C *EARLY-GENERIC-FUNCTIONS*) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 (COMPILER::FEF-ARG-DELETED COMPILER::|Exit block NIL|) (COMPILER::FEF-INI-NONE NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) ...) Arg 1 (NBINDS): 0 Arg 2 (ARGL): (NIL ((ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-L OCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX C O MPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMP ILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 2 (COND (# #) (# #))) Arg 3 (DEST): COMPILER::D-IGNORE --Defaulted args:-- Arg 4 (IGNORE-LEXICAL-CLOSURES): NIL Local 0 (IBINDP): NIL Local 1 (BDY): ((COND (# #) (# #))) Local 2 (IDEST): COMPILER::D-IGNORE Local 3 (NVALUES): 0 Local 4 (M-V-DONE): NIL Local 5 (TAIL): ((COND (# #) (# #))) Local 6 (CLOBBERED-INDICATORS): NIL (:PROPERTY LET* COMPILER::P2) (P.C. = 33) Arg 0 (ARGL): (NIL ((ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-L OCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX C O MPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMP ILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 2 (COND (# #) (# #))) Arg 1 (DEST): COMPILER::D-IGNORE COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (LET* NIL ((ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER:: FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL- A UX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 2 (COND (# #) (# #))) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): LET* Local 1 (ARGL): (NIL ((ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF -LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC CO MPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 2 (COND (# #) (# #))) Local 2 (HANDLER): #<DTP-FUNCTION (:PROPERTY LET* COMPILER::P2) 12412747> Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL (:PROPERTY COMPILER::THE-EXPR COMPILER::P2) (P.C. = 35) Arg 0 (ARGL): ((LET* NIL (# # # # # # # # ...) (# # # # # # # # ...) NIL 1 2 (COND # #)) 20947847 917507 69905 COMPILER::UNKNOWN NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (THE-FORM): (COMPILER::THE-EXPR (LET* NIL (# # # # # # # # ...) (# # # # # # # # ...) NIL 1 2 (COND # #)) 20947847 917507 69905 COMPILER::UNKNOWN NIL) Local 1 (FORM): (LET* NIL ((ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER ::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((|#'TRAMPOLINE| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (ABORTED COMPILER::FEF-ARG-INTERNA L -AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SP EC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 2 (COND (# #) (# #))) COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (COMPILER::THE-EXPR (LET* NIL (# # # # # # # # ...) (# # # # # # # # ...) NIL 1 2 (COND # #)) 20947847 917507 69905 COMPILER::UNKNOWN NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): COMPILER::THE-EXPR Local 1 (ARGL): ((LET* NIL (# # # # # # # # ...) (# # # # # # # # ...) NIL 1 2 (COND # #)) 20947847 917507 69905 COMPILER::UNKNOWN NIL) Local 2 (HANDLER): #<DTP-FUNCTION (:PROPERTY COMPILER::THE-EXPR COMPILER::P2) 12414251> Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL COMPILER::P2 (P.C. = 193) Arg 0 (FORM): (COMPILER::THE-EXPR (LET* NIL (# # # # # # # # ...) (# # # # # # # # ...) NIL 1 2 (COND # #)) 20947847 917507 69905 COMPILER::UNKNOWN NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (ADR): NIL Local 1 (DEST1): NIL COMPILER::P2MV (P.C. = 30) Arg 0 (FORM): (COMPILER::THE-EXPR (LET* NIL (# # # # # # # # ...) (# # # # # # # # ...) NIL 1 2 (COND # #)) 20947847 917507 69905 COMPILER::UNKNOWN NIL) Arg 1 (DEST): COMPILER::D-IGNORE Arg 2 (M-V-TARGET): NIL COMPILER::P2LET-INTERNAL (P.C. = 203) Arg 0 (OVARS): ((EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 (COMPILER::LOCBLOCK 8) (COMPILER::FEF-INI-NONE NIL) COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 7) (COMPILER::FEF-INI-COMP-C *EARLY-GENERIC-FUNCTIONS*) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 (COMPILER::FEF-ARG-DELETED COMPILER::|Exit block NIL|) (COMPIL ER::FEF-INI-NONE NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 6) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 3) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED COMPILER::FEF-ARG-USED-IN-LEXICAL-CLOSURES) ...) (WRAPPER COM P ILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 1) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED COMPILER::FEF-ARG-USED-IN-LEXICAL-CLOSURES) ...) (CLASS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 0) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 (COMPILER::FEF-ARG-DELETED #:|Exit bl ock FIX-EARLY-GENERIC-FUNCTIONS|) (COMPILER::FEF-INI-NONE NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) ...) Arg 1 (NBINDS): 0 Arg 2 (ARGL): (((EARLY-GF #) (EARLY-STATIC-SLOTS #) EARLY-DISCRIMINATOR-CODE EARLY-METHODS (ABORTED #)) ((EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER:: FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::F E F-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF- ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 1 (COMPILER::THE-EXPR (LET* NIL # # NIL 1 2 #) 20947847 917507 69905 COMPILER::UNKNOWN NIL)) Arg 3 (DEST): COMPILER::D-IGNORE --Defaulted args:-- Arg 4 (IGNORE-LEXICAL-CLOSURES): NIL Local 0 (IBINDP): NIL Local 1 (BDY): ((COMPILER::THE-EXPR (LET* NIL # # NIL 1 2 #) 20947847 917507 69905 COMPILER::UNKNOWN NIL)) Local 2 (IDEST): COMPILER::D-IGNORE Local 3 (NVALUES): 0 Local 4 (M-V-DONE): NIL Local 5 (TAIL): ((COMPILER::THE-EXPR (LET* NIL # # NIL 1 2 #) 20947847 917507 69905 COMPILER::UNKNOWN NIL)) Local 6 (CLOBBERED-INDICATORS): NIL (:PROPERTY LET* COMPILER::P2) (P.C. = 33) Arg 0 (ARGL): (((EARLY-GF #) (EARLY-STATIC-SLOTS #) EARLY-DISCRIMINATOR-CODE EARLY-METHODS (ABORTED #)) ((EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER:: FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::F E F-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FEF- ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 1 (COMPILER::THE-EXPR (LET* NIL # # NIL 1 2 #) 20947847 917507 69905 COMPILER::UNKNOWN NIL)) Arg 1 (DEST): COMPILER::D-IGNORE COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (LET* ((EARLY-GF #) (EARLY-STATIC-SLOTS #) EARLY-DISCRIMINATOR-CODE EARLY-METHODS (ABORTED #)) ((EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPI LER::FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPIL E R::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER: :FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 1 (COMPILER::THE-EXPR (LET* NIL # # NIL 1 2 #) 20947847 917507 69905 COMPILER::UNKNOWN NIL)) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): LET* Local 1 (ARGL): (((EARLY-GF #) (EARLY-STATIC-SLOTS #) EARLY-DISCRIMINATOR-CODE EARLY-METHODS (ABORTED #)) ((EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER ::FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMPILER: : FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILER::FE F-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 1 (COMPILER::THE-EXPR (LET* NIL # # NIL 1 2 #) 20947847 917507 69905 COMPILER::UNKNOWN NIL)) Local 2 (HANDLER): #<DTP-FUNCTION (:PROPERTY LET* COMPILER::P2) 12412747> Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL (:PROPERTY COMPILER::THE-EXPR COMPILER::P2) (P.C. = 35) Arg 0 (ARGL): ((LET* (# # EARLY-DISCRIMINATOR-CODE EARLY-METHODS #) (# # # # # # # # ...) (# # # # # # # # ...) NIL 1 1 (COMPILER::THE-EXPR # 20947847 917507 69905 COMPILER::UNKNOWN NIL)) 1024903 917507 69905 COMPILER::UNKNOWN NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (THE-FORM): (COMPILER::THE-EXPR (LET* (# # EARLY-DISCRIMINATOR-CODE EARLY-METHODS #) (# # # # # # # # ...) (# # # # # # # # ...) NIL 1 1 (COMPILER::THE-EXPR # 20947847 917507 69905 COMPILER::UNKNOWN NIL)) 1024903 917507 69905 COMPILER::UNKNOWN NIL) Local 1 (FORM): (LET* ((EARLY-GF #) (EARLY-STATIC-SLOTS #) EARLY-DISCRIMINATOR-CODE EARLY-METHODS (ABORTED #)) ((EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COM PILER::FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) ((ABORTED COMPILER::FEF-ARG-INTERNAL-AUX COMP I LER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-METHODS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE NIL ...) (EARLY-DISCRIMINATOR-CODE COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 9 # # COMPILER::FEF-QT-DONTCARE # ...) (EARLY-GF-SPEC COMPILE R::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 1 (COMPILER::THE-EXPR (LET* NIL # # NIL 1 2 #) 20947847 917507 69905 COMPILER::UNKNOWN NIL)) COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (COMPILER::THE-EXPR (LET* (# # EARLY-DISCRIMINATOR-CODE EARLY-METHODS #) (# # # # # # # # ...) (# # # # # # # # ...) NIL 1 1 (COMPILER::THE-EXPR # 20947847 917507 69905 COMPILER::UNKNOWN NIL)) 1024903 917507 69905 COMPILER::UNKNOWN NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): COMPILER::THE-EXPR Local 1 (ARGL): ((LET* (# # EARLY-DISCRIMINATOR-CODE EARLY-METHODS #) (# # # # # # # # ...) (# # # # # # # # ...) NIL 1 1 (COMPILER::THE-EXPR # 20947847 917507 69905 COMPILER::UNKNOWN NIL)) 1024903 917507 69905 COMPILER::UNKNOWN NIL) Local 2 (HANDLER): #<DTP-FUNCTION (:PROPERTY COMPILER::THE-EXPR COMPILER::P2) 12414251> Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL COMPILER::P2 (P.C. = 193) Arg 0 (FORM): (COMPILER::THE-EXPR (LET* (# # EARLY-DISCRIMINATOR-CODE EARLY-METHODS #) (# # # # # # # # ...) (# # # # # # # # ...) NIL 1 1 (COMPILER::THE-EXPR # 20947847 917507 69905 COMPILER::UNKNOWN NIL)) 1024903 917507 69905 COMPILER::UNKNOWN NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (ADR): NIL Local 1 (DEST1): NIL COMPILER::P2PROG12N (P.C. = 96) Arg 0 (N): 1 Arg 1 (DEST): COMPILER::D-IGNORE Arg 2 (ARGL): ((COMPILER::THE-EXPR (LET* # # # NIL 1 1 #) 1024903 917507 69905 COMPILER::UNKNOWN NIL)) Local 0 (IDEST): COMPILER::D-IGNORE Local 1 (I): 1 Local 2: NIL Local 3 (ARG): NIL COMPILER::P2PROGN (P.C. = 13) Arg 0 (ARGL): ((AND (COMPILER::LOCAL-REF # . 4) (PROGN # # #)) (COMPILER::THE-EXPR (LET* # # # NIL 1 1 #) 1024903 917507 69905 COMPILER::UNKNOWN NIL)) Arg 1 (DEST): COMPILER::D-IGNORE COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (PROGN (AND (COMPILER::LOCAL-REF # . 4) (PROGN # # #)) (COMPILER::THE-EXPR (LET* # # # NIL 1 1 #) 1024903 917507 69905 COMPILER::UNKNOWN NIL)) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): PROGN Local 1 (ARGL): ((AND (COMPILER::LOCAL-REF # . 4) (PROGN # # #)) (COMPILER::THE-EXPR (LET* # # # NIL 1 1 #) 1024903 917507 69905 COMPILER::UNKNOWN NIL)) Local 2 (HANDLER): COMPILER::P2PROGN Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL (:PROPERTY COMPILER::THE-EXPR COMPILER::P2) (P.C. = 35) Arg 0 (ARGL): ((PROGN (AND # #) (COMPILER::THE-EXPR # 1024903 917507 69905 COMPILER::UNKNOWN NIL)) 9095 3 69905 NULL NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (THE-FORM): (COMPILER::THE-EXPR (PROGN (AND # #) (COMPILER::THE-EXPR # 1024903 917507 69905 COMPILER::UNKNOWN NIL)) 9095 3 69905 NULL NIL) Local 1 (FORM): (PROGN (AND (COMPILER::LOCAL-REF # . 4) (PROGN # # #)) (COMPILER::THE-EXPR (LET* # # # NIL 1 1 #) 1024903 917507 69905 COMPILER::UNKNOWN NIL)) COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (COMPILER::THE-EXPR (PROGN (AND # #) (COMPILER::THE-EXPR # 1024903 917507 69905 COMPILER::UNKNOWN NIL)) 9095 3 69905 NULL NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): COMPILER::THE-EXPR Local 1 (ARGL): ((PROGN (AND # #) (COMPILER::THE-EXPR # 1024903 917507 69905 COMPILER::UNKNOWN NIL)) 9095 3 69905 NULL NIL) Local 2 (HANDLER): #<DTP-FUNCTION (:PROPERTY COMPILER::THE-EXPR COMPILER::P2) 12414251> Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL COMPILER::P2 (P.C. = 193) Arg 0 (FORM): (COMPILER::THE-EXPR (PROGN (AND # #) (COMPILER::THE-EXPR # 1024903 917507 69905 COMPILER::UNKNOWN NIL)) 9095 3 69905 NULL NIL) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (ADR): NIL Local 1 (DEST1): NIL (:PROPERTY COMPILER::%DOLIST COMPILER::P2) (P.C. = 75) Arg 0 (ARGL): ((COMPILER::LOCAL-REF (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) . 8192) (COMPILER::LOCAL-REF (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) . 4096) (COMPILER::THE-EXPR (PROGN # #) 9095 3 69905 NULL NIL)) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (TOP-TAG): #:G0416 Local 1 (BOTTOM-TAG): #:G0417 COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (COMPILER::%DOLIST (COMPILER::LOCAL-REF (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) . 8192) (COMPILER::LOCAL-REF (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) . 4096) (COMPILER::THE-EXPR (PROGN # #) 9095 3 69905 NULL NIL)) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): COMPILER::%DOLIST Local 1 (ARGL): ((COMPILER::LOCAL-REF (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) . 8192) (COMPILER::LOCAL-REF (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) . 4096) (COMPILER::THE-EXPR (PROGN # #) 9095 3 69905 NULL NIL)) Local 2 (HANDLER): #<DTP-FUNCTION (:PROPERTY COMPILER::%DOLIST COMPILER::P2) 13214324> Local 3 (OPCODES): NIL Local 4 (NARGS): NIL Local 5 (SENSE): NIL Local 6 (INSTR): NIL Local 7 (ARG): NIL Local 8 (TAIL): NIL Local 9 (LAST-ARG): NIL COMPILER::P2 (P.C. = 193) Arg 0 (FORM): (COMPILER::%DOLIST (COMPILER::LOCAL-REF (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) . 8192) (COMPILER::LOCAL-REF (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) . 4096) (COMPILER::THE-EXPR (PROGN # #) 9095 3 69905 NULL NIL)) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (ADR): NIL Local 1 (DEST1): NIL COMPILER::P2MV (P.C. = 30) Arg 0 (FORM): (COMPILER::%DOLIST (COMPILER::LOCAL-REF (EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) . 8192) (COMPILER::LOCAL-REF (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) . 4096) (COMPILER::THE-EXPR (PROGN # #) 9095 3 69905 NULL NIL)) Arg 1 (DEST): COMPILER::D-IGNORE Arg 2 (M-V-TARGET): NIL COMPILER::P2LET-INTERNAL (P.C. = 203) Arg 0 (OVARS): ((COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 (COMPILER::FEF-ARG-DELETED COMPILER::|Exit block NIL|) (COMPILER::FEF-INI-NONE NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 6) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCB LOCK 3) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED COMPILER::FEF-ARG-USED-IN-LEXICAL-CLOSURES) ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 (COMPILER::LOCBLOCK 1) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED COMPILER::FEF-ARG-USED-IN-LEXICAL-CLOSURES) ...) (CLASS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 (COMPILER::LOCBLOCK 0) (COMPILER::FEF-INI-COMP-C #) COMPILER::FEF-QT-DONTCARE (COMPILER: : FEF-ARG-NOT-ALTERED) ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 (COMPILER::FEF-ARG-DELETED #:|Exit block FIX-EARLY-GENERIC-FUNCTIONS|) (COMPILER::FEF-INI-NONE NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...) (NOISYP COMPILER::FEF-ARG-OPT COMPILER::FEF-LOCAL 6 (ZLC:ARG 0) (COMPILER::FEF-INI-NIL NIL) COMPILER::FEF-QT-DONTCARE (COMPILER::FEF-ARG-NOT-ALTERED) ...)) Arg 1 (NBINDS): 0 Arg 2 (ARGL): (((#:G0382 *EARLY-GENERIC-FUNCTIONS*) (EARLY-GF-SPEC #)) ((COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS COMP ILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (NOISYP COMPILER::FEF-ARG-OPT COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE # ...)) ((EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DON TCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 1 (COMPILER::%DOLIST (COMPILER::LOCAL-REF # . 8192) (COMPILER::LOCAL-REF # . 4096) (COMPILER::THE-EXPR # 9095 3 69905 NULL NIL))) Arg 3 (DEST): COMPILER::D-IGNORE --Defaulted args:-- Arg 4 (IGNORE-LEXICAL-CLOSURES): NIL Local 0 (IBINDP): NIL Local 1 (BDY): ((COMPILER::%DOLIST (COMPILER::LOCAL-REF # . 8192) (COMPILER::LOCAL-REF # . 4096) (COMPILER::THE-EXPR # 9095 3 69905 NULL NIL))) Local 2 (IDEST): COMPILER::D-IGNORE Local 3 (NVALUES): 0 Local 4 (M-V-DONE): NIL Local 5 (TAIL): ((COMPILER::%DOLIST (COMPILER::LOCAL-REF # . 8192) (COMPILER::LOCAL-REF # . 4096) (COMPILER::THE-EXPR # 9095 3 69905 NULL NIL))) Local 6 (CLOBBERED-INDICATORS): NIL (:PROPERTY LET* COMPILER::P2) (P.C. = 33) Arg 0 (ARGL): (((#:G0382 *EARLY-GENERIC-FUNCTIONS*) (EARLY-GF-SPEC #)) ((COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS COMP ILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (NOISYP COMPILER::FEF-ARG-OPT COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE # ...)) ((EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DON TCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 1 (COMPILER::%DOLIST (COMPILER::LOCAL-REF # . 8192) (COMPILER::LOCAL-REF # . 4096) (COMPILER::THE-EXPR # 9095 3 69905 NULL NIL))) Arg 1 (DEST): COMPILER::D-IGNORE COMPILER::P2F (P.C. = 136) Arg 0 (FORM): (LET* ((#:G0382 *EARLY-GENERIC-FUNCTIONS*) (EARLY-GF-SPEC #)) ((COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (NOISYP COMPILER::FEF-ARG-OPT COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE # ...)) ((EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF- QT-DONTCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) ...) NIL 1 1 (COMPILER::%DOLIST (COMPILER::LOCAL-REF # . 8192) (COMPILER::LOCAL-REF # . 4096) (COMPILER::THE-EXPR # 9095 3 69905 NULL NIL))) Arg 1 (DEST): COMPILER::D-IGNORE Local 0 (FN): LET* Local 1 (ARGL): (((#:G0382 *EARLY-GENERIC-FUNCTIONS*) (EARLY-GF-SPEC #)) ((COMPILER::|Exit block NIL| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (|#'FIX-STRUCTURE| COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (N-STATIC-SLOTS COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (WRAPPER COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ...) (CLASS CO MPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 2 # # COMPILER::FEF-QT-DONTCARE # ...) (#:|Exit block FIX-EARLY-GENERIC-FUNCTIONS| COMPILER::FEF-ARG-DELETED COMPILER::FEF-LOCAL 0 # # COMPILER::FEF-QT-DONTCARE # ...) (NOISYP COMPILER::FEF-ARG-OPT COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE # ...)) ((EARLY-GF-SPEC COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 6 # # COMPILER::FEF-QT-DONTCARE NIL ...) (#:G0382 COMPILER::FEF-ARG-INTERNAL-AUX COMPILER::FEF-LOCAL 1 # # COMPILER::FEF-QT-DONTCARE # ..
Technical Details
Message-ID:
<2844617806-9972915@KSL-EXP-6>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!SUMEX-AIM.STANFORD.EDU!RiceReferences:
<rathke@informatik.uni-stuttgart.de>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!SUMEX-AIM.STANFORD.EDU!Rice From: Rice@SUMEX-AIM.STANFORD.EDU (James Rice) Newsgroups: comp.sys.ti.explorer Subject: Re: question regarding pcl on ti Message-ID: <2844617806-9972915@KSL-EXP-6> Date: 21 Feb 90 19:36:46 GMT References: <rathke@informatik.uni-stuttgart.de> Sender: daemon@ucbvax.BERKELEY.EDU Distribution: inet Organization: The Internet Lines: 2585