; $U@U:U*U*RSETTxMAPCFUNCTIONLAMBDAXORGETLU*U*UCARQUOTESUBRFSUBRLSUBRAUTOLOADPUTPROPCDRSPRINTERU*U*WGRINDEFFASLCOMPRETTY-PRINTPRETTYDSKPS1PRETTY-PRINT-DATUM          xU*U*USETQSTEPDEPTHSTEPMAXFATOMPREDSFORMPREDSOLDSTEP-VALUEOLDSTEP-FORMU+U*USTEPMARKEDFUNCTIONSSTEPMARKEDFORMSSTEPMARKEDATOMS!#%xBOUNDPCONDMEMQMLSTATUSU:U.PFEATURESLH')+xARRAYSTEPARRAY-/xSTEPQD TERPRI`1 ,,8,8  STEPOLDF [g~STEPPER-TOP`3",STEP-PRINTjK<+ FORM5SEVALh3X   anc+ `K$ .@ ![+Z B``5A  `0B+@K$ .@ /@`[+Z B``55  J` ` H-, BSTEPSILENCEa7ZZ1D @+7 "STEPATOMDEFAULT[ZZ1F0JJ +#7STEP-ATOMVALUE9z=STEPFUNCTIONDEFAULT[Z $@RZ 1H+'7 "STEPFORMDEFAULTb;B$Z (Z (1J++; "STEPMACRODEFAULT[ZZ1B+/7STEP-MACROFORM=zݓ STEPHEURISTICS[ZZ1B+37  "[ZZ1B+77 @a "STEPPASSING`?ZZ1B+;H? "STEPLIMITPOSTVIEW[ ZZ1B @+?7 "STEPCHECK-ENABLE`AZZ1B0I@1+CA " (-,D"7STEPLIMIT !pp ;ppp "?p A *STEP-COUNTCˀ-,500OLDSTEPDEPTH B"@STEP-EVAL`E/+5AT"  -,STEP-FORM#ˀ-,0D*-,STEP-VALUEG^W$@@ K$ .@ # 4.YQK`XKH$A+]р`7H+]STEP-CHECK`I,87B``==OK=> "%STEP-READ-EVAL`K B``TAA B`AWATCH0B&` !K!`NO M J``7B` #STEPASK' B`ASKO` ,8/H",8,8#",<7 J! "%``K B` ` 8anc` `!$ J! M H`+y `K0B(+y *"b!7@@$ˀ-, B"A+1D&+ ,8,8#1",EVALHOOKoQ AR`р7+ `N1B)+V0SA!+0M+B1B*+3o!` 4AR #*EVAL`U`C1B+`R0W4A`D1B,`YY+ !,8@c$ ,8#,8",oQ`M0B-+ "H* $-.MACRO [[#GET.(``1 #C`NCONS`]+ G! 19 ,,8,8#3",ERROR</`$ [ D#G@@``FORK_`I *@BA ,$,8,8#,8",oQ`EVALED P@R0B0`O *)G J`` `Ia`m-,ERRSET1,87B``Ya[+5 " $4-. e,853,87,89KSTEP-RETRIEVEoc`U`]``a+ B``U,`RH 0A0B2+FEVAL eZ#,-,1 G y,8,8KCURSORPOS<3 ,QD!STEP-Fgg ,8;,8G",4<EXAMINE-ARGS $4 "*BREAKai EG[#QAC$APPLYHOOK5,`AGAINk+H@@`a`7H``[ Z (Z (1J+P!1 ,8=,8",<`!1 ,T,8?,8 ,8",<` G@K$ G QK ( +ZXKA+\0B&`+7`+H$ 2o!`+7F +o "5NoGHDP!+o J"?` #6 80Ha`[#7 `[#SYSPD!6 ,8A,8!,8#",AAA<`+ `0M`0W`1B)`AAA0B(+t`+1B,+w1B++wY` ,8CK<3 ,8,8" 1!E,8#",< ,8,8#G G",< "+ `1B,+0S D"+a` J"G! # FJ1C QLf3mSLEEP7`+POSTVIEW o "aiP(! B`%0B` *7`% 0"anc`% ` J! J"G!  # FG,+"J%5#EEMACRO-EXPANSION-ERROR8STEP-LOOKqTYPE"HDR925TOse+VALUE:RHJ"ARGSu:ATOM-VALUE;:NO-VALUE-OR-BAD-OPTIONw5DJDKPASSING<+5RE-FORMy:G P``a,8,87 `oR`STEPASKATOM $= `.4B0[7 0@ `Y`+0`[[g #$E`5Bq7D+77  @"+4 +7[  #E`a+q[`7 `u[``w C[`[STEPASKFUNCTION {.Z0 `-,`] $ Bg4BKZ[7 `Zg[+KZg[[As[ #E`0H  5BS;+R7 +O; "a+S`;; #E`+Sa "5Bq`7 ``+Za`[[g #E`5Bq@  7D+a7 +^ +a["a!  #E`+q7D`$7 +e +q[ B! #E`+q7F+q [[`@  .4Bq7 +n +q[`0  #E`,x]08 $STEPDEFAULT-FORM-TO-FUNCTION,8 {[. B`[7 `[`+{[`[asB  #E` 7 8 @"` `[  #E`0*,x rDOURHEUR?$ C kSTEP-ANS H@DOING-IT,xh:S5B DECLARECOMMENTA))))))z%z,G?PROGBBzONc@?-Hz.La"HEUR-FUNCTIONgDONE "C`5Z[QD HEUR-COMMAND``5-,,86B`(b`#NREVERSED+ZZ &FAs[`ENTER-HEURa g[gCONS(`E,XXCONSa Bg3+/u$,xpHEUR-ATOMATOM Z[;@;[i`7 &Z[[i(R);RSTEPHOOK1 &OFF i8 ASTEPHOOK2 &D i@ ESTEPHOOK3 iX( 1D I`U $G#,#4A!`OFF-FORMS1BI`YOFFFORMS+/ $H 4AR,@b`OFF-ATOMS1BJ+1OFFATOMS  !R`g %,%`LIST0BK"A`m#%*APPENDa`LIST-FORMS1BL`qRC$LISTFORMS`s `DEFAULTS1BM`wDEFAULT:C+M 5B=`]ATOMDEFAULT $Na$;`]FORMDEFAULT aPtC 5BD`]FUNCTIONDEFAULT $Oa C3`]MACRODEFAULT a`],Xa@c$ ,Xa,Xa`SILENT0BP` QE"!SILENTSTEPATOMDEFAULT () H SILENTSTEPFUNCTIONDEFAULT FQW B4AR`LOUD0`UNSILENT1BR`NOISY D+X J Q B` "i0,x MHEUR-TUPLE &i ,8`,8 anc+f4nf  08K$ .@ [+dZ 0[ B`3` 8anc +p 08K$ .@ @`[+nZ[ B`3`07 8+s@@``-,[a B`36 8``E*(6B`+}4F{+}EXPRFEXPRT[  z W;|SE7^ "= $.,8 STEP-PROGSTEP-LAMBDAFUNSTEP-AUTOMATICARGSTEP-FIRSTARGBUV9[=PWWz I  g~ASSQa Z+ g~-,0 `3,8 g+3+ J`+Z`!AE @. B`+Z[5BA1 B`+Z g}0BN`- g-, B b +Z0BO`3 g-, B+ZD`9 g-,;+Z`? gb-, B+Z3+@ E B3`_7Fg`O g-,D# Aa+Z3REMPROPX4BZ  @*DELQa BAs5D/bs5H/ g~1c`X+Z7Fg`q@-,`]P`03a $a-,AF,X g}-,a+Z "`]3 a $a-,A,Xb g}-,a+Z g~0B=`%d g}-,E%+G# g}-,1HE#+Q7Dg+K "-, 20+Z# g}a#@5BP  g~ g}X+ZXs+Z6Dg+T [Dc g}.4BZ g-,`]`1-, &,X g}-,a+Z@  `5B] g-,5B], ,x{$  ,c,8,8d[@JK",<W,x5==FUNCTION==Y B ,8,8mZ[`] $BhRa",<W,x5==AUTOPROG==c e ,8,8u `]!@@% a",<W,x5==AUTOLAMBDA==%D!Z  ,8,8~Z@` [`][`a B`",<W,x!5==FIRSTARG==  ,8,8DX",< "-,x5[ 1 anc+ `-,G@$` ,8,83%`Z$ZGK< 0 "[7 "0KP,x:VALUE-IS  RVBS-WAY,8 ,,8A,8!",<0AAA "%`K0Y`;1B+`;1B,`; @W+Z`[`?-,/) ,x5DWIM-NWIT STEP-LIVELY,8a7B$ZZ1F`K7 "[B%Z Z 1H`S79z=[ B$Z (Z (1J`[7 "`;B$ZZ1B`c; "[B%ZZ1B`k7=zݓ[B$ZZ1B`s7 "[B$ZZ1B`{7 "`?B$ZZ1B`? "[ B$ZZ1B`7 "`AB$ZZ1B`A " (D"-,7 !pp ;pD pp?p Aˀ-, 00 B" *C E*g{5 +5jUjR CANDTRACE-VALUEINTERN^ ^].]  xSTEPHOOK4*APPLY-MARKER* ;!-,i W,8+c)D 0Tz JKDi4Bc ,8-, $01 g-,E,8m",oQ+lA ,j,8 $_, $ g -,E",oQ+l ` R*APPLY`/,xESTEP-APPLYX Y[+qZ``E0.@R,x nSTEP-SILENT4Bx[FAST1)#R+vFASTER0Db+x_FORCE-COMMAND`CHECKING "c $` *+A "+`CLOAK-CHECKINGPT@Z,x  *&AWATCHING "d,x0  A01C-, B@,x -,#@bˀ-,-,G@@ K$ .@ # QK+ XKH$ A+р+ 7H+`IA "` #`E`% %,8,8#'", KoQ,+q  #@6 8 -,1,80 ,86Bg+&3`7+%р!`;7H`I C,8,8A,8B:Q",ocYESYzPhv`4J%[(Z (0H+"AA` " S-.``U`]+ B`4B>[4D>ѳ`c ,/,8,8CK<3 ,gg`1 *@$ ,6,8,8D[g}",j<FLUSH? "e`KYzPhv`4J>[(Z (0H d `o[ga [ga B Zg Bg+,,xSHOULD")DRaSTOPfc+5CONDITION]D!$ STEP-PREDS-,u+O ,M,8,8{,8,8|,8},8~51"K ocYz hv`5BO7B` ,8,8,8,8&,8K ocYz hv`@@u-,1@1,8г`DI D B "C+y[ D` ,g,8,8,8,8 ,8 ,8T K ocYzPhv`4Jl[(Z (0H`H  `E ,8 ,8,8g~Q,8,8 ,8 K ocYzPhv`$[(Z (0H+s  `E B@A@`5`/,+DO%HJ"YOUhWANTCWHENiaR)D"EVALUATEATOMS?jhCi"D"ajhCia"D"jhCiaR.A*UFORMS? pPREDSUBST $!!OP!VSYMEVALU*U*U!1CADR!2CADDR!3CADDDR!4CDDDDR!5-``#l #m#n#o#p# q#nq#z} $CSUBLIS$rX -0  @ /` "pLISTIFY`DEPTH!hT 1 $saGRINDLENGTHGRINDLEVEL t-,$Q E"^R1PRINLEVELuPRINLENGTH "$A $%-.0B+ gy5`91`+$`+$4B `+$PRIN16Dv`EPRINT`+$`1 B`]+ .].U+  wxttxDEFPROPU+@EXTRA-ELEMENTS-IN-HEADTEST-DEPTH-HAIRPRETTY-PRINT-FORMAT-DESCRIPTIONxsyzxZ[6 0P X7+,x/M -,1,<,8,8"C4n2-,C @` i`0,83Koc anc +8`7 8` GETCHARN Np "p B` 0N+D AA# " -. gyEXPLODEC{ZIMPLODE0a` `]+ +\#`02@#{Z` B@ & $ #a@ 0 @`!+Q{Z` B@ d & $[#a @`0.`1nb`1-,C{Z`@(0 B@`` " $\-. gy0``U`]+ 4Bb ,8@1,8i[",<`] ,f,8  1,8j",<`],@J",x:EVAL-VALUE|:JKERROR-INEVALUATION}, W-0`14 C -READTABLE. -OBARRAY "~.T"-,~^Q$,807B``[7 ` ,3C:CTYIPEEK`] $a`]SYNTAX a .A ,TYI[`+0,<,8 `[+.Z81PRINC`8 `ˀ Np "p B``H0 " -. ,QL $READ`]+  * J$ (   B``+X k-0 5N+ b 1@-,t`1 ,@ ,8,8!,8gC g~K$ .@ %4.[`;Z",< "ASCII D]`/+55 STEP-V!-0 5N%+& D@-,t`1 ,1,8,83,8gg g~K$  4./@`4[`_Z",< "`/0 01+:: "-,G`!,x 4-0 q`s``C Z( @ $asK$ .@ [+A@BZ7 ` ,J,8 gK$ .@ [+HZ1",</`sK$ .@ @`@[+OZ[`QDsK$ .@`0 4.T[`ZZ`XF,xMUST BE LIST kSTEP-FUN-0`1@,<,< `+^ 00,8,8!6B``4Bi ,8 g~ˀ *p,8g~[", <+y gK$ .@ [+nZ[65BvT[z \a(@ ( B`5Bv1N+v  z a5i B` g Np "p Bg`@cK/ "h5 WP STEP-OP-0,<,< H `0.` +   (1,8 ` "`` / @P+  , ,8ˀ (p,8Kog` / `  `K$ .@ '[+ Z[ Np "p B`3+ A:/,x |REEVALUATE-0@$0`1 ` 9` ;   08K$ .@ C[+ "Z(` "EVALFRAME` 7B`` M-, 0B` O `+ *Z`[` B`+ $` _ZZ [2D`` 4B GZ[;@$+ < , :,8,8 Kˀ *p Z ",<" Z(+ C , B,8,8 Lˀ  *p 3",<L`],XaZ[[FRETURN@+ JZ[` + ,)KP,x5REVALUATE 5  BURP)$ [STACK1 ` ON0D+ v10ˀ " Nw` *wd` -, 0B` , ^,8 00@[` Z[` -, A",oe[g ` `-,A `-,` ase` @Z[ `K$ .@ @` QC+ kXC+ n ` B`# `ˀ@[ABS``  Np *p J`+ U/$ `` Q ",xSTEPSETSTATEx Z  ` M * (Cˀ-,a B"a7ZZ1D+ 7 ""@a7 F![ZZ1B+ R@a79z= B[ZZ1B+ B@a7 " B`;ZZ1B+ B@a; ";[ZZ1B+ R@a7=zݓ B[ZZ1B+ B@a7 " B[ZZ1B+ B@a7 " B`?ZZ1B+ B@a? "?[ ZZ1B+ !B@a7 " B `AZZ1B+ %  uA "AEQ,x@  y?xFILE-NAMEU*]pPROBEFLOADUDIR(init)' KK x;