; P@QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading LOOP 719   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPLOOP719U*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-ALISTINITIALLYLOOP-DO-INITIALLYFINALLYLOOP-DO-FINALLYU*U*UNODECLARELOOP-NODECLAREDOLOOP-DO-DODOINGRETURNLOOP-DO-RETURNCOLLECTLOOP-DO-COLLECTU*U*ULISTCOLLECTINGAPPENDAPPENDINGNCONCNCONCINGCOUNTCOUNTINGSUMU*U*USUMMINGMAXIMIZEMAXMINIMIZEMINALWAYSLOOP-DO-ALWAYSNEVERANDU*U*UTHEREISLOOP-DO-THEREISWHILELOOP-DO-WHILEUNTILWHENLOOP-DO-WHENIFUNLESSU:U*UWITHLOOP-DO-WITH9;=? A !C"E#GE#$E$IE$%E%KE%&E&ME&'E'OE'(EQ)ES*U+UW,Y-[-.[W.]/_/0/ a1xLOOP-ITERATION-KEYWORD-ALISTFORLOOP-DO-FORASREPEATLOOP-DO-REPEATu*U*Uc2e3eg4xLOOP-FOR-KEYWORD-ALIST=LOOP-FOR-EQUALSFIRSTLOOP-FOR-FIRSTINLOOP-LIST-STEPPERCARU*U*UONFROMLOOP-FOR-ARITHMETICDOWNFROMUPFROMBELOWTOBEINGLOOP-FOR-BEINGu*Ujui5k6m7o8qo9s9:s:usu;s;wsw<yxFEATURECOMPLRSPECIALLOOP-PATH-KEYWORD-ALISTW={>}xBOUNDP?}}xLOOP-DUPLICATE-CODEw*U*UW={>x?xMACROLISTCONSSI:LOOP-TEQUALEQCDRDELQASSQ *EXPRSI:LOOP-TMEMBERSI:LOOP-TASSOC={@ABCA@@Dx0B " ,x Qlw*uMEMQ$E@"$CH EFLUSH-MACROMEMOSDEFINE-LOOP-MACROFxDEFINE-LOOP-MACRO MACROu*U*UF%xLENGTHWrong number args for macronot a loop keyword - define-loop-macroEVAL-WHENCOMPILELOADEVALforget-macromemos|U(KEYWORDLOOP-TRANSLATESUBSTG1N+( ,(,80A,80,8g",<Z`[1B `[D5 a[ ` "Ha1IJK K%z0U~ $KnU&Lh#  x %xLOOP-FINISHLOOP-FINISH MACROu*@M%xWrong number of argsGOEND-LOOPZgAAA:Ua1Nz;Xk 3,x PaMACROFETCHLOOP-TRANSLATE-1MACROMEMO1@Os `` & $ `Pu*,x 85NREVERSEXCONSLOOP-END-TESTIFY-,0 ``Z B`[`!T @0 $QNz Mų-, W-,0.U*U,x uLOOP-BEFORE-LOOPLOOP-AFTER-BODYEQUAL*DELQLOOP-BODY*NCONCU*@`1SI:LOOP-SIMPLEPLOOP-OUTPUT-GROUPLOOP-NEVER-STEPPED-VARIABLELOOP-OPTIMIZE-DUPLICATED-CODE-ETC,8,8 R01`` `S4BOC03 "a T` $a@` BT`3`-, g[`-,Z`A Bg D``/!3+] g} "a`f! BR3 "a`+@@R@ g}` Bg}`,8g}7@`b`as[`S ` Jg+h[`@UZ`As B`3+b/@$7@`+x[g} R-, BR` D4Bq-,Zg}As Bg}32#Z`1D+u+l R` BR`0 g}` g}`7@`+1[`as Dg~5BS @ g}a T-, BT3@ 0@@g}`3` g}-, Bg}@`7@g~`3 g~-,Z`As  B`3+{/ g~a7BV AH`)z :w-, $-,-,1H U ",x hGENSYMLOOP-MAKE-VARIABLE$,85D4B/ V5B ,W &)H  z Zua BV6@g+"3-,0d3-,1 `-, $-,+-3`O g-,3-,1a `-, W-,+- g-,0 `033 zZu-,3-,1,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-ITERATIONELSE secondary clause misplaced at top level in LOOP macrounknown keyword in LOOP macro found where keyword expected in LOOP macro-, 1[0D `gZ F-,XD"YZ[RD"T\]^VB!_6B`#+C[-, 32 Aa1`` _ J` ,_@,8,8_,83+I `+P`d-,1As[-, -, `-,AsZ B`3+G/0`!`,8R ,8,8T#0` ]` $aP` -,Naz y[ a -,K<% 0 $a-,",<% `-, `1 -,,8,8D"+[Z[ [Z [ J[3-,1 H` $ "b-,3-,37@`+u[`aa6 `[`[6 `@a " `Z` B`+m "@ @0`3-, -, 0`,8,83,83a`` B`7 ` 3 ``-, g "-, Bg+ @3[`-, gZ`[-,0 BgAs3`/3 0-, $-,,X-,0 `/`S`3 Bg`4B an`O  ga@ 5ZZZ[c`}c0 ga4B``}Wdz I Kq gD 0KZ[-,1[-, g`CC-, $a1`} g "ea1b`} ga1`},,B 1+ x07BY+1-,D" [ Z-, B[@@Y@bZ`c "h``,x +LOOP-GET-FORM`3-,1 $[ ,87 8`wZ`5B9[`a+; `` -,+?`3 `0-,[ B`3+5/,x]*U*U `2:DATA-TYPEGETFIXNUMFLONUMPLUS+ADD11+U*U*UDIFFERENCE-SUB11-GREATERP>LESSP<+$U*T -$1+$1-$SUBLISLOOP-TYPED-ARITH,8 `@bg ``/+E `hz - 0*D[P* B`0opmnz3a`@[U-,/,xijklmnxw@INTEGERNUMBER1 LOOP-TYPED-INIT g `P0A+Uhrz IY `D[ B`4BU1Bh7V  :U "s,x8MDuplicated iteration variable somewhere in LOOPDuplicated var in LOOP bind blockBad variable somewhere in LOOPPLOOP-DECLARE-VARIABLE,85B]4D*-, @b $-, Y-, BY+B!7 `+g X[(Z (A2Hg+` g "ta1` X g-,1@1 BX` Y gC g`a1 g4No 8`n+o g0a "ua1 ` ga-,5BsA@ ``-,1 g-,7 Y-,1  BY+A ga-,b! g-,7 Y-, BY+@,8,87 ` g-, B``[gZg B` `a $Zga g0t+ xLOOP-MAKE-ITERATION-VARIABLE,8 * b0`k-,a+`*APPENDcan't hack this,84B5D "+3% 1 an`C E5B3 " `g7 3,833",#!P1o- Za BZ+3hz - 0* `D4B!b-, `-,7 Z-,@A BZ+3 " Z0B#`] A7@ $ Z0B#++[``baZ`@a+3 ``a `D`@a+3*-,3-,7 00 -, $ "wa1/,x]*@0XCOMPILER-STATESQUIDLOOP-CONSTANTP anb  1`o " ` z Ow `E ` 6 8`[`0D+> " ` `]`2Dx " ,x4LOOP-MAYBE-BIND-FORM ,8`4BE-,` ,``]W `3a/,x NOTYPEQ  LOOP-OPTIONAL-TYPE[4BP7 ` E 1 `ghrz F `D4BP`3 !,x LASTMore ELSEs than WHENsLOOP-MAKE-CONDITIONALIZATION`@`0*`[`[`*,8-,0DAXC`[W+[`3 " d0+0Dd+u`3`[ZH$1ZAZ[-,1[d1-, $d-, $ "{a1`@@0`Z[`[`2-,1XC```0(`[` zZu-,0 1-,1XC` "+a@3` ``[`@[g-,1XC`Zg,8g[`3 b Fg/+w/[`a +-,,x8QP !LOOP-PSEUDO-BODY`7D\+ T-,1@b BT` R-, BR ` R-,/,x@LOOP-EMIT-BODY * ld J\"|Hf-,,x] PBad varlist to nodeclare loop clause`34B " ZA21B#`/ ` "}a1 a,d B,xp#f-,,xYNf `fh9f-,1 $!-,1nU*U"|;LOOP-SPECVAR-HACKOBARRAYIMPLODESPEU*U*UCVARSOBARRAYDEFUNLOOP-COLLECT-INIT-COMPILERFORMTOPLEVELU*U*UMAKLAPCADDRMUNKAMVALUE-CELL-LOCATIONCADRSPECIALSSYMEVALCDARGOFOO ={~E # ## #g>C# ##  B@xZ[ -, -,,x  U*U*PMAXMINunrecognized LOOP collecting keywordINTOincompatible LOOP collection types Unequal data types in multiple collectionsMEMBERRPLACDLOOP-CDRIFY P( 0Q+%S+&`]1B%+)1B#AAAA+)0B$+* "#`]1B&+,0B'+-C "'`] $ " a1fz``$,8,8[`k`3 `3 BgC B`Z[ B`q3+?*-,113-, $ " a1`3` Z[q`*-,1 $-,0@C3-, $a1Z`[ &Z[ *Z[Z [ ( B`A33 Jg+W g} 6 8+W5JWZ` ,W g~0a $aQC`+3`AAAA g|0B&+[+_0S`0Q`@1B'` "r3+e ,Wb-,1 $!-, ]-, @ B]1B#` $v @d0B#` ,W _ g}-,@,X-, B_[+y` g}0C6 8` ,W $a 1 Bg ,W & z Zua+y "` g-,13-,3-,`3-,3-, g~-,@A-, g|0B&+3 0q g}-,1,X-,-,d13-, $-, Bg  z yzD0 g}  g+j g-,1 g} -, W-,+j0B'+3!@`q g}-,13-, 2,X-,-,13-, $A-,+j0Q+S+G,8@ 23`C-,13-, $@-,-,1 B`-,`P11 g}-,hz - 0*Dg0 g{0Q3q `-, @0-,13-, $-, `@  "-, g~-, $-,0d-,1,X-, W-, @ @0+Az :w-, $-,`-,1,X-,3-,  `-,-,1-,1`0,X-, $-,-,13 0-, $-,3-,MaZ` -,+F[/0P  +j0B#+K g}-,1 $#-,0 Bg}`0B$` g}6 8*2`[g}1D#`z :w g}-, $$`-, Bg} g}-,13-,a -,6 8+_as0D#+_A4F_A@-,0H1 g-, $-,`-,2@21 $B-,-,1 $BH-,-,1 -,-,1`03-, $-,-,1,X -, W-,` 0u*,x(ECDDRCDDDRCDDDDRG,8a p0.`5Nq `-,+w  "B` p1N7} " -,,X-,` `-,  -,"..np B``I:+ Plnot allowed inside LOOP conditional,8 `f`-,13-,7  $ "a1Nz Mų-,3-,;7/"|X ITNOTf@A,8Z[`'^d-,1,X-, $-,@bZZ ^-,[-,@2 B+7@g`/-,1 $`2-,-,1-,1 $@#-,-,1 $a0.@c,xpGarbage where = expected-,~`3[f Dg0D5`G`3f@@`+81W 1 1`Q  gaQc ga4B*2A3@@`+8`3[ B` Dg0D5+/0`3f+87F`o  ga boc gao g0W`o $!D!a1+83 `3a[ L cXW`y`3+/ `;A@f!z ) Z-,,X-,7` ] ! z6c(}-, B],x({^f @0-,1,X-, $-,`0 ^-,1 $!-,-,1,X ;P-, W-,hHSI:LOOP-SIMPLEP-1AA5BO "s+V "U $V a ,< p0. `-,+U "0 U+ ,x PMNULLU*U*U+INTERNAL-CARCDRPCXRPLUSPMINUSPTYPEPZEROPBOOLEROTASHU(c LDBATOMPROG2,<`4BZ "s `! `7 8+]#`![` @0D+kZ`7@`+i[`7@` +g[` .pˀZ` D` Np0`Z` B`` pa-,`! an`0[`,8 $Ug  an ` Np+ gp* @@g Np+N!z ( `E5B ``% 5.} `0B`  Np+mn')ikjlop+-S/5W5zPXX_r4J[(Z (0H+. Np+@ @bg Np5B $U` 0Zg7@`+[` ˀ.np 0Z` D`+ p-,/0P `! $U` i;P,xWLOOP|-2 $i#LOOP|-1[` 0 1@,,X-,0.U ,x#' Iteration is not allowed to follow body codeIteration starting inside of conditional in LOOPNRECONC-,`,8-,|-,~ZgyZZgy@[c Bg[C3[-,0@ $[a $ g}a Bg}@[4D*3[-,0@ $[a $ g|aAs Bg|3р`c7H\`i@"3`i3`i@Z[-,0 01As[-,as-,[gy`!1-,7D\`{A3a1+? A "a13` g@ `4BD3-,@ $@[a $ g{a Bg{@[ 3[-, $@[`$ a $ gza Bgz[W` +{cZ[a5B{`@`-,0@1,X-,,X-,,X-,0`````-,1,X-,`!,X-,,X-, B`+n"! Ra5 BR `a5+z!@b $,-,3 "F 1a -,` R-, BR`C@c, ` "a -,`F-,```3c[`a4B`3 Bg~` g~ `] Bgy+ ",x 8Unknown keyword in FOR/AS clause in LOOPQ@`0LEXPR-FUNCALL`3z`3f,80i ga g-,0H1 g~-, $2-, $ "@a1 ,,8Zg[,8g}33 Zg}ZKo7,x(045 ,Wf $asz '$f`2-, $m-,-,1 $d-,-,1 $l-,  -,13-,-,1 $-,2@ $-,,X-,H 0,x@ ^5B+ ,W@fa B^A,x `OTHEN,8[ 0H+5f`33 gvf-,1 g-,2AH 7z -, $-,+> $@v-, g-,77D\ M"P2`w`zun2`{z NIL-, $@`]-,,xXW found where THEN expected in FOR ... FIRST$C,8[ 1H`*9a100`3 $vf-,13`e-,7*`-,3-,7z NIL @2-, $-, $-, $ @0-,,X-, $-,0.U ,xh ?BYFUNCTIONFUNCALL,8&1(,8[ 0J+V`3f`;Bz;|:Pu,8A6 `[`1B+_ @` 0;+_ ,W-,1 $-,0@`0`Z`[-,1,8,8a g|7 8+h3+h` g}3 g|v+r g} $ g|@0v ,W &3a3+p 0-,13-,7+p-,1 g|-,7 Bg `` g-,1XC`3+x & g~a-,0@21 g-, Bg~ g-,1 $P2-,6@g~` z :w-, $ @0-, $-, $-, ``@a-,3-, $-,+ d[g0DB` -,1 $-,a g~-, `-,+ 3 "H-,-,1 $-, @0-,1 $-, $-,3 @2-,3-, $-, $` -,,X-, ,xx(QU*TUPTODOWNTOABOVELOOP-GATHER-PREPSSI:LOOP-SEQUENCER,8,8@ W,8 "5B ,8@`0,8,8,8,8,80@*-, $ -,7 gz-,2@07 $2-,*gz-, $  0-,7 $9u:w=?; zxr, ,X-, P",oA/,x( SI:LOOP-NAMED-VARIABLE01#a a ,W` eaA:UZ`/,x YEACHTHEMalformed BEING EACH clause in LOOPU*U*UOFITSHISHERTHEIR found where ITS or EACH expected in LOOP pathDEFAULT-LOOP-PATHUndefined LOOP iteration pathunused USING variablesPd REVERSE,8,81C` o0D" + : * [  Hg J`+ <  g-, b B-,~} g}a B`4B C6@g~+ BZ[1W+ C`3` f$C Bg}[W` 7@g~+ H3Ea1`2 g}-, $#-,-,1 * @j`3 Jg`3G$I%Cz $i B`D `2#1Ka1}[a B`4B T`3` `f-,1 $7-,3-,0D0` }[a B`5B _ g} 0-, $7-,-,10C` `36@`+ e} "&a B`5B e`As[Ma1Z`[ ,8[g,8g{3 $ @Z[ $*g|a5,8g|@Z[0Zg|ZZK}g| B`Pd` "'a1[`,8@3+ ` B`7 + ~@fD `v` Z`Z[Z`[[``v@` /Z`[`O2 aZ`Z/,xH gU*@USINGUSING used in illegal contextbad variable pair in path USING phrase Duplicated var substitition in USING phrase,8[,8b03 `D4B `3f-,`1,X-,3-,` o` `0B(+ 6`36@g` 1[-,1 2 $(-, $Qa1[,80 6 8+ 5@6 0@` M@Z Mas E 0an` MAs[4D (4D ( 0`n+ (3 ")a1@[4B 3 0`a B` _-,1 `-, $Sa1As[`-, b2-,`3[+ a/` o`+ 9[ B`+ t1/,x LOOP-ADD-PATH-,3}H`*`a}a,X-,} "1,x  :DEFINE-LOOP-PATHUxDEFINE-LOOP-PATH MACROU+%xO @" `G0.` ,8 ,8g",<Z`[Z,87 B+ L-,1` ,8@ 06@g` `+ a3[g-,-,2@21 $-,`-,1 $e@e-,}z Nc-, $C-,}z Nc -, -,-,1,X-,2@d -,-,1 }-, ` $-, `-,Zg B` Dg(02` JIW?}} z0YN L/ U ] $ `P,x0 @Sequence duplicated in LOOP pathU*U*UIteration 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 pathARGSDon't know where to start stepping0 0 g|`5B i "s`7@g|+ m`` $ g|v-,}-,3+ 4`[asZ&[ Bg3#7z MIfD 3+ z` -,1 gw-,7 $Wa1 * 3 gxa+ +9:uz MRE gD0C4B 7@g|` 3 gza $ ",a1 @ * Jg| g0B:`  Y3` u `  (-33 gvv+ + gAw+  "- Bg} A+ 0B` ' "A Y Bg} A+ ?` -Y A+ 0B;` A "- A3+  43 gza $[a1 * 30Ay Bg~+ + g0B+ (`@ I+ ' ,W 3a Bg{0C+ +3 gza $ ".a17@`` c@3` c3B`` c3 gza $!@]a1@ J`` /@ C7@gz+ 83+ 8 g| "/a1 g}-,``1 gx-,7,87@g~` {A g~0B-+ O3` gx $sv@ 0 6@g` 7@g{` ,W gx $@ a g{-,3-, $-, b-, 37 _zTv/ B`3-,` 3+ ^@6@g{+ T g|a $ "0a1 gx 0 $sv gxq-,0@`,X-,-,13-,7 b $-,-,7@g{` 43` gx` * 3` T@03 _zsW B`3-,A#az w=D-,2@2 e-,Z`[-, UA:U-,,x8 _INTERNED-SYMBOLS path doesn't work inclusively Illegal prep phrase(s) in INTERNED-SYMBOLS LOOP pathU(ARRAYCALLLPLOOP-INTERNED-SYMBOLS-PATH7@g+ 93 "4a13 ` @ {7#z MIf`[D 3` g}-,3 $<-,3-,7C $ia1 g~ $a ,W"7@g~+ I[g~Z[` $~ &Da ,W $5a ,W d@fa `-,1 $-,H g-,1 $l-,-,1`2 g-, $-,-,1 $ 0-,! z sJZ-,*g-,13 @0-, $ -, k-,-,0H(13-, $-,!z ) Z-,2A@ N6z N*@-, g-, $-,0d-,1 $6-, $-,  2 -,-,1,X-, Wd-,-,1 $8-, -,13-,7 g-,1  0 $B-,-,1 g-,-,2@1 $-,,X-,,X-,2H $-, $-,/jUju,x#@ mYINTERNED-SYMBOLSINTERNED-SYMBOL7}7B7}}8o8m7xLIST*7}q7e#79:w;? B7}}8xSSTATUSw@= 9= x;