;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading LOOP 765pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071LOOP765VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xMAPCGETLU*U*USUBRLSUBRFSUBRMACROFEXPREXPRAUTOLOADPUTPROPLISPU*U.UDTDCLFASLDATA-TYPE?VARIABLE-DECLARATIONSINITIAL-VALUEPRIMITIVE-TYPExERRORLOOP-DIE,8,8 ,,8,8,8",</0.T",xLOOP-SOURCE-CODELOOP-POP-SOURCE[Z D,x]*@ LOOP-MAKE-PSETQPROG1LOOP-MAKE-SETQ,84B[,8Zg@Z5D Zg[+Zg[,8*d-,,X-, $-, 00-,,X-,/,x] `(DESETQ,84B -,,86@`+ @"0 "+[`4B4B(B{ `n + "+Z`Z B`+/ U `-,/,x8ANDFEATUREU+U*UCOMPLRSPECIALLOOP-KEYWORD-ALISTxINITIALLYLOOP-DO-INITIALLYFINALLYLOOP-DO-FINALLYNODECLAREU*U*ULOOP-NODECLAREDOLOOP-DO-DODOINGRETURNLOOP-DO-RETURNCOLLECTLOOP-DO-COLLECTLISTU*U*UCOLLECTINGAPPENDAPPENDINGNCONCNCONCINGCOUNTCOUNTINGSUMSUMMINGU*U*UMAXIMIZEMAXMINIMIZEMINALWAYSLOOP-DO-ALWAYSNEVERTHEREISLOOP-DO-THEREISU*U*UWHILELOOP-DO-WHILEUNTILWHENLOOP-DO-WHENIFUNLESSWITHLOOP-DO-WITHu:U*W !!""#"#$$%%&%%&%&'%&'%'(%'(%()%()%)*%)*%++%,,---..///0/0011121 23 xLOOP-ITERATION-KEYWORD-ALIST3xFORLOOP-DO-FORASREPEATLOOP-DO-REPEAT3445456xW*U*ULOOP-FOR-KEYWORD-ALIST6x=LOOP-FOR-EQUALSFIRSTLOOP-FOR-FIRSTINLOOP-LIST-STEPPERCARU*U*UONFROMLOOP-FOR-ARITHMETICDOWNFROMUPFROMBELOWTOBEINGLOOP-FOR-BEINGu:].u6778899::9;;;<;<<;<=;==;=>>xLOOP-PATH-KEYWORD-ALIST?xBOUNDP???xLOOP-DUPLICATE-CODE@x?@@xMACROLISTU*U*UCONSSI:LOOP-TEQUALEQCDRDELQASSQ*EXPRSI:LOOP-TMEMBERSI:LOOP-TASSOCp:@AAABBCCA@@DDEx0Bg " ,x!MEMQ$EH#j].U$CP#FLUSH-MACROMEMOSDEFINE-LOOP-MACROFFxDEFINE-LOOP-MACRO MACROFGxLENGTHWrong number args for macroU*U*Pnot a loop keyword - define-loop-macroEVAL-WHENCOMPILELOADEVALKEYWORDLOOP-TRANSLATESUBST,8 G1N+) ,),8,83,8g",<# Z`[,81B +0 E5B0 3D5 `E5B0 ` "HIIJJFKF KKz0 mr $K,X nU/&LHp$F F x KxLOOP-FINISHLOOP-FINISH MACROu*@LMxWrong number of argsGOEND-LOOP,8Z4D6* "MAA:UNNz;Xk 3/,x P3MACROFETCHLOOP-TRANSLATE-1MACROMEMOD@,8O5B< `O & $ `Pu*/,x 88NREVERSEXCONSLOOP-END-TESTIFY,8-,0@`4BE `PZ B`5DB[+C!T @0 $QNNz EEY-, $-,/0.U*U,x =LOOP-BEFORE-LOOPLOOP-AFTER-BODYEQUAL*DELQLOOP-BODY*NCONCU*@`1SI:LOOP-SIMPLEPLOOP-OUTPUT-GROUPLOOP-NEVER-STEPPED-VARIABLELOOP-OPTIMIZE-DUPLICATED-CODE-ETC,8,8 R`P,8 RP,8 ` gS4BR 0 g "S,8 TP $,XT@` BT+X g~[g-, g Bg~[`-,Z`Zg Bg D` Fg+J/0B-,} 7B@+` g} "SPf! BR g} "SP BR+@@R@@R@ g}P Bg} g}P Bg},8g},87@`b+m[g[`S5Bi ` Jg+k[`@U4BmZ`Zg B` Dg+e/@$7@`+{[g}4Bq R-, BR[g} D4Bt R-, BRZg}Zg} Bg} Dg}$2Z`1D+x+o RP BR RP 0 BR g}P,8 g}P,87@`+[`[g Bg~ Dg~5B4D g~S4B @ g} g}U T g~-, BT@@g}@ 0@@g}+7@g~+ g} g~-, Bg}@`7@g~+ g} g~-, Bg}Z`Zg  B` Dg+~/ g~ g~U7BV AH+z :w-, $-, R-,1H U BR/ ",x hFGENSYMLOOP-MAKE-VARIABLE$,8,85D4B2 V5B ,W &)H  z ZuW BV,86@g+% g "-,0d-, `-, $-,+06@g+* g "-,-,a `-, $-,+0 g-,0 `0 g,8 zZu-,-,,X 1-, $-, T-, BTA:U//,x XLOOP-ITERATION-VARIABLESLOOP-ITERATION-VARIABLEPLOOP-VARIABLESU*U*ULOOP-NAMED-VARIABLESLOOP-DECLARATIONSLOOP-VARIABLE-STACKLOOP-DECLARATION-STACKLOOP-PROLOGUELOOP-EMITTED-BODY?LOOP-EPILOGUELOOP-AFTER-EPILOGUELOOP-CONDITIONALSU*U*ULOOP-WHEN-IT-VARIABLELOOP-COLLECT-CRUFTLOOP-COLLECTION-CROCKSHanging conditional in loop macroLOOP-BIND-BLOCKLOOP-COLLECT-INITNEXT-LOOPPROGDECLAREU*U*LET*APPLYLOOP-HACK-ITERATIONELSEsecondary clause misplaced at top level in LOOP macrounknown keyword in LOOP macrofound where keyword expected in LOOP macro-, 1[0D +6Z F-,XD"XY!YZZ[[RD"T\R\]]^V^B!_-,~ 6B+7D]+F[-, 0f2 * "_V` _ J` ,b@,8,8_,86@g+L `+S[gd-,Zg[-, $`-, `-,ZgZ B` Dg+J/0`!,8 [P,8,8R ,_,8,8T 0,8R \P,8 ]P $,XT  ` $N-,Naz y[ a -,,8",<' 0 $a-,,8",<' `-, `1 $a-, Bg,8,87BZD"+[Z FZ[ [Z [ J[ g~ Dg-, Bg~ H`4Ho $ "b-, g~-, Bg~,8g7@`+y[`(B{6 +x[`[4Bw4Bx(B{ 0 `n+x " +zZ` B`+p "2/4B gP g~-, $b `0-, Bg~+e,8,8,8g~ ,87@g+[g B`(B{7  + g~ `-, g Bg~ "-,0 Bg+ g~[`-, g Bg~@Z`[-, BgZg Dg+/0 @0 g} g-, $-,,X@0-,/ Bg~+e/ g @ +. Bg4B(B{ an+,   gE Bg4BZZZ[Hc+A 3 gE Bg4B"c+A( $1dz I Kq gD4B*Z[-,[ -, g-, $ "d+A C g "e+A g "e+A/0 2 ,+ x37BY+5 ZD-, BZ [ Z-, B[@@YP#@bZ+6 ",x /LOOP-GET-FORM-,0 $[,8,8 g(N{7 8+@@ 4Z`5B=[`+? `P $-, @ +C `-,[ B` Dg+9u*U/,x `6:DATA-TYPEGETFIXNUMFLONUMPLUSU*U*U+ADD11+DIFFERENCE-SUB11-GREATERP>U*U*PLESSP<+$-$1+$1-$SUBLISLOOP-TYPED-ARITH,8b,8 $f `g4BI `+I `)@A(ghz - 0*D[ B`4BO1Bg7Qhn jo io kp zuK$G g@ p+P g-,/,xhi ij jk kl lm mn xaoYt]*U !DINTEGERNUMBER LOOP-TYPED-INIT,8 $fg *4BU `+Yghqrz 7&xI, `D[ B` `%4BY1Bh7Z "s/,xr8QU*@Duplicated iteration variable somewhere in LOOPDuplicated var in LOOP bind blockBad variable somewhere in LOOPLOOP-DECLARE-VARIABLE,8,8,85Ba4D b*-, $-, Y-,@  BY+ (B{7 +{7BX+k X4Ji[(Z (2Hg+d g "t+oD X g-, BX+o Y gC`4Bo g "t g4Ns(N{ 8A`n+s g "u ` gu g-,5Bw `s-, g-,1D Y-, BY+ 4D* g@u g-, g-, Y-,1  BY+ ,8,8(F{7 0@ + g-, Bg B`+[g0 Zg B` Fg,X[g~W,X $Zg@kPW g/+ x [LOOP-MAKE-ITERATION-VARIABLE,8 #,8,8 * -, XW/.T+`  *APPENDcan't hack this,8,84B5D D` "+74B(B{ an+& !E1 gE5B7 $f `g4B ,,8d2 ,8g,8g~",< Zv BZ+7ghz - 0*D` `D4B% g-, `-,B Z-, BZ+77Bg " (B{Z220B%+37@ $ (D{Z0B%`+/[`[guZ`Zgu+7 `@[gu `Zgu+7*-,`! g-, $u-, $ "wu*/,xXCOMPILER-STATESQUIDLOOP-CONSTANTP,8(B{( anb+< " +E z Ow `E  5BE `(N{6 8+E[`0D+B H$ " +E7Fw+E2Dxg " /h1,x8LOOP-MAYBE-BIND-FORM,8,8x4BI g-,0@`+L ,W ` gW/jD,xFNOTYPELOOP-OPTIONAL-TYPE[,84BT(B{7 0P+T $f `g5BTghqryz :m_` `D AA:U4BT/,x MLASTMore ELSEs than WHENsLOOP-MAKE-CONDITIONALIZATION,87D]+*z[z[z@!*,8-,XC`/ $[MBA4B` "+ $d[A4B{  ]z[,8ZZ4DtZ] 25FlZ[-,[-, $d-, $ "{+t ]PZ  D][z[z,8 g-, @`1XC` ]P B]// ] z[z,8 zZu-,-,B"XC` "/+ []Z],8,8@`07@g+ `z[z,8[g-,0XC`Zg,8g[` Dg~ Fg/D0+}/,8]@@][`/+ A:-,/,x8ULOOP-PSEUDO-BODY,8{H$,84B7D\+ T-, BT+D1 R-, BR R `-, BRtB/,x@ LOOP-EMIT-BODY * J\"|HD Qf [-, B[,xxBad varlist to nodeclare loop clauseA ,84B7@ " (B{Z1B%+ @2 ` "} !,Xv B!,xD f \-, B\,x f"|YAH("f-, $#-,"|@#U*U*ULOOP-SPECVAR-HACKOBARRAYIMPLODESPECVAU*U*URSOBARRAYDEFUNLOOP-COLLECT-INIT-COMPILERFORMTOPLEVELMAKLAPCADDRMUNKAMU*U.VALUE-CELL-LOCATIONCADRSPECIALSSYMEVALCDARGOFOO}~~Ew%%%%gC}%%% A B ` @xZ[ A:U-, -,,x &MAXMINunrecognized LOOP collecting keywordINTOU*T incompatible LOOP collection typesUnequal data types in multiple collectionsMEMBERRPLACDLOOP-CDRIFY,81B+++0B, A +, " +41B'+/1B%+/0B&+0 P( "%+41B(+20B)+3 ")+4 $!@`00 " ,8f,8z,8,80F,8 $ [A4B< Bg@0 Bg-,~ ^ g}C B`4B^Z [ B`3Dg|+E*-, g|-,0b $ " +M7@g~+MZ[@ 03Fg~+M*-, $-, g~-, $ " Z`[ &Z[ *Z[Z [ ( B` Dg~ Fg Hg} Jg g|0B +] g}(N{6 8@0!+]5J]Z`,8 ,W g~ $WBQC` Bg~/+6@g~+f g|0B( A +a "g+e1B,+e1B++e1B)+eg "r Bg~6@g}+k ,W Bg}-,2D $#-, ]-, B] g| A0 1B%+o g~ $ g}v g|0B%+vH ,W _,8 g}-,,X-,1( B_[+0B + g}(N{6 80@`C+| ,W g~ $W Bg ,b@W & z ZuW+ " Bg g-,0@ g-, g}-, g~-,0@ g|-, g~-, ^-,1 B^ g|0B(+ g~ "iq,8`0 g}-,,X-,-, g} -, $-, Bg  z DQrzH g} `4B g+p g-, g}-, (! $-,+p0B)+ g~ "hq@,8 g}-, g|-,,X-,0d-, g}-, $-, +p1B++!0B,+M,87@g~+(d g|-, g~-, $-,0-, g~ B` Jg| g|-, g} 1-,,8ghz - 0* g}D4B: g{1B+ `7r "l g}q `-,-,` g~-, $-, `,8 " @0-, g~-, $-,-,0H ,X-, $-,+Gz :w` g~-, $-,,8 g{-,0@,X-, g~-, `,8  gz-,-,-,,X-,2@` $-,-, g|-, ` $-, g-, BgZ4DLB0P $-,+L[/+p @ @00B%+Q g}-, $%-, Bg} +Y0B&+Y g}(N{6 8+V[g} Td1D%+Yz :w g}-, $&-,@ Bg} g}-, g-, $ -,0a,8 g|(N{6 8+e[g|0D%00+eZg|4Fe** -, g 2-, $-,+p-, $Bd-,,8 g~-, $B-, -, $z-,-, g~-,2@` $-,-,,X-,  00 $-,/|/,x%jT0mP(CDDRCDDDRCDDDDRG,8,< pDa 0.+~5Nw `-,+}=Ny "B(+{ p1N7 ",8 g-,  ,X-,+ `-, $-,0"..np B`+t//t+ Prnot allowed inside LOOP conditional,8,8f,8A@7D]+ -, g-, $ "@ 0NNz EEY,X-, g-,/1nT"|xITNOT,8f,8,8 $Z[A4B^,8 g @1-,,X-, $-,Z 1Z Bg ^-,[-, B2+ ` Jg7@g+ g-, $`2-, Bg g-,-, $@#-,-, $ ]T B]/0.@c,x Garbage where = expected-,~ [ Bg~b3 Dg $7 gA4B,f@@` Bg b +C $ gA5B2  gE5B2  3 gE4B3@@g@@`+C[ B` Dg $7 gA4B9f Bg @1+C7D+B  gE5BB 3 gP!E5BB $ gA5BB g "4+C@@g ` g g~W $[A D ;4BH+%/ `0%,8f(c#z ) Z-,,X-,| ]# z6c(}0-, B],xPI^,8f-,0H,X-, $-,,8 ^ -, $#-,-,,X-,2G: $-,"|hOSI:LOOP-SIMPLEP-1,85BZ P ` "s+a "U $a-. gy,<  p0. +`-,+` "/A>U+ /,x PXUxPLUSPMINUSPU*U*WTYPEPZEROPBOOLEROTASHLDBATOMPROG2?UU&mnlmhjikikjlnoopS7xU*T1NULL+INTERNAL-CARCDRPCXRMACROEXPAND-1,8,<x  4Be "s+ `(N{7 8+h " +[`0D+vZ`,87@`+t[`,87@`+r[` .p..Z`  D` Np+m/Z` B`+k/0B p-, +4Dy(D{ @ an+[`,8,8 $Ug Bg@4B(B{ an + g Np+ gCg @@g Np+BN#z ( `E 5B ` 5. `0B+ .H  Np+ U4J[(Z (0H+ .@` Np+ g Bg3Bg+ @@g Np+ $U "+ Zg,8@`7@`+[` ...npZ` D``0+/ p-, /+   $U+ //,xbRw LOOP|-2 $,X$v LOOP|-1[`,8 $`0Zg,,X-,/,x]*@!Iteration is not allowed to follow body codeIteration starting inside of conditional in LOOPNRECONC,8-,,8-,|0@ ,8-,~ ZgyZZgy[c 0 Bg Bg~[4D/ g}[-, Bg}Zg~ $ Bg~[v $ g}T Bg} 0Zg~[ Bg~4D8 g|[-, Bg|Zg~ $ Bg~[v $ g|TZg~$ Bg| Dg~6F]+?7H\+M5DB6@g}+BD06@g|+B4BMZgyZ[-,Zgy`[-,[gy-,[gy-,1,87D\+K* "+M* "/6@g~+O g Jg~[g~4BR@ g{-, Bg{Zg~ $ Bg~[v  $ g{T Bg{Zg~[ Bg~4DZ gz[-, Bgz $Zg~[v $A1 gzT Bgz $[A4Bd7D]+ b 3Z[E5B g{Q,8 gz`,8 gyQ,8 gx-,`,X-,,X-,,X-, 0 Bg g}Q,8 g|,8 g{Q 0,8 gz-,,X-,,X  -,,X-, B`6D]+| RH@2 g BR R ` BR+ $ ! ],-,] g "S d $-,{ R-, BR,0h ` "S $-,{ Rb2-, BR`+ 3[EL Bg~4B g~ Bg~+ g~  BgyP U Jgy+) "/,x 8&Unknown keyword in FOR or AS clause in LOOPLEXPR-FUNCALL ,8z,8,8f,8`,8 6 gE Bg5B g-,`! g~-, $4-, $ " ,$,8Zg[,8,8g},8g~,8g|Zg}``XZ,8",</,xH , (W,8f &g $,XWsz '$f,8  -, $m-,-, $-,0 @0,8 g-, $l-,-,0@d g-,-, $-, `0 $-,,X-,/,xY`% ^5B9 ,W@fW B^,x]B `6THEN,8,8,8 $[A4BD00 ` g gvf-, g @0-,z -, $-,+N` ` $ gv g-, g-,0&5 ,87D\+L|zun2+Nz NIL -, $-,//h,xx :found where THEN expected in FOR ... FIRST,8,8,8 $[A f5BT[ ",X $ gv`f-, g-,*`-, d g-,z NIL-, $-, ` $-, $-,,X-,  U $-,/,x OBYFUNCALL# ,8,8,8,8 $[A4BgT f+h Bz;|:Pu,8,8(B{6 (+m[`1B+p1B +p ,W Bg -, $-,+rZ`[-,0 ,8,8,8 g|(N{7 80@ +y6@g}+y g} g| g|v Bg +  g} $ g|v ,W & g| `W Bg7@g}+ -, g}-,`+ -, g|-, Bg `z@ ,8 g-,XC`7@g}+ & g~@ 0 g}W g-, g-, Bg~` g-, $-,,86@g~+ (dz :w-, $-, $-, ` $-, `-, g}-,  A $-,+ ([g0DB+  g}-,2@ $-, g~-, `-,0A`2+ ( g} "-,-, $d-,,8 g}-, $-, ` $-, g-, g}-, ` $-, $-,,X-,u*U/,x(bUPTODOWNTOABOVELOOP-GATHER-PREPSSI:LOOP-SEQUENCER,8,8,8,8 , =,8,8 "-,0P`05B / "g,8,8,8,80 ,8,8,8*-,0@  $ -, gz-, $4-,0 2,8*gz-, $ -, $L`,8;<<==zcad,@ ,X-,,8",< t/,x8( )SI:LOOP-NAMED-VARIABLE,8 YE,8 $25B B ,W+ D YS BYZ`/0/U*U,x >D!xEACHTHEMalformed BEING EACH clause in LOOPOFITSU*U*PHISHERTHEIRfound where ITS or EACH expected in LOOP pathDEFAULT-LOOP-PATHUndefined LOOP iteration pathunused USING variablesREVERSE,8H ,8,8,8 $! gA5B K $"E gA4B N * [ Bg J`+ P @b g-, B-,~ ? g}E@(  B`4B W6@g~+ V $Z[A5B WL#+ tf Bg} $[A4B m7@g~` + ] g| "" g}-, $#-,00-, * Bg~ Jg#$$%!z @&$4D2 B`D5B e ` "% ?[EL& B`4B i+ tf-, $9-,0  g~ Bg-, Bg~+ t ?[dE B`5B t g}-, $9-,0 Bg-, Bg~+ t6@`+ z ?!@  "&E B`5B zZg[ "&Z`[,8 , ,8[g,8,8g{,8g{ $ `Zg}Z[ $*g|,8,8g|Zg|Z[,8Zg|ZZ,8",}g|/ B`7DY+ "'@@Y@[`,8,87@g+ [g B`(B{17 + @f `v+ Z`Z[Z`[[`vZg Bg+ /0d2Z`[' [T B[Z`Zu*P/,xh EUSINGUSING used in illegal contextbad variable pair in path USING phraseDuplicated var substitition in USING phrase,8@,8[,8,8 g~ `D4B ' 0,8f-,,X-, g( -, Bg+ M $( `A4B KH @06@g+ .[-, $(-, $!H` "([,8,8 g(N{6 80@a+ JZg(B{6 + -, g|-, $4-,0  ,87@g}+ 7 g{-, $#-,2@ $-,[g}Z[-,0Z`ZXB ` "2[g~Zg~[ (Z[ Z[ ,8,8,8,8 0 , K,8,8g|,8 N,8gx gx-,5B B " ,8,8g{,8*gy-, gz-,0@0 g{-,,8*gy-, $ -,,8,8gy,8gv",< $-,2@`% $-,/,xg(@ &U8DEFINE-LOOP-SEQUENCE-PATHDEFINE-LOOP-SEQUENCE-PATH MACRO33xZZ,8#9;<==z.>=D -,  $2-,Z`[-, $*-,0*U/,x8 OINTERNED-SYMBOLS path doesn't work inclusivelyIllegal prep phrase(s) in INTERNED-SYMBOLS LOOP pathARRAYCALLU CLPLOOP-INTERNED-SYMBOLS-PATH7@g+ X g} "47@g~+ bT1Zg~5B ]9#z MIf[g~[D5B b g~ g} 0-, $>-, g}-, $!A0 "4 g~ $ g}W ,W,8@!7@g~+ h[g~Z[+ i $~ &WQ0 ,W &g $5,8W ,W@f@ @0,8W `-, $-,,8`0 g-, $l-,-, g  -, $-,-, $-,2A@# z sJZ-,*g-, g~-,2H $ -, $5-,-,e g-, $-,#z ) Z-,(dN6z N*@-, g-, $-, @2-, $6-, $-, $a@ -,-,,X-, $-,0 @0,8 g-, $:-,-,0@2 g{-,,8 g-, $B@-,-, g-,-, ` $-,,X-,,X-, `0 $-, $-,/,x]*].Wh@ VYINTERNED-SYMBOLSINTERNED-SYMBOL7?AA7BCE7??:7869xLIST*7?A872#9;<==BCE7??:xSSTATUS 9 xx;