;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading DEBUG 159pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPDEBUG159U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xGETGRINDEFU+UjUFUNCALLAUTOLOADLIST* xFORMAT xYESNOPLOADLISPu*UjU xDEBUG-FRAMENEXTPREVIOUSSUPPRESSED-COMPONENT-NAMESxANDFEATURECOMPLRU:].uSPECIALQUERY-IOxBOUNDP xERROR-IOxxDEBUG-COMMAND-LISTw+UjuxxDEBUG-PRINLEVELxxDEBUG-PRINLENGTHxu;UnWxDEBUG-PRIN1xxDEBUG-SPRINTER-MODExxDEBUG-INDENT-MAXxW+UjwxDEBUG-PROMPTxDBG>xDEBUG-FRAME-SUPPRESSION-ALISTxxW*UjwDEBUG-SUPPRESSION-REASONS xLETGARBAGEDEBUG-INTERNAL   !!xSI:IGNORED-ERROR-FUNS"x""xW;U.wHelp"p##x# xReturn#$p$$x$ xW;UnuTab%p%%x% xSpace&p&&x& xLinefW;U.weed''p((x( xBackspace()p))x) xU;].wRubout**p++x+ xForm+p,,x, xW;Unu~C,p--x- x^~C-p..x. xDEBUG-NAME-CHARPASUBR,8 0N$+ "#+0N+ @( "$+0N+ "%+0N+ "& +0N+ "(+0N+ ")+P 0N?+ "++0N+ ",+1n@ + ,,8,8,8,8",<@ + ,,8,8,8.. ,< *p ,8",<//,x-%jU*.h/MAKHUNKDEBUG-COMMAND-SPEC-CLASS**SELF-EVAL**ENTER-DEBUG-COMMAND,8,8 @@,8 "/0 0XJ (1QH,8 . ..,8 g~-, $,X-,@,8`,<3 ..p g~-,*,X@-,/,8`,<4 ..p g`0-,*,X-,/,X@` -, B/,x]+U*U/ EXTSTRFASL2 22xSI:DEFVST-BARE-INITDEBUG-COMMAND-SPECCONS-A-DEBUG-COMMAND-SPECCHARSDEBUG-COMMAND-SPEC-CHARSU*U*UFUNDEBUG-COMMAND-SPEC-FUNDOCDEBUG-COMMAND-SPEC-DOCDSKRWKDEBMAC4u(@330445566778899xMEMBERDEBUG-FIND-COMMAND-SPEC,8,8,87@g+=1[g B` $Z g:4B; `+=`]Zg Bg+6 "/,x(/4SUPPRESSEDUMEMQDEBUG-NEXT-VALID-FRAME,8Z,87@`+G `[!Hb $;  ;5BE `+H `ZP P B`+@ "/,x@/>DEBUG-PREVIOUS-VALID-FRAME,8 [,87@`+R `[ $;  @ ;5BP `+R `[ B`+J "u*Q/,xH/I**ARG***FRAME*DEBUG-PRINT-FRAMEDEBUG-COMMAND-D7B=+U +V .,8= `,<<,8@ p4N`7@`+` ` J=/. "(,<<,8`,\ Bg Np,Xg+X/ / ,d,8,8=,8",<>,x]*U.wh/S"Down to next frame.?@@ApAAxA xu 1?>AxDEBUG-COMMAND-U7B=+g +g .,8= `@,<<,8 p4Nr7@`+r ` J=`/. "(,<<,8`,\ Bg Np,Xg +j// ,v,8,8=,8Bu*U",<>,x /e*Up to previous frameW;]*.CCDDEpEExE x1BBEx*TOP-FRAME*DEBUG-COMMAND-T F J=@0] ,z,8,8,8",<>,xh/v*U*U.wGo to the top of the stack.GHHIIJpJJxJ xu(D1GFJx*BOTTOM-FRAME*DEBUG-COMMAND-Z K J= ,,8,8,8Bu*U",<>,x 8/{-bottom of the stack.w;U*PGHLMMNpNNxN x1LKNxBREAKDEBUGEVALDEBUG-COMMAND-B ,H,8,8 =Z,8",<P ,,8`[U,8=,8",<>,xOO x^ hd /!EnterU*U*U break loop in the environment of the currentU;]jU frame.QRRSSTTUUVVWpWWxW x1QPWxINFILEREAD~&==>W;U*U YYpZZxZ xDEBUG-PRINTERLISTENTYIPEEKTYIDEBUG-COMMAND-EP 2 j. ( -,X,< "   $-. ,,8 ,,8,80",<X,8 =Z,8",<P-,"+ ,84B ,,8,8,80",@< ,,8[g,8,8,8D",<Z ,,8,8",< , ,8 "1,8",<[4N, ,$,8,8,8@",<[ Np *p,8 (1N+(0N@@1 ++ ,*,8,8",<\++ "/0P +- "//+ :Uvaluate: Z H/"Evaluate aU*Unwnd print an S-expression.]^^__``paaxa x1]\axU*U*U~&>>>RETURN ??Y-OR-N-P~&>>>What should this S-Esion returW;U*Un? bccdd`eefpffxf xCARERRSETFRETURNTry again!W;T~%hiipjjxj xDEBUG-COMMAND-R ,4,8,8,8LD !",<b4BH ,7,8,8,8M",< AH " $H-. * -, X ,=@`@1,8,8M",<X,8 *g-, g  =[,8 ,D,8,8g =Z,8@",<P $,Xh,/@a,-,+ 5BL ,L,8@`D",8,8N",<,xaf j]*U*U (/1)n a value from the current frame.w;U*P#kllmmnnpooxo x1kjox~&>>>Continue ??FRETRY~&Try again~%DEBUG-COMMAND-C ,Q,8,8,8Z",<b4BV *g-,@00 g =[ =Zp,5BZ 0" ,Z,8,8,8[",<,xop]*U*U/N!Continue execution by re-evaluatingU+]nU current frame.rrssttuuvvpwwxw x1qqwxBTDEBUG-COMMAND-A] ,^,8,8^",<w,xO/[ U*U*UPrint indented list of all user calls, compilU;]jPed or no.yyzz{{||}}~p~~x~ x1xx~xBACK-TRACEDEBUG-COMMAND-V ,aa:U,8,8=",<,xx/_+l visible U*Unwcalls, from current  downyyzz{Dpx x1xULONGDEBUG-COMMAND-P ,g,8 =[,86@=g a:U ",8",<Z,xP/b(ent level.U*U*U If given arg, print without abbreviation.w;U*Wyu     p  x x1 x SPRINT mode OFF~%    pw+]jx xN~%   px xDEBUG-COMMAND-S6B=+m ,m,8 =[,8,8w",<Z+vH ! 5Nr@@ ,r,8,8,8w",<  !+v * J ,v,8,8,8x",<*U,x x/h)SPRINT (grind) U*U*Ucurrent level.  If given non-zero arg, alwaysU;]jQ SPRINT.px x1x^WDEBUG-COMMAND-Space@bjU*U,x/x?    U;]jUNo-ops.px x1xCCURSORPOSDEBUG-COMMAND-Form@0% ,|,8,8},8",<,xp/yU*]nuClear screen.  !p!!x! x1!x DEBU*UnuUG-PRINLEVEL set to ~S~%""##$$p%%x% xDEBUG-COMMAND-^ = J ,,8,8,8,8=",<.U*U,x%X/}/Set DEBUG-PRINLEVEL to arU*U.wgument (or () if no argument).&''(())**++p,,x, xu*Unu1&%,xINLENGTH set to ~S~%"",--.p..x. xDEBUG-COMMAND-> = J ,,8,8,8,8=",<.]nu,x.p/&''(())**++p00x0 x1//0x ~5TU*U*UT mode is ~:[OFF~;ON~]~@   ~5TDEBUG-PU*U*wRINLEVEL = ~S~@  ~5TDENGTH = ~S0112233445566747''88i p99xu9 xDEBUG-COMMAND-= , ,8,8,8 ,8,8,8A*U",<,x9/Display status U*U*Wof DEVEL, DEBUG-PRINLENGTH, DEBUG-GRIND.:;;<55<==>>??pw:TD@@x@ x1:9@xEND-DEBUGDEBUG-COMMAND-Q $@ "@+ ]+]nU/(Quit B=EpBBxB x1AABxADEBUG-UPCASEU( DEBUG-PRINT-ALL-HELPDEBUG-DIGITPDEBUG-COMMAND-? ,,8,89,8",<D j: ,,8,8",<\,< "p C,8 0N+ ,,8,8@,8L ",<D+81N+0N$+$ ,"H! ,8,8A,8",< jA " +8@1 ,',8,8=,8",< ,+,8 g!.,8,8",< j= `D 4B0 j> " +8 `:,84B6 ,5,8Z,8,8",<+7  @`0jA " ///,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.FGGpHHxH x1EFEHxREVERSEU+]jU~&~A~@{, ~A~}:IIJpJJxJ xLEXPR-FUNCALLCHARPOS~5T W;D0~A~%LLpMMxM x H,8,8@7@g+Y[g B` ,M,8,8[,8,8[@Z $.,,8",<K ,P,8 ,8",<K1n+S ,S,8,8",@B< ,X,8,8,8\ g~Z,8",(<Zg Bg+F "/,x".U*UJM@/DNOUUO*RSETUUOLINKSSSTATUSEVALFRAMETRY-SETTING-*RSETU*@`DEBUG-PARSE-ALL-FRAMESDEBUG-ANALYZE-STACK*READCH2LSUBR-0,8 1nP+` Z(+aOzx6U1,84nc 0 1Z(+d "  -,@` KF=,8,81n+k B@ & Fg,84nm & F`7@`+sL`6@g+sMN7@g+rNzn -O+ PbA "+ "O5Bv "P+P BFHb" g~Q F<5Bz F B=,8F7@`+ ` JK `Z B`+{/  ,,8,8=,8,8",<> "@ $-. " $ -. Q,8`,8 g: B`4B [@+ L jQ Bg++ /*u+ ??? xR\ARGSROS7 xU;\TYO YTpUUxU x,8 ,8X -, X ,,8,8\,8",<@1 ,,8,8,8",< ,,8,81`,8",<[,< p1N+#0N$@@4+" ,!,8,8",<\ " Bg+# D  "+H ,&,8,8\,8",< ,)H ,8,8],8",< ,,,8,8],8P d",<T " $A-. *g-,@@0 g ,2,8,8",<X,8-,@pX ,7,8,8 =Z,8",<PD,84B> ,;,8,8,8^",< ,>,8,8g,8^",<Z,/ , " + ,D,8,8,8Db",< ,G,8,8,8",<[AD Np+/@@=7@g+K .$+M ,M,8,8",<\,< "pD5BQDB "pC+Z7D=+S +S .$. ! p/0.-, B= ,Y,8,8@ `0",<\ Np+N/,/0D%,xCCSU / ,< p1n0+c0.=+c/.-,  +d-,/,x8/_,< p@1n+g0.g " /,xH/eU+U 0BACKTRACEBAKTRACEEXPRUVVxENDDEBUG-FRAME-PRINTER-0,8A@ 4nm Z(+mP,8 ,qH0,8,8~,8",<,X-,,<0(,86@`+u "W+} ,y,8,8g,8,8 *p,8",<W p.. `Z B` Np+s//ujP,xC pRiRSX xBAKLISTDEBUG-N-SPACES-00`,8 ,X,8 g4n PZ(+ "w,87@g+ [g[3B` a+ Zg Dg+/ , ,8,8 `,8",<Z`,<,86@`+ @b "W+ "pY ,,8[g[,8 ,8,8",<Z ,,8,8,8@0",<:pZ` B`+//0 >U,xC CxRRwSX xPRINLEVELPRINLENGTHU@SPRIN1PRIN1-0,8 1n+" 0Z(+# "S,81n+& P`Z(+& " ,8 Z(,8Z(H!,8 g0B7 ",8 g0B7 DA "-,pYZ " $E-. D 7@gx+6 ,5,8,8K,8",< gw"Y gx0B +; ,:,8,8gx,8",H$ <Z+D7D+>  gyE+D7F[ +A  gyD+D ,D,8,8gx,8P ",<[ " + 7@g~+I ,H,8 (,8",<+I ",//U*U,xC (RRZ7 x~&You are at the bottom oW;U*Wk.~%[\\]]II^p^^x^ xe tophe stack.~%[\\_U_``pw( aaxa x*CURSOR*-0,8 1n+O(0 Z(+P ",8 Z(,8Z(,86@g+X4BU<5BX ,X,8,8,8f",<6@g+_7@`+\D ! `<5B_ ,_,8,8,8f",<@ `-, B= `[ Ba ,e,8``",8g,8g~",<W/,x^a_@`RKR>7 x,<,< w2.p+m ,lH ,8,8o,8",<T:w+h "/0u*U,x/gELIDED-COUNTBASEAPPLYFUNCTIONU@-0,8 1n+s 0Z(+t "S,81n+w P`Z(+w " ,8 Z(,8Z(C,8[,8 g[ $b4B 7@g~@$ + ,,8,8^,8",<`^ *b !-, c , ,8 g[ $b`a ,8,8",<[,`_ ( Hg~B `(N{6 8+Y[`0Bc+YZ` (B{6 +YZ`[(B{6 +YZ`[[0Bd+YZ`Z(B{6 +YZ`ZZ5BY,8`Z`[Z[Z[ Z [,8,8 ,87@g|+$ ,$,8,8`,8",<H" g|Y ja ,,,8,8g,8g|,80 ..gz,< (p,8",<Z/0@@0 ,/,8,8",< ..g|,<@a "pY `(N{6 8+=[`0B +=Z`(D{6 +=Z`Z5D=@0 ,;,8,8b,8",<TZ`[ B`` ,C,8,8g,8g|,8 ..gz,<`` *p,8",<Z/7@g+P ,G`,8,8",< ..g|,< "pY` ,O,8,8g~,8g|,8 ..gz,<`a *p,8",<Z/ ,S,8,8b ,8",<T7@g|+W ,V,8,8",P <+W "//+] ,],8,8g,8g~,8g},8g|",<Z/,xC;Elided times.C(APPLY #'"/U*UdexRoRW7 xDEBUG-FRAME-PLISTDEBUG-FRAME-CLASSDEBUG-MEXP-CHECKDEBUG-LINK-FRAMESP` DEBUG-PARSE-FRAME,8,8 "-,,8 "e-,0[`Z`[Z [(,8Z([A,8,8,8,8[g}0Bc+[Z [,8,8 "f0 fXJ (1QH@,8,<? ..p g}-,/@0,8`,<@ ..p g~,X-,/0,8`,<@ ..p g,X-, /,8`,<A ..p g~,<-,2@  $d-,*g-, $-,0d-, g-, $c-,  $,X,\-,/,8`,<A`0 ..p g~,X-,/,8`,<B ..p g|,X-,/@0,8`,<B ..p g|,X-,/00,8`,<C ..p g{-,* 0,X-,/,X/+= Pd0BP+< "f0 fXJ (1QH,8`0,<C ..p g~-,/,8`0,<D ..p g~,<g $,X,\@-,/,8`,<D ..p g ,X-,/,8`,<E ..p@` g},X-,/,8`,<E . .p g},X-,/,8`,<F  ..p g|-,*,X-,(/,X+= "/ $*g /$g/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-CALLSTKU+T FRAME-LISTDEBUG-FRAME-FRAME-LISTPLIST3fhiijjkkllmmdnnooppqqrre78899xMACROEXPANDED,8[0Ds+I -, +J-,/,xp/FU)0+INTERNAL-PDL-BREAKDEBUG-FRAME-MATCHINCREMENT-ELIDED-COUNT "O,8,8,80d7@g+qZg-, 0Bs+j,8g@,8,8 g gt B`5B^@ 6@g+X g~5BW g~@@g} Bg~+i g@` g~h g Bg~-, BgZg[O Bg+R g~5B` g~ Bg~,8g,80`  g~ gt B`4Bh7@g+ht Zg[O Bg+a g Jg|/ /7@g+q g gh BgZg@[O Bg `5Bp g B`+M `A:5Bs g/,x/KEQUAL,8,8 `0-, g*`-,,8,8@7@`+[`Z` Bg D` $ZZb Z[ gu4Bx g+ "/0,`,x@/t,8-,,8QB7@g@+ `-, gXB(,X/, !+x/,<,8[ $b4B + ... Np *p,X[ P &b $( /,xH/ASSQ,8`,8-,*g-,,86@g+3 ,8`,8,87@g+2 gZ0,80BP+ g~[(B{6 +( g~[[+ " Bg+#0Bc+#  g~Z Bg/ g~ g;5B) A " g;5B) g0BP+, g[" $0 &; $! +0 uZ B`4B0 gC` Bg g[ Bg+ "/0@+6 gZ g Bg J`+/0.@,x/DEBUG-LET-SUPPRESSOR,8[,8 gZ @0BP+E `Z0BP+E `[(B{6 +E `[[(B{6 A+E `[[[1D+G g-,0@C+J `[ &; $  `/0/T",x`/7  v xDEBUG-GARBAGE-SUPPRESSOR,8[ &; $!W.x ,X+h/K+INTERNAL-TTYSCAN-SUBR wv x;