; P@QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading LOOP 725   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPLOOP725U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xMAPCGETLU*U*USUBRLSUBRFSUBRMACROFEXPREXPRAUTOLOADLISPDTDCLU*UjPFASLDATA-TYPE?VARIABLE-DECLARATIONSINITIAL-VALUEPRIMITIVE-TYPE!#%')+-/xERRORLOOP-DIE@,8 ,,8,8",</" ,xLOOP-SOURCE-CODELOOP-POP-SOURCE[Z D,xU(LOOP-MAKE-PSETQPROG1LOOP-MAKE-SETQ4B[AsZ5D @[+@[* @0-,1,X-, 5-,-,c 1,X-,,x P DESETQ4B-,6@`+ "aA`;[`56 `77`; `Z`Z B`+ `-,3u*U,x0LOOP-KEYWORD-ALISTNAMEDLOOP-DO-NAMEDINITIALLYLOOP-DO-INITIALLYU*U*UFINALLYLOOP-DO-FINALLYNODECLARELOOP-NODECLAREDOLOOP-DO-DODOINGRETURNLOOP-DO-RETURNU*U*UCOLLECTLOOP-DO-COLLECTLISTCOLLECTINGAPPENDAPPENDINGNCONCNCONCINGCOUNTU*U*UCOUNTINGSUMSUMMINGMAXIMIZEMAXMINIMIZEMINALWAYSLOOP-DO-ALWAYSU*U*UNEVERANDTHEREISLOOP-DO-THEREISWHILELOOP-DO-WHILEUNTILWHENLOOP-DO-WHENU*]*UIFUNLESSWITHLOOP-DO-WITH9;=? A!C!"E#G$IG$%G%KG%&G&MG&'G'OG'(G(QG()GS*GU+W,WY-[.]./]Y/_0a010 c2xLOOP-ITERATION-KEYWORD-ALISTFORLOOP-DO-FORASU:U*UREPEATLOOP-DO-REPEATe3g4gi5xLOOP-FOR-KEYWORD-ALIST=LOOP-FOR-EQUALSFIRSTLOOP-FOR-FIRSTINU*U*ULOOP-LIST-STEPPERCARONFROMLOOP-FOR-ARITHMETICDOWNFROMUPFROMBELOWTOU:U*uBEINGLOOP-FOR-BEINGk6m7o8q9sq:u:;u;wuw<u<yuy={xFEATURECOMPLRSPECIALLOOP-PATH-KEYWORD-ALISTY>}?xBOUNDPu;T @xLOOP-DUPLICATE-CODEY>}?x@xSI:LOOP-TEQUAL0B " ,x;; MEMQSI:LOOP-TMEMBERi "ASSQSI:LOOP-TASSOCi0 EU:]*UFLUSH-MACROMEMOSDEFINE-LOOP-MACRODxDEFINE-LOOP-MACRO MACROD%xLENGTHWrong number args for macronot a loop keyword - define-loop-macroEVAL-WHENCOMPILELOADEVALforget-macromemos|KEYWORDLOOP-TRANSLATESUBSTED1N+( ,(,8,80,8g",<Z`$1[1B `[ C[ ` "FTcKa1GHI I%z0U~ $I&JH#w*]*P  x %xLOOP-FINISHLOOP-FINISH MACROK%xWrong number of argsGOEND-LOOPAP0ZgAa1Lz;Xk 3,x1 0aMACROFETCHLOOP-TRANSLATE-1MACROMEMOMs `` ``] & $ `N,x 5NREVERSEU XCONSLOOP-END-TESTIFY-, ``Z@(5 B`[` $OLz Mų-,  U Y-,,x xuLOOP-BEFORE-LOOPLOOP-AFTER-BODYU*U*PEQUAL*DELQLOOP-BODY*NCONCSI:LOOP-SIMPLEPLOOP-OUTPUT-GROUPLOOP-NEVER-STEPPED-VARIABLELOOP-OPTIMIZE-DUPLICATED-CODE-ETC,80F,8 P`` C `Q4BO3 "a Rd` $a BR`3`-,0` g[`-,Z`A Bg! D``/+]C23 g} "a` BP3 "a` 0+@@P g}` Bg}`1,8g}7@``as[`Q ` Jg+h[`SZ`As B`A@ 3+b/7@`+x[g} P 1-, BP`4Bq-, Zg}As Bg}3Z`1D+u+l Pd` BP` g}` g}`7@`+[`as Dg~5B Q g}a R-, BR3@@g}`3` g}-, Bg}7@g~`3 g~-,0Z`As B`3+{/ BP2 g~a7BT`)z :w-, $ 2-,-, "j@ ,x HGENSYMLOOP-MAKE-VARIABLE,85D4B/ T 25B ,U & z Zua BT6@g +"3-,3-,1 `-,2B $-,+-3`O g@ -,3-,1 `-, Y-,0@ (+- g-,33 zZu-,0d3-,1,X-, $-,@`0 R-, BR/,x]*U*U 8LOOP-ITERATION-VARIABLESLOOP-ITERATION-VARIABLEPLOOP-VARIABLESLOOP-NAMED-VARIABLESLOOP-DECLARATIONSLOOP-VARIABLE-STACKLOOP-DECLARATION-STACKLOOP-PROLOGUEU*U*ULOOP-EMITTED-BODY?LOOP-EPILOGUELOOP-AFTER-EPILOGUELOOP-CONDITIONALSLOOP-WHEN-IT-VARIABLELOOP-PROG-NAMESLOOP-COLLECT-CRUFTLOOP-COLLECTION-CROCKSHanging conditional in loop macroU*U*ULOOP-BIND-BLOCKNEXT-LOOPPROGDECLARELET*APPLYLOOP-HACK-ITERATIONELSE secondary clause misplaced at top level in LOOP macroUDunknown keyword in LOOP macro found where keyword expected in LOOP macro-,[0D `gZD" F-,VW XD"YPRZ[D 1\T]6B!`C+ `[-, A "^a12 #`` ,U,8`",8P ,8,8R`0@e [` $a -,L_z y[ a @0-,K<& $_-,@ K<& $(-, $a `!-,,8,8`D [Z[ YZ Y JY3-,0 @01 H`4Hd $ "`-,3-,37@``[`6 0@ +k[`[6 +k " (+mZ` B`` "4Brd`3-, -,+Z``,8,83,83+ ` B`7 +|3 `-,0` g "-, Bg`3[`-, gZ`[-, ` BgAs3+t/3-,2@ $-,,X-,`+Z/+!`3 Bg  an+  gC14BZZZ[a+?e g1P1C+`+?Ybz I Kq gB4BDZ[-,1[-, g-,11 $a1+? g "ca1+? `0 ga1+?,+5H$ X07BW`Q-, YD! X-, BY@@W@bX+) ",x]  hELOOP-GET-FORM`3-,1 $[,8a7 8+3Z`a[``eP  `` -,`m`3 `-,  [ B`3`Y/,x @SU*U*U:DATA-TYPEGETFIXNUMFLONUMPLUS+ADD11+DIFFERENCEU*U*U-SUB11-GREATERP>LESSP<+$-$U*U 1+$1-$>$<$SUBLISLOOP-TYPED-ARITH,8 1S `e4B< ``/`y `fz - 0*BAP1[ B`4BB07Dmnoz3a+C ]-,/,xghijklxw oINTEGERU*@CNUMBER LOOP-TYPED-INIT e4BH `T `fqz IY `B[ B`1Bf @KU "r,x(Duplicated iteration variable somewhere in LOOPDuplicated var in LOOP bind blockU*U 0LOOP-DECLARE-VARIABLEVECTORPHUNKSIZESQUID~S bad variable somewhere in LOOPCERROR,<  ,85BU;*-, $-,1D W-, BW`; 0B!an+k+` V[(Z (A2Hg+Y g "sa1` V g-,1@1 BV` W ga g`a1 ` gt-, `b`-,1 g-,7 W-,D0 BW`;4DqA gt-,@b g-,7 W-, BW`;7Bg H0 " Z0B$`,8,80d & Z0B$`[g Z g F`3` g-, B` `a $Zga`; g01`4B gu/. ``4B@ `u/.,<,< 0 p3Nw`/..-,@ 3+ g`'K+.. g(@-, &`' & $a p`aˀ@; Np``;``a ;,8,8,8,8,8 `03Ko g-,0t,xv0x X NLOOP-MAKE-ITERATION-VARIABLE,8 * b0`k-,a+pAU@ *APPENDcan't hack this,<,8OQ "@ +d4B+ an+:  Pa5Bd `e4B4 ,2,83 F!(3",o- Xa BX+dfz - 0* `@ 1Bs-, `-,7 X @-, BX+d " Z@A0B$+G7@ $ Z0B$` 1[``tZ`@t+d ``bt `@t+d`u/. `` `u/.@`,<,< p3Nw `.. g-,3` g 0+ZK`.. g-, $@0+Z $t pˀ@; Np+P   "+d `-,@`C3-,7 $t-, $ "xa1A:U/,x@%PTR-TYPEPSTRINGCOMPILER-STATEU` SQUIDLOOP-CONSTANTP anb+i " `6@`+k " +l `` ``0By "  `6 8( `[`0D+t " ``2DzA: " ,x(LOOP-MAYBE-BIND-FORM,8@ `4B{-,` ,U `AA:Q3a/,x0 NOTYPELOOP-OPTIONAL-TYPE[4B7 ` `e @b00 fqz F `B4B`3,x!@LASTMore ELSEs than WHENsLOOP-MAKE-CONDITIONALIZATION+:*`@`0[`[`*,8-,XC`d#A Y[A#`3 "`u! &# $b[AY`3`[B ZZ4D&A5FZ[-,1@`C[-, $b-, $ "}a1#+&`Z[`[`@#-,1XC``#`[` zZu``@a-,1-,1XC` "`ua@@,83+7 ``[ `[g-,1XC`Zg,8g[`B3 Fg/`]/ `0[``u-,,x]` XLOOP-PSEUDO-BODY`4BD7DZ` R$-, BR+D P-, BP@`] `-,/,x`wLOOP-EMIT-BODY# * JZ"~hEBad name for your loop constructToo many names for your loop construct`3`C4BL `n+L ` "a1D `-,Z4DQAP a1` ",xPdb -,,x`Bad varlist to nodeclare loop clause`3 A " Z1B$+[ ` "d a1  a B ,xUdb 3-,,xpdh`d ;U-,1 $"-,"~(aMAXMINunrecognized LOOP collecting keywordU*U*INTOincompatible LOOP collection types Unequal data types in multiple collectionsMEMBERRPLACDCDRLOOP-CDRIFY0SAAAA+fU+g`1B&+j1B$+j P( 0B%+k "$`1B'+m0B(+n "(`0` $ "a1d|,8#,8 [A4Bw`3 `3 Bg ]a B`4BZ[ B`q3`*-,113-, $ "a1+3+ Z[q+*-,1 $-,0@C3-, $a1Z`[ &Z[ *Z[Z [ ( B`A33 Jg`1 g} 6 8`11Z` ,U g~0a $aQC`+E3+!AAAA g|0B'`9`A0U+ 0S+ @1B(+  "q3`M ,Ub-,1 $"-, [-, @ B[1B$+* $w000B$`g ,U@fa Bg ,U 1 g}-,,X-,a[+=`y g}6 8`sA ,U $a Bg ,U &)E0 z Zua+= " g-,13 0-,3-,3-,3 1-, g~-, ]-, B]0 g|0B'+T3p g}-,0@`1,X-,-,13-,   $-, Bg  z yz g} g@ `s g-,1 g}-, Y-,0P C`s0B(+]3p g} 0-,13-,,X-,-,0H 13-, $-,`s0S  +_U+ ,83`-,0H13-, $-,-,1` B`-,1 g}-,@b fz - 0*B g{0S7;@ 3p `-,-,13-,2@ $-, ` "-,`0 g~-, $-,-,1,X -, Y-,+z :w-,2@0 $-,-,1,X -,3-, `-,0 2-,1-,1,X-, $@ -,-,13-, $-,0@3-,Z` aaA-,+ [/`s0B$+` g}-,1 $$-, Bg}`-0B%A`- g}6 8`'[g}1D$`-(Hz :w g}-, $%-, Bg} g @0-,13-, -,-,2@`1 $-,-,13-,@ -,1 g}-, $-,0 2-,1-,1,X-, $-,6 8`]as @ 0D$`]A]AZa -,1` g-,3-,3-,   $-,+9-,13-,2@2 $-,-,1 @ -,-,13-, $-,0d-,1,X-, Y-, ]` ,x8LENGTHU(0CDDRCDDDRCDDDDR,8 p0.A`5NA `-,+G "`0 p1N7M "-,,Xd-,` `-,  -, `0"..np B``{/+2.@  H wnot allowed inside LOOP conditional,8d`C`-,13-,7 $ "a1(@Lz Mų-,3-,7/j@00"~h ITNOTd,8!b0 Z[A4Bd\-,0H1,X-, $-,ZZ b! \-,[-, B+e  `7@g`-,1 $-,0  -,1-,1 $-,02-,1 $ah 2,xWGarbage where = expected-,~`3[ Dg0 $6 gA`3d@@`` $ Y gA  gCeD gC4B}3@@```3[ B`@13 Dg $6 gA4B`3d`7D+  gC5B e gC@115B Y gA5B ga1`B13 `3a Y[A#c5`3+o/h d"z ) Z 2(-,,X-,7` [" z6c(}-,1f B[,x8%\d-,1`,X-, $-, \-,2@`1 $"-,-,1,X-, w Y-,hX1SI:LOOP-SIMPLEP-15B$ "r  ++ "S $+ ,< pAB@00. `S-,+* "+0*U ,x 0"NULLEQ+INTERNAL-CARCDRPU*U*UCXRPLUSPMINUSPTYPEPZEROPBOOLEROTASHLDBU*U*PATOMPROG2VREFVECTOR-LENGTH*:ARNMACROEXPAND-1*MSI:CHECK-MULTIPLICITIES*:AR2 (,<`4B/ "r` `7 80P A+2`[`0D+@Z`@7@`+>[`7@`+<[` 0.pˀZ` D` Np`mZ`` B``i p-,`0 an`[`,80 $Se an ` Np+d gp @@g Np+d( 0 L"z ( `a5Bd ` 5.R ` @Q`  Np+dkl gihjmnQ5!Y6#zP?Cv4JX[(Z (B0H+T . Np+d (r H g`%(4  +] *r J',Xg4Bc @@g Np+d $S` Zg7@`+j[` 0 ˀ.npZ` D`+e pB@0-,/` $S`  ,x,LOOP|-2. $i]0#oLOOP|-1.[` $@,,XA:U-,,x# Iteration is not allowed to follow body codeIteration starting inside of conditional in LOOPNRECONC@`-,,8-,|-,~ZgyZZgy[a Bg[@3[-,@ $[0a $ g}a Bg}@[4D@3[-,@ $[0!a $ g|aAs Bg|3р`D7HZ`9#3`#3`#9@@0Z[-,1As[-,as -,[gy-,7DZ`5A!D00 "a1+A+a130`= g`4B!3-,@ $[a $ g{a Bg{ 0@[S3[-, ` $@[a $ gza Bgz Y1!"[A4B3`eZ[C0`` 0-,1,X-,,X -,,X-,`@`-,0@1,X-,,X-,,X-,0$ B`` P BPH( 0 `` ),-, C@c3 "a -,` `C P-, BP, ` "a2# -,`-,` HF+``3e[C`3@@ Bg~+^ g~  Bgy+x "0.T0,x uUnknown keyword in FOR/AS clause in LOOPLEXPR-FUNCALL`3|`3d,8k gC@ 25Bm g-,1 g~-, $3-, $-a1 ,8Zg[,8g}33Zg}ZK<`0,x8 ,Ud  $arz '$f-, $k-,0`-,1 $-,-,2@`1 $j-,-,13-, @0-,1 $-, $-,,XA2-,,xP \  , A:U@fa B\,x @ THEN,8b0 /[A '`3 `3 gA@(wd-,1 g-,7z -,@a $-,` ; ` $ gw`!-, g-,77DZ+ T* `zun2+ z NIL-, $-,0 P,xh found where THEN expected in FOR ... FIRST#C,8 /[A G[ "a100`3 $wd-,13`e-,7*`-,3-,7z NIL @2-, $-, $-, $ @0-,,X-, $-,0.U ,xx =BYFUNCTIONFUNCALL,8B13,8 1[A m`3d+ 7z;|:Pua,86 + <[`1B 2` 1B`  ,U-,1 3-,+ AZ`[-,1,8,8 g|7 8` 3` g}3 g|w` g} $@h g|w ,U &3a3a` -,13-,7` -,10 g|-,7 Bg `` g-,0(1XC`3` & g~a -,1 g-, Bg~ g-,1  $ -,6@g~+ fz :w-, d $-, $-, $-,d `-,3-, $-,  ` [g0D+ l-,1 $-,0@ g~-, `-,` 3  @0 "-,-,1 $ -,d-,1 $-, $-,d3-,3-, $-, `0 $-,,X-, ,x]*U ( 1UPTODOWNTOABOVELOOP-GATHER-PREPSSI:LOOP-SEQUENCER,8@,8 , ,8 " ,80 ,8,8,8,8 0,8*-, $ -,7 gz -,7 $3-,*gz-,S $ -,7 $:w;y5<1 zxr,a7,X-,0``]",</,x( SI:LOOP-NAMED-VARIABLE  C5B  ,U+  UaZ`/,xH EACHTHEU*U*UMalformed BEING EACH clause in LOOPOFITSHISHERTHEIR found where ITS or EACH expected in LOOP pathDEFAULT-LOOP-PATHUndefined LOOP iteration pathU unused USING variablesREVERSE,8,8 $ gPA5B  ; gA 9 * [ BgHb J`` =  g-, B-,~ ! g}C B`4B &6@g~+ % YZDb0![A5B &`3+ Cd Bg} Y[@ CA4B <7@g~` W3 "a1 g}-,@`d =-,-,1 * `35C Jg`3? Az $i B`B5B 4 ` "!a1 1[C B` o`3+ Cd-,2@01 $8-,3-, `+ C[C B` g}-,` $8-,-,1+ C`3I6@`` CC B` As[!@ ""a1Z`[ , W,8[g,8g{3 $ @Z[a7 $*g|,8g|@Z[Zg|Z`!ZK}g| B`+ Z2Ea1[`,83` ` B`7 ` @f `w+ eZ`Z[Z`[[`w@`#+ \/Z`[#a UZ`Z/,xX USINGUSING used in illegal contextUbad variable pair in path USING phrase Duplicated var substitition in USING phrase,8[,83D`00 `B `3d-,1,X  -,3-,` 7 G `L 2A4B `36@g` [-,1 G -, $ "$a1[,8B6 8+ @6  ` @Z as  @an` As[4D 4D  A `n+ 3Ia1@[4B @ `C B` '-,1 `-,0` $ "%a1As[`-,F -,`3[+ ~/0@b ` 7`+ [ B`` /0.@,x8 lLOOP-ADD-PATH-,3*` b Ca,X-, ",x]:\X DEFINE-LOOP-PATH&xDEFINE-LOOP-PATH MACRO&M%xM5B D `E0.` U U,8,8 E,8g",<aZ`[Z,87 + 0 0-,1` a,8 "`d3` {`-,1 $-,H-,1 $-,-,1`0,X-, K-,-,1XC` (As B`3` e/ z rS0MC-,2AHHGz Pz-, -,/0`K && $ `N,xh $U*U*USequence duplicated in LOOP pathIteration start redundantly specified in LOOP sequencingDOWNUP Endtest redundantly specified in LOOP sequencing pathIllegal prep in sequence path Conflicting stepping directions in LOOP sequencing pathMissing OF phrase in sequence pathARGSUbCDon't know where to start stepping 0 g|` "r`7@g|`  $ g|w-,}-,0@3+ `[as1Z[ Bg3=8z MIfB4B \3` `C`-,1 gw-,7 $ "'a1 1( * 3 gxa+ :;wz MRE g@ B4B l7@g|+ b3 gza $O1 a1 * Jg| $; gA *( b@` w gA Q3E1 gvw+  y gA QE1 Bg}4B ` 5 gA4B u "(E1 Bg}4B ` $ gA4B y "(4B ` $< gA4B Q4B @3` 3 gza $ ")a1 * 03{ Bg~+  1 gA 4B ` + ,U @ 3a Bg{+ 3 gza $Sa17@`` +3` +3B`` +3A gza $ "*a1@ J`+ N/7@gz+ 3+  g|U@a1 g}-,1 gx-,7,87@g~` C g~Q+ 33` I gx $rw6@g` ]7@g{` a ,U` gx $a g{-,3-,@b! $-,-, aT@037 i+zTv/ B`3-,` 3+ B6@g{+ 8 g|a $0@0CWa1 gx $rw gxp@-,,X-,-,1b3-,7 $-,-, 7@g{` 3` gx` * P3` 3 +zsW B`3`P1-,,z w=D-, $.-,Z`[d -, $&-,,xp 'U*U*UINTERNED-SYMBOLS path doesn't work inclusively Illegal prep phrase(s) in ~A path of ~A - ~ALOOP-FIND-PACKAGELOOP-INITIALIZE-MAPATOMS-STATEMULTIPLE-VALUELOOP-TEST-AND-STEP-MAPATOMS-LOCALLOOP-TEST-AND-STEP-MAPATOMSLOOP-GET-MAPATOMS-SYMBOLLOOP-INTERNED-SYMBOLS-PATHC[`3+ g}_a17@g~+(T1Zg~ E8=z MIf[g~[B5B( ,(,8@a,8,8,8,8[,8gz,8gz3Ko $ g}a ,Ua3+/`Z[-,1` _"H " a-, & $ `a ,00U@fa ,U@fa` `-,13-, g-,H g~-,1 $-,-,1`03-, $1-,-,1,X 1-, c-,-,` `-,13-, g-,  $-,6@g~ e g 0-,13-, g~-,,X@ -,-,1,X-, c-,0@*`-,13-, g-,2@` $3-,-,13-,7(dz NIL-,,X-, $-,K $-,/,x00x2#@ 5P0OBARRAY-0  @ @+` ",8 * 3 ` -,+e 4,x#\A+arxPACKAGEPKG-FIND-PACKAGELOOP-FIND-PACKAGE-TRANSLATEZ i` d[-,1 $5-, * ' .U H,xXfSOURCE-TRANSak6x*:AR3P B "-,1 m J7' oV;U H+  &2( *:AR4 ,<,8,8@4By[0@Z` >p " B``  g 4.~`` @+ub-, B8-, B7 g-,$  ' q J/,x  s.]*U[,x0 *EXPRY>}931e2xYCONSDELQINTERNED-SYMBOLSU+UjuINTERNED-SYMBOLLOCAL-INTERNED-SYMBOLSLOCAL-INTERNED-SYMBOLs::suCs9;wg8<yg8 xLIST*s:=s.=8:;y5<1 uCs9xSSTATUS> {> xSET-FEATUREW<LOCAL> }x;