;$U@U:U*U*RSETTxMAPCFUNCTIONLAMBDAXORGETLU*U*UCARQUOTESUBRFSUBRLSUBRAUTOLOADPUTPROPCDRSPRINTERU*U*WGRINDEFFASLCOMPRETTY-PRINTPRETTYDSKPS1PRETTY-PRINT-DATUM   xU*U*USETQSTEPDEPTHSTEPMAXFATOMPREDSFORMPREDSOLDSTEP-VALUEOLDSTEP-FORMU+U*USTEPMARKEDFUNCTIONSSTEPMARKEDFORMSSTEPMARKEDATOMS  xBOUNDPCONDMEMQMLSTATUSU:U.PFEATURESLH xARRAYSTEPARRAYxSTEP,8QD TERPRI ,,8,8 ,8 g~5BSTEPOLDF ,8[g~STEPPER-TOP,8 Bg}",STEP-PRINTTKQ<,X+FORMSEVAL"X 0 ,8(B{ anc+ `".@0$ .@(.4.[+Z B`+A `0B+  ".$ .@(.4.@`[+Z B`+5B  J` ` H-, BSTEPSILENCE[ZZ1D @+7 ",8STEPATOMDEFAULT[ZZ1F0JJ +#7STEP-ATOMVALUEz|}v,8STEPFUNCTIONDEFAULT[Z $@RZ 1H+'7 ",8STEPFORMDEFAULT[ B$Z (Z (1J++7 ",8STEPMACRODEFAULT R[ZZ1B+/7STEP-MACROFORMz=;;x ,8STEPHEURISTICS[ZZ1B+37  ",8[ZZ1B+77 )0 ",8STEPPASSING[ZZ1B+;H7 ",8STEPLIMITPOSTVIEW[ ZZ1B @+?7 ",8STEPCHECK-ENABLE[ ZZ1B0I@1+C7 "  (-,D"pSTEPLIMIT !pp p ppp "pp  *STEP-COUNT J! ..-,500 OLDSTEPDEPTH B"*g{STEP-EVAL"/+5AT" -,STEP-FORM#  ..-,0D* -,STEP-VALUE# ^W$  @ ".$ .@ #(.4.YQK+YXKH$7D +]6F+\7H+]STEP-CHECK$,80I#7B`+`==OK=> "%STEP-READ-EVAL% B`+qTA  B`4Bc  WATCH0B&+q !2/ !+fNO *& J`+q7B+j #STEPASKH' B`4BjASK0B'+q ,n,8,8H",8 ,8,8#",<@@  J! "%`% B` `(N{ 8anc+v `!$ J! (& H`+y `K0B(+y *b J@@$ ..-, B"7D + DQ1D&+ ,,8,8#,8",EVALHOOK<( AR+T6F+ `N1B)+V1B) H+1B&+B1B*+  3o!+  4AR #*EVAL*+TC1B++ R1B+ 4A+ D1B,+ Y0B,+ ,,8@c$ ,8#,8",<(+TM0B-+ "H* $-. MACRO $-[#GET.,8(``1 #C`NCONS./+ B#@B 5B ,,8,8#,8",ERROR</+T$ [ D#@@#@@`+]FORK0B/+$ *@B J ,$,8,8#,8",<(+TEVALED P@R0B0+' *) # J`+T `I0B0D+6-,ERRSET1,87B`+,P a[+5 " $4-. ,2,8,8D!#,8,8,8,8",STEP-RETRIEVE<1*. `0+ B`+*/,+TRH 0A0B2+FEVAL $2Z#,-,1 # ,<,8,8",CURSORPOS<3 ,QD!STEP-F3 ,A,8,8,8 ,8,8#",4<EXAMINE-ARGS $4 "*BREAK4 &" #[#QAC$APPLYHOOK5,+TAGAIN0B5+H@@`0+]7H`+][ Z (Z (1J+PB ,O,8,8,8 ,8,8",<+]B ,T,8,8,8 ,8 ,8",<+] B#  ".$ .@ #(.4.YQK ( +ZXK7B +\0B&+6D+  H$ 2o!+7F +o "/ /.5No #HD2B+o J"7H+n #(N{6 80Ha+n[#(B{7 +n[#SYSPD!65Bn ,n,8,8 ,8 ,8!,8#",AA <+ `1B&+s1B++s1B)+s EA 0B(+t+1B,+w1B++w0B,+} ,y,8,8!",<3 ,},8,8",8 b,8",8#",< ,,8,8#,8 ,8#  ,8#",< "5B `1B,+1B) D"+0B0+ J" # H # FR(c$! QLf3 "6SLEEP7+POSTVIEW $7 "4P(! B`4B0B+ * J+(B{ 0"anc+ ` J! J" # H  # F #/,+"J%#""MACRO-EXPANSION-ERROR8STEP-LOOK8TYPE"HDR92TO92+VALUE:RHJ"ARGS::ATOM-VALUE;:NO-VALUE-OR-BAD-OPTION;RD%PASSING<+RE-FORM<:#(P@0,8,8,8(B{7 +7R`STEPASKATOM $= `. Bg4B0[(B{7 0@ +,[g+0[g[,8[g #$E`/5Bq7D+7(D{7  @"+4 +7[,8  #E`/0@a+q[`(B{7 +:[`+;)[`[STEPASKFUNCTION $=. Bg4BaZ4DR` `-,. $ g Bg4BK Z[(B{7 +FZg[+KZg[[,8Zg~[ #E`/0H  5BS7D+R(D{7 +O  D0+S[,8  #E`/+S @a "5Bq[g(B{7 +V[g+Z0[g[,8[g #E`/5Bq@  7D+a(D{7 +^ +a[a,8  #E`/+q7D+h$(D{7 +e +q[,8 B! #E`/+q7F+q $-[`@  .4Bq(F{7 +n +q[`0,8  #E`//,x]0p$STEPDEFAULT-FORM-TO-FUNCTION,8 $=[. B`[(B{7 +w[`+{[`[,8[gB  #E`/5B (N{7 8 @"+~ +[,8  #E`/0*/,x`rDOURHEUR?!E$ *? J! (5STEP-ANS H@DOING-IT "@,xhjJ:),85B DECLARECOMMENTA)))A)))z%z,G?PROGBBzON c@?-Hz.La"HEUR-FUNCTIONBDONE "C+Z5D [QD HEUR-COMMANDC+-,,8,86B`(b+ gNREVERSED+ZZ,8 &FZg[[gENTER-HEURD g,8[gCONS(`E,XXCONSE Bg,Xg+/u$/,xpHEUR-ATOMATOM &FZ[m[&D` &Z[[&D(R);RSTEPHOOK1 &OFF $G,X&Dp STEPHOOK2 & tD $G,X&D "STEPHOOK3 &F $G,X&DX( 1 $,80BG+* $G ,@b 4A!+XOFF-FORMS1BI+,OFFFORMS0BI+/ $H 4AR,@b+XOFF-ATOMS1BJ+1OFFATOMS0BJ  !R+3 $H ,@b+XLIST0BK F +6  *APPENDK+XLIST-FORMS1BL+8RC$ LISTFORMS0BL+9 +XDEFAULTS1BM+;DEFAULT H(:!0BM+M 5B= "G.ATOMDEFAULT $NE$,8 5B@ "G.FORMDEFAULT $NE,8PtC 5BD "G.FUNCTIONDEFAULT $OE,8  H35BG "G.MACRODEFAULT $OE.,XE@c$ ,XE,XE+XSILENT0BP+R QE"!SILENTSTEPATOMDEFAULT JP () H SILENTSTEPFUNCTIONDEFAULT FQ "+ B 4AR+XLOUD1BQ+UUNSILENT1BR+UNOISY0BR D+X P J Q B+X "/i0,x8&HEUR-TUPLE &&D 0Y,8,8,8 ,8(B{ anc+f g~4nf  08".$ .@(.4.c[+dZ 0[ B` Hg~+u g~(N{ 8anc +p  .g~ 08".$ .@(.4.m@`[+nZ[ B` Hg~+u g~(N{07 8+s@@`+u g~-,[a B` Hg~ g~(N{6 8+x[g~ Bg~E*(6B`+}4F{0FF+}EXPRFEXPRST-z W;|S g~E4B}7^ "= $ Bg g~.,80*U*R,8STEP-PROGSTEP-LAMBDAFUNSTEP-AUTOMATICARGSTEP-FIRSTARGBTUUVF-P+ VWz 8X$  g~ASSQW Bg4BZ+ g~-,0  Bg0BG+@@g,8 g0BM+6Dg+ *G J`+Z7Fg~+*E *.5B "G B`+Z[5B "GA1 B`+Z g}0BN+ g-, B b +Z0BO+ g-, B+Z0BND+ g-, B+Z0BO+ g -, B+Z7Dg~+@  g~E B7Dg+/7Fg+' g~ g-,D# *+Z g~ gREMPROPX4BZ  @ g~*DELQX BZg5D/[ g5H/ g~D1[g~X+Z7Fg+8*-,.P`0 g~E $E,8 g}-,*F,X g}-,+Z ". g~ E $E,8 g}-,*,Xb g}-,+Z g~0B=+D d g}-,E B+G  g}-,1HE B7Bg+Q7Dg+K "-,0@2QCg+Z  g}X BZg5BP  g~ g}X+ZZag+Z6Dg+T $-Dc g}.4BZ g-,.,8 g}-, &,X g}-,+Z@  `5B] g-,5B] "G/, ,x=H Z ,c,8,8d,8 ,8d[ J%,8",< "+,x==FUNCTION==Y `^B ,k,8,8l,8 ,8mZ[. $BhRE,8",< "+,x==AUTOPROG==YX@$1 He ,s,8,8t,8 ,8u-, .!@@% $E,8",< "+,x==AUTOLAMBDA==%D!Z Pm ,|,8,8},8 ,8~,8Z@` [.[`E B`",< "+,x%b==FIRSTARG==Z pu ,,8,8,8 ,8 DX,8",< "-,x-h~,81(B{ anc+ `-, B#@$+ ,,8,8,8 ,8g~,8[g}Z$Z B#,8",< 0 "[7 "0KP/,x:VALUE-IS[HRVBS-WAY,8@$,8 ,,8,8 ,8 ,8!,8",<!AA "%% Bg1B,+1B++1B,+ @0B++Z`[+-,/) ,xDWIM-NWIT\ @STEP-LIVELY,8,8[B$ZZ1F+%7 ",8[B%Z Z 1H+)7z|}v,8[ B$Z (Z (1J+-7 ",8[B$ZZ1B+17 ",8[B%ZZ1B+57z=;;x,8[B$ZZ1B+97 ",8[B$ZZ1B+=7 ",8[B$ZZ1B+A7 ",8[ B$ZZ1B+E7 ",8[ B$ZZ1B+I7 "  (D"-,p !pp p pD pppp  ..-,  00 B" * J! &"*g{5/+5jUjR P!ANDTRACE-VALUEINTERN]^S^^].]xSTEPHOOK4*APPLY-MARKER* $_v,X-,$E pW,8,87H+c)D 0Tz JKDi4Bc ,b,8 g-, $` g-,E,8,8m",<(+lA4Hj ,j,8 $_ g, $ g -,E,8,8m",<(+l ` R g*APPLY`/,x"STEP-APPLY`XP Y,8[0D_+qZ+q"/0.@R,x nSTEP-SILENT,84Bx[FAST1Da )#R+vFASTER0Db+x "/FORCE-COMMANDbCHECKING "c $+z *+ J "+bCLOAK-CHECKING "c/PT@Z,x r *& J WATCHING "d,x`{ *?A01 J!-, B@,x (}-,#@b  ..-, -, #  @ ".$ .@ #(.4.QK+ XKH$ 7D +6F+ 7H+$4B6D "+ #"+ ,,8,8#,8", K<(,+8 #(N{@6 87 ,8-,1,80 ,86Bg+&6Dg++%6F  +7H+$ ,!,8,8A,8A,8B,8Bi"",<1YES,dzPhv`4J%[(Z (0H+"@@ g+? " $)-. [gx*.+ B`4B>[4D>6Fg+1 ,/,8,8C",<3 ,3 *@$ Jg ,6,8,8C,8 ,8D[g},8",j<FLUSH? "e%,dzPhv`4J>[(Z (0H d +7 [gX B [gX B Zg Bg+,/,xSHOULD")DRe0STOPfc+CONDITIONf]D!HSTEP-PREDS-,:7D+O ,M,8D,8z,8{,8{,8,8|,8|,8},8},8~Tb"",<1,dz hv`5BO@@7B+X ,VD ,8,8~,8,8,8,8,8,8,8 &,8",<1,dz hv`5BX@@,8:-,1@1,86Bg+_ D BI D B "C+y[ D` ,g,8D,8,8,8,8,8,8,8,8,8T ",<1,dzPhv`4Jl[(Z (0H+g H  `E B ,r,8,8,8,8,8g~D"(,8,8,8 ,8 ,8 ",<1,dzPhv`4Jw$[(Z (0H+s  `E BZgA@`5 Bg+Z/,+DO%HJ"gYOUhWANThCWHENi0R)D"EVALUATEiATOMS?jghhCi"D"0ijghhCi0"D"ijghhCi0iR.A*UFORMS?j pDPREDSUBST $!!OP!VSYMEVALU*U*U!1CADR!2CADDR!3CADDDR!4CDDDDR!5-``k# l#lm#mn#no#op#pq#qnq#zkt$!SUBLIS$r 0 -0,8  Z( ./`,8,< "pLISTIFYrDEPTH!hT 1 $sEGRINDLENGTH sGRINDLEVEL t-,$Q E"^Rt1PRINLEVELuPRINLENGTHu,8 "H $%-. 0B+ gy0B+D gy +$ gy +$4B gy !# +$PRIN16Dv+" gyPRINTv+$  gyB.+ //.].U+  s swxt twxDEFPROPU+@EXTRA-ELEMENTS-IN-HEADTEST-DEPTH-HAIRPRETTY-PRINT-FORMAT-DESCRIPTIONxsx?yyzx,8Z[(B{6 0P X7+ "?/,x&,8 -,1,<,8,8@ " !4n2/.-, B! @+f ,4`0,8,8g~",<1 Bg(B{ anc +8 g+f g(N{7 8+X $? gGETCHARNz Np "p B` 0N+D AA# " $C-. gyEXPLODEC{ZIMPLODE`a{-, .+ +\0N+J@d@ g{Z{ B@ & $ #D@ 0 @+f0N+Q g{Z{ B@ d & $[#D @+f0.+W1nD+W/.-, B! g{Z{@(0 B@+f g+f " $\-. gyA@*.+ Bg4Bb ,a,8,8h@1,8 ,8i[,8",<+. ,f,8  1,8i,8 ,8j,8j",<+.,@J"//,x:EVAL-VALUE|:R)ERROR-IN|EVALUATION}X+-0,8%h ! $READTABLE "}. $,8OBARRAY "~.T"-,p}~^Q~$t,807B`+~[(D{7 +} ,QM:!TYIPEEK. $E.SYNTAX $E!# .A4N} ,TYI[`+0,<,8 `2og~+.Z8QDPRINC` `.. Np "p B`+H0// " $ -. ,QL $READ.+ @@t * J$ (  H~ B`+s/+?Xk-0,8 5N  + 0D Z(-,ts,8 ,@ ,8,8!,8g,8! g~".$ .@(. %4.[+Z,8",< "ASCII D]/+8STEP-V!-0,8 5N%  +& DZ(-,ts,8 ,1,8,83,8g,83 g~".$ .@(.4./@`4[+/Z,8",< "/0 01+:: "-, B#A@,x84-0,8 =N8  +9`! Z(,8 Z( $K@,8 g".$ .@(.4.@[+A@BZ(B{7 +J ,J,8 g".@0$ .@(.4.G[+HZ,8,8VD",</+U g".$ .@(.4.N@`@[+OZ[`QD g".$ .@`0(.4.T[+TZZ`XF/t,xMUST BE LIST05STEP-FUN-0,8@,<,< `5N[  +^ 00 (/. Nw "w,8,8,80B6B`+a  =Ni4Bi ,h,8,8{ g~..,< *p,8,8g~[,8", </+y g".$ .@(.  4.m[+nZ[ Bg65BvST-z \a(@ ( g B`5Bv g~1N+vz a5i g B` g/. Np "p Bg+_/0c%/ "/"0WP STEP-OP-0,<,<,8 H `0.+  +   (/. Nw "w,8,8 `=N  "+  Z(2Bg+  , ,8 g..,< (p,8",<3/+  ` /. `,<".$ .@(.4. [ + Z[,\ Np "p B` Dg+ A://,x8|REEVALUATE-0@$0,8 `5N   +   (  08".$ .@(.4. ![+ "Z(`,8 "EVALFRAME,87B`+ &-, @ 0B+ ' `+ *Z`[ B`+ $/,X,8,87Bg+ /ZZ [2D`+ G4B GZ[,8 g~1n@$+ < , :,8,8 K  ..,< *p,8,8 K Z ,8",</" Z(+ C , B,8,8 L  .. ,< *p,8,8 L,8g}",</L g.,XEZ[[FRETURN@+ JZ[ Bg+ ,/)KP,xREVALUATE@ BURP,8)$4B P[STACK1D+ PON0D+ v-,~10  .. " Nw *w,8,8AH7Bg+ W-, 0B+ c , ^,8,8 x 00Zg~[Z[-, ,8A",<2[g0B+ a `/.-,   B `/.-, + t[g0D2+ kZgZ[ `".$ .@(.4. j@` QC+ kXC+ n `/. Nw "w B`# `..Zg[,<ABS,\ Np *p Bg J`+ U// @`R+ w@@( " B /,xSTEPSETSTATEx7v AZ  ` M * J ( H! ..-, a B"[ZZ1D+ 7 " 0 B  F![ZZ1B+ I07z|}v B[ZZ1B+  07 " B[ZZ1B+  07 " B[ZZ1B+ I07z=;;x B[ZZ1B+  07 " B[ZZ1B+  07 " B[ZZ1B+  07 " B[ ZZ1B+ ! 07 " B [ ZZ1B+ %  u7 " B "" B(,x y?xFILE-NAMEU*]pPROBEFLOADUDIR(init)  KK   x;