; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading DEBUG 159   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPDEBUG159U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xGETGRINDEFU+UjUFUNCALLAUTOLOADLIST*!#!!#xFORMAT%#%%#xYESNOPLOADLISPu*UjU'xDEBUG-FRAMENEXTPREVIOUSSUPPRESSED-COMPONENT-NAMES)+xANDFEATURECOMPLRU:].uSPECIALQUERY-IO-/1xBOUNDP11 xERROR-IO-/3x331xDEBUG-COMMAND-LISTw+Uju-/xxDEBUG-PRINLEVEL-/5x55xDEBUG-PRINLENGTH-/7xu;UnW77xDEBUG-PRIN1-/9x99xDEBUG-SPRINTER-MODE-/xxDEBUG-INDENT-MAX-/;xW+Ujw;;xDEBUG-PROMPT-/=xDBG>==xDEBUG-FRAME-SUPPRESSION-ALIST-/?x??xW*UjwDEBUG-SUPPRESSION-REASONS-/ xLETGARBAGEDEBUG-INTERNAL  A!CxSI:IGNORED-ERROR-FUNS-/"x""xW;U.wHelp Ep##x# xReturn G$pIIxI xW;UnuTab %pKKxK xSpace &pMMxM xLinefW;U.weed 'Op((x( xBackspace Q)pSSxS xU;].wRubout *Up++x+ xForm Wp,,x, xW;Unu~C Yp--x- x^~C [p..x. xDEBUG-NAME-CHARASUBR 0N$+ "#`7 + @( I`7 +K`70N+ MAA`70N+ "(`70N+S`7P + "+`70N+ ",`71n+ +,8,89Ko%@ `7 ,,8,8,8..  *p Ko%,x-%jU*.h/MAKHUNKDEBUG-COMMAND-SPEC-CLASS**SELF-EVAL**ENTER-DEBUG-COMMAND,8 @@_0aXJ (1QH . .. g~-, $-,/@,8`g ..p-,A@-,/,8`,<4 ..p g`0-,A-,/@` -, B,x]+U*U/;EXTSTRFASL2'2exSI:DEFVST-BARE-INITDEBUG-COMMAND-SPECCONS-A-DEBUG-COMMAND-SPECCHARSDEBUG-COMMAND-SPEC-CHARSU*U*UFUNDEBUG-COMMAND-SPEC-FUNDOCDEBUG-COMMAND-SPEC-DOCDSKRWKDEBMAC4 3ga4i5k6m7o8q9sxMEMBERDEBUG-FIND-COMMAND-SPEC,8,87@g+=1[g B` $A:w ``{`]Zg Bg+6 ",x(/iSUPPRESSEDUMEMQDEBUG-NEXT-VALID-FRAME@7@`` `[!Hb $;  aw `+H `@P P B`+@ "/,x@/}DEBUG-PREVIOUS-VALID-FRAME `7@`+R `[ $;  @ aw5BP `` `` B`` "u*Q/,xH/I**ARG***FRAME*DEBUG-PRINT-FRAMEDEBUG-COMMAND-D7B=` +V { `<@ p7@`` `{ "(<,8` Np,Xg`/  ,8{,8",<>,x]*U.wh/"Down to next frame. @Apx xu c?}xDEBUG-COMMAND-U7B=+g ` { `@`y p4Nr7@`+r `{` "(`y,8` Np,Xg +j/ ,v,8{,8Bu*U",<>,x /eUUp to previous frameW;]*. CDEpx xcBx*TOP-FRAME*DEBUG-COMMAND-T F{@0] ,8,8",<>,xh/*U*U.wGo to the top of the stack. HIJpx xu(DcGx*BOTTOM-FRAME*DEBUG-COMMAND-Z K{ ,8,8Bu*U",<>,x 8/{-bottom of the stack.ꪡ HMNpx xcLxBREAKDEBUGEVALDEBUG-COMMAND-B H,8,8{@",<P  ,8`[U{,8",<>,xO x^ hd /!EnterU*U*U break loop in the environment of the currentU;]jU frame. RSTUVWpx xcQxINFILEREAD~&==>W;U*U YpZZxZ xDEBUG-PRINTERLISTENTYIPEEKTYIDEBUG-COMMAND-EP 23Z] ( -,X,< "   '-. %,8 ,8,80Ko{@",<P-,1"+ 4B /,83a",@o% 7,8`,8,8DKo ,,83K< A,8 "13K<[Y ,$,8,83@", Np *p (1N+( @@1 ++ U,83K<\`W "0P +- "+ :Uvaluate: Z H/EEvaluate aU*Unwnd print an S-expression. ^_`paaxa xc]axU*U*U~&>>>RETURN ??Y-OR-N-P~&>>>What should this S-Esion returW;U*Un? cd`ef px xCARERRSETFRETURNTry again!!~% ipjjxj xDEBUG-COMMAND-R ,4,831!",<b o,83,8M",o%d! " -. * -, X ,=@`@1,8Ko *g-, {` ,8,8g{@@",<P $h,@a,-,1+ 5BL ,L,8@`D"3,8N",o%,x j]*U*U(/1)n a value from the current frame.ꪡ Glmnpooxo xckox~&>>>Continue ??FRETRY~&Try again~%DEBUG-COMMAND-C ,83",<b *g-, 0a{`{Zp,5BZ 0" ,Z,83,8[",o%,x]*U*U/CContinue execution by re-evaluatingU+]nU current frame. rstuvpwwxw xcqwxBTDEBUG-COMMAND-A] ,^,8Ko,x/AU*U*UPrint indented list of all user calls, compiled or no. yz{|}~ px xcxxBACK-TRACEDEBUG-COMMAND-V a:U,8{K<xx/_+l visible U*Unwcalls, from current  down yz{ px xcxULONGDEBUG-COMMAND-P ,8{`6@= a:U ",o,xP/b(ent level.U*U*U If given arg, print without abbreviation.w;U*W y    px xc x SPRINT mode OFF~%  p!x xN~%  px xDEBUG-COMMAND-S6B=`1 ,m,8{`,8w",o`! @@ ,r,83",o%B!` * J ,83,8x",o%*U,x x/hSSPRINT (grind) U*U*Ucurrent level.  If given non-zero arg, alwaysU;]jQ SPRINT. !#%')+-p//x/ xc/x^WDEBUG-COMMAND-Space@bjU*U,x/   U;]jUNo-ops. 9p;;x; xc357 1;xCCURSORPOSDEBUG-COMMAND-Form 0K ,8,8}3",o=,xp/U*]nuClear screen.  A!pCCxC xc?Cx DEBU*UnuUG-PRINLEVEL set to ~S~% "E#G$Ip%%x% xDEBUG-COMMAND-^! =5 ,,83,8=Ko%.U*U,x%X//Set DEBUG-PRINLEVEL to arU*U.wgument (or () if no argument). M'O(Q)S*U+W p,,x, xu*Unuc&K,xINLENGTH set to ~S~% "EY-[.p]]x] xDEBUG-COMMAND->! =7 ,83,8,8=Ko%.]nu,x]p/ M'O(Q)S*U+W p00x0 xc_/0x ~5TU*U*UT mode is ~:[OFF~;ON~]~@  ~5TDEBUG-PU*U*wRINLEVEL = ~S~@  ~5TDENGTH = ~S a!1c2e3g4i5k6m74o'O8q p99xu9 xDEBUG-COMMAND-= ,,83,857A*UKo%,x9/=Display status U*U*Wof DEVEL, DEBUG-PRINLENGTH, DEBUG-GRIND. u;w<5ky={>}? pw:TD@@x@ xc:s@xEND-DEBUGDEBUG-COMMAND-Q ` ]+]nU/QQuit B=Epx xcAxADEBUG-UPCASEDEBUG-PRINT-ALL-HELPDEBUG-DIGITPDEBUG-COMMAND-? %,8s3",o=D3j: ,,8K<\ "p ` 0N`; 9,833",o=D+83?`?0N$`I E!A,8,8A3",o=3Z " +8@1 O,8,8=3",o= W,8!`]3",<3Z{ ``!A4B03j> " +8 ``u4B6 k,8Z3",<`o3 @`0Z " ,x CType a character to document, * for all,D or ? for general help.The DEBUG package is entered by calling the DEBUG function with no arguments, or automatically on error if the SIGNAL package is loaded. It takes single-character commands to examine the environment of an error. With it you can determine what functions have called what functions with what arguments, and what the values of special variables were when those functions were on the stack. To use DEBUG, *RSET must be set to T. In addition, NOUUO should be set to T and (SSTATUS UUOLINKS) should be done, or many calls to compiled functions will not be seen by DEBUG. The basic commands are: U -- Up, D -- Down, T -- Top, Z -- Bottom, P -- Print, S -- SPRINT Q -- Quit DEBUG The following operate in the context of the current frame: R -- Return a value from the current frame C -- Continue (reexecute current frame), B -- Break loop, E -- Evaluate The following control how frames are printed: ^ -- set PRINLEVEL, > -- set PRINLENGTH, S -- set use of SPRINTER, = -- show switches. The following provide a brief backtrace listing: V -- Calls visible to DEBUG A -- All calls, including those not seen due to NOUUO. The X command works only with SIGNAL to continue or restart from errors. C -- Numerical argument to a c]ommandNot a defined command.P/?U*]nu$Document DEBUG. GpHHxH xcFEHxREVERSEU+]jU~&~A~@{, ~A~}: IJpx xLEXPR-FUNCALLCHARPOS~5T W;D0~A~% LpMMxM x `,8!3`` B` ,8,8[3@@ ],",<K ,P,8 3K;` ,83K@B< ,X,83,8\ZK(o%@+F "/,x%".U*UM@/DNOUUO*RSETUUOLINKSSSTATUSEVALFRAMETRY-SETTING-*RSETU*@`DEBUG-PARSE-ALL-FRAMESDEBUG-ANALYZE-STACK*READCH2LSUBR-0 ;P` Z(+az Uc 0 1@+d "57-,7" `5KF=,8;+ka@ & ,84nm & F`7@``016@g``N3`zn -O+ PbA "+ "`5Bv "P+` BFHb"3Q F<5Bz F{,8F7@`+ ` JK `@ B`+{  ,,8{,8,8K<> $ " -.``0,8`u B`4B `@+ L3Z``+ *u+ ??? xRARGSSoxU;\TYO YpUUxU x,83,8Xb-, X +,8,8\3",o=@1 1,83=",o% 7,8,81`3", p1N`G0N$ 4`E ,!,83K<\ " +# 1 "+H M,83",o= SH ,8,8]3",o= Y,83P d",<T " $A-. *g-,@@0 ,2,83Ko-,pX o,8{@",<P1} w,83,8^",o% },83",o,/ , " + ,D,83=1b",o% ,G,8,83",b Np+@@=3+K .$`1 ,83K<\ "p`5BQDB "p`+Z7D=+S ` .$. ! p/0.-, B= ,Y,83@ `0K<\ Np+N,/DDK,xCCU / ,< p1n0` {`/.-, +d-,,x8/_,< p ;/`0. " ,xH/eU+U 0BACKTRACEBAKTRACEEXPRVxENDDEBUG-FRAME-PRINTER-0` 4nm @`` ,qH0,83",o=-,,<0(6@`+u "W+} ,83,8,8*p",o pˀ `@ B` Np+s/ujP,xC pRSXxBAKLISTDEBUG-N-SPACES-00` ,g P@+3+ `[3B`a+ As3`  ,8,8`3",o=Z`,<6@`+ @b "W`7 "pY -,8`[ ;,8Ko 3,8,83@0",o=:pZ` B`+0 >U,xC CxRSXxPRINLEVELPRINLENGTHU@SPRIN1PRIN1-0 ;`E 0Z(+# "S1n+& P`@`M "  Z(@H! 5 " g 7 DA "-,Z " $E-.D 7@gx+6 ,5,8,8K3",o="Y0B +; u,833",H$ o+D9+>3 gyq@9+D7F[ +A3 gyD+D ,D,833P ",<[ " + 3+I ,8 (3K<` ",//U*U,xC (R=ox~&You are at the bottom oW;U*Wk.~% \]I^px xe tophe stack.~% \_U`paaxa x*CURSOR*-0 1n`(0 @+P " Z(@6@g`< !,83,8f",o%6@g+_7@`+\1! ``y5B_ ,_,83",o%@ `-,{ `` ,e,8``"33",o/,xa``R>ox,<,<2.p` H ,8,8o3",<T@;+h "/0u*U,x/gELIDED-COUNTBASEAPPLYFUNCTIONU@')-0 ;` 0Z(+t "S1n+w P`@` "  Z(@C`[ $b4B 3@$ + ,,8,8^3",o=X bC-, c , ,8 g[ $b`a 3",<[,X ( 3B `6 8+Y[`+YZ` 6 +YZ`[6 +YZ`[[0Bd+YZ`Z6 +YZ`ZZ5BY,8`Z`[Z[Z[ Z [3+$ ,$,83",o=H" g|Y3ja ,,,8,8g,8g|,80 .gz (p,8",o0@@0 ,/,83K< .g|@a "pY `6 8+=[`0B+=Z`6 +=Z`Z5D=@0 w,8,8b3",<TZ`[ B`` ,C,83,8g|,8 ..gz0` *p",o7@g+P ,G 0,83K< .g| "pY` ,83,8g|,8 .gz0a *p",o/ ,S,8 3",<T3+W ,83K<` "/+] ,],83,8g~,8g},8g|",o/,xC;Elided times.C(APPLY #'"/U*UexRoxDEBUG-FRAME-PLISTDEBUG-FRAME-CLASSDEBUG-MEXP-CHECKDEBUG-LINK-FRAMESP` DEBUG-PARSE-FRAME,8 "-,-,01[`Z`[Z [(Z([A,8,8[g}+[Z [,8 "f0XJ (1QH@ ..p3-,/@0,8`,<@ ..p3-,/0,8` ..p g-,/ ,8`,<A ..p-,2@ 1 $d-,*g-,1 $-,0d-,1 g-, -, $-,/,8``0 ..p g~-,/,8`,<B ..p3-,/@0,8` ..p g|-,/00,8`,<C ..p g{-,Aa-,//+= Pd0BP`y "f0XJ (1QH`0 ..p3-,/,8`0,<D ..pg $@-,/,8` ..p g -,/,8`,<E ..p@`3-,/,8` ..p g}-,/,8`,<F  ..p g|-,A-,/(+= "/ $@ /i    /cU*U*UCONS-A-DEBUG-FRAMEDEBUG-FRAME-NEXTDEBUG-FRAME-PREVIOUSNEXT-INTERESTINGDEBUG-FRAME-NEXT-INTERESTINGPREVIOUS-INTERESTINGDEBUG-FRAME-PREVIOUS-INTERESTINGTYPEDEBUG-FRAME-TYPEU*U*UFORMDEBUG-FRAME-FORMDEBUG-FRAME-FUNCTIONARGUMENTSDEBUG-FRAME-ARGUMENTSBINDSTKDEBUG-FRAME-BINDSTKCALLSTKDEBUG-FRAME-CALLSTKAFRAME-LISTDEBUG-FRAME-FRAME-LISTPLIST3)?i+jklmdnopqr o8q9sxMACROEXPANDED[0Ds`a -, +J-,,xp/U)0+INTERNAL-PDL-BREAKDEBUG-FRAME-MATCHINCREMENT-ELIDED-COUNT "`,8,80d7@g`Zg-, +j,8g``,8,83 gt B`@ 6@g`5BW g~3` g@` g~h3 Bg~-,Zg[` Bg+R5B` g~,8g,803t B`4Bh3+h` @[``/ 7@g` ghZg@[` Bg ` B`` `A:5Bs,x/KEQUAL,8 `0-, g*`-,,8@7@`+[`Z` D` $ZZb Z[ gu4Bx` "/0,`,x@/t-,,803@` `-,kC+ x/ ,<[ $b4B ` .ˀ Np *p[ P &b $(a,xH/ASSQ`,8-,@-,6@g`g ,8`,8,87@g+2 g@Aa0BP`A`6 +A`[`? " Bg+#+#1Z Bg g~aw5B) A "aw5B)+, g[C0 &; Ca+0?aZ B`4B0 gC` Bg g` Bg+ "0@`m g@ g Bg J``)0.@,x/ #DEBUG-LET-SUPPRESSOR`@ @0BP` `@0BP` ``6 ` ``[6 A` ``[[1D+G-,0@C+J `[ &; Aa `/0/T",x`/oAv?xDEBUG-GARBAGE-SUPPRESSOR[ &; $!W.xa+ h/K+INTERNAL-TTYSCAN-SUBRw?x;