; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading LOOP 765   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071LOOP765VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xMAPCGETLU*U*USUBRLSUBRFSUBRMACROFEXPREXPRAUTOLOADPUTPROPLISPU*U.UDTDCLFASLDATA-TYPE?VARIABLE-DECLARATIONSINITIAL-VALUEPRIMITIVE-TYPE!#%')+-/xERRORLOOP-DIE,8 ,,8,8",o1/0.T",xLOOP-SOURCE-CODELOOP-POP-SOURCE`3A@33,x]*@ LOOP-MAKE-PSETQPROG1LOOP-MAKE-SETQ4B[As@Z5D @[+@[*d`5-,1,X-, $-, 00-,1,X-,`7,x`(DESETQ4B -,6@`+ @"0 "`=[`79 `n `9 "`=Z`Z B`+ U `-,3,x8ANDFEATUREU+U*UCOMPLRSPECIALLOOP-KEYWORD-ALIST9;=xINITIALLYLOOP-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=? A!C"E#EG$I%K&%KM%M'%MO%O(%OQ%Q)%QS%S*%SU%+W%,Y-[-9.]/_/0_90a1c121 e3xLOOP-ITERATION-KEYWORD-ALIST9;gxFORLOOP-DO-FORASREPEATLOOP-DO-REPEATg4i5ik6xW*U*ULOOP-FOR-KEYWORD-ALIST9;mx=LOOP-FOR-EQUALSFIRSTLOOP-FOR-FIRSTINLOOP-LIST-STEPPERCARU*U*UONFROMLOOP-FOR-ARITHMETICDOWNFROMUPFROMBELOWTOBEINGLOOP-FOR-BEINGu:].um7o8q9s:us;w;<w<ywy=w={w{>}xLOOP-PATH-KEYWORD-ALIST9;?xBOUNDP??xLOOP-DUPLICATE-CODE9;@x@@xMACROLISTU*U*UCONSSI:LOOP-TEQUALEQCDRDELQASSQ*EXPRSI:LOOP-TMEMBERSI:LOOP-TASSOC@;;AABCDEx0B " ,x!MEMQiH#j].UiP GFLUSH-MACROMEMOSDEFINE-LOOP-MACROFxDEFINE-LOOP-MACRO MACROG%xLENGTHWrong number args for macroU*U*Pnot a loop keyword - define-loop-macroEVAL-WHENCOMPILELOADEVALKEYWORDLOOP-TRANSLATESUBST1N+) ,),8,83,8g",o1# Z`[0`a=EagD5 `Ea `IJFKFK%z0 mr $KnU&LHp$FFx%xLOOP-FINISHLOOP-FINISH MACROu*@M%xWrong number of argsGOEND-LOOPZmAAA:UNz;Xk 3,x PgMACROFETCHLOOP-TRANSLATE-1MACROMEMO1@Oy ``  $ `Pu*,x 88NREVERSEXCONSLOOP-END-TESTIFY-,0 ``Z B`[`!T @0 $QNz Mų-, 9-,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 R01`` `S4BRC03 "a T` $a@` BT`3`-, g[`-,Z`A Bg D``/!37B@+` g} "a`f! BR3 "a`+@@R@ g}` Bg}`,8g}7@`b`as[`S ` Jg+k[`@UZ`As B`3+e/@$7@`+{[g} R-, BR` D4Bt-,Zg}As Bg}32#Z`1D+x+o 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$,85D4B2 V5B ,W &)H  z Zua BV6@g+%3-,0d3-,1 `-, $-,+03`U g-,3-,1a `-, 9-,+0 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-, 13[`mZ3-,XD"YCZ[RD"T\]^VB!_Ѐ3++F[-, 32 A`` _ J` ,b@,8,8_,83+L `+S`d-,1As[-, -, `-,AsZ B`3+J/0`!`,8R ,8,8T#0` ]` $aP` -,Naz y[ a -,KoO 0 $a-,",oO `-, `1 -,,8,8D"`)[Z[ [Z [ J[3-,1 H` $ "b-,3-,37@``[`6 +x[`[4Bw4Bx 0 `n+x " +zZ` B`+p "24B`3-,  `0-,`,8,83 ,83+` B`7  + 3 `-, g "-,0 Bg`3[`-, g@Z`[-, BgAs3+/0 @03-, $-,,X@0-,`/0+. Bg3 an+, = gE4BZZZ[1c`g gEE``( $19dz I Kq ga4B*@3[-,1a@3`1-, g-, $` C g "e` g`02 ,+ x37BY`kD-, [ Z-, B[@@YP#@bZ+6 ",x _LOOP-GET-FORM-,1 a $`3,87 8+@@ 4Z`{[`` `` -,0 ` `-,a@3 B`3`su*U/,x `m:DATA-TYPEGETFIXNUMFLONUMPLUSU*U*U+ADD11+DIFFERENCE-SUB11-GREATERP>U*U*PLESSP<+$-$1+$1-$SUBLISLOOP-TYPED-ARITHb,8 `g4BI `` `)@A(hz - 0*a[ B`4BO07QopzuK$G 3a+P-,/,xijklmnxwC INTEGERNUMBER LOOP-TYPED-INIT g *4BU ``/`hrz IY `a[ B`A@`K1Bh "s,x8Duplicated iteration variable somewhere in LOOPDuplicated var in LOOP bind blockBad variable somewhere in LOOPLOOP-DECLARE-VARIABLE,8b*-, $-, Y-,@  BY`7 +{` X14Ji[(Z (2Hg` g "t+ob X g-, BX+o Y ga`4Bo g g 8A`n` g "u ` ga-, ``-,1 g-,1D7 Y-, BY`4DA g@a-, g-,7 Y-,1  BY`,8,87 0@ + g-, B`+[g0 Zg B``a $Zg@kPa g+ x [LOOP-MAKE-ITERATION-VARIABLE #,8 * -,ak+` *APPENDcan't hack this,8') D` "`o4B an+&CE1ao `g4B ,,82233",< Za BZ`ohz - 0*D` `aK-, `-,7B Z-, BZ`o " Z22K+37@ $ ZK``_[``aZ`@a`o `@`a `@a`o*-,@`C3-,7 -, $ "wu*/,xX #COMPILER-STATESQUIDLOOP-CONSTANTP` anb+< " +E z Ow `aA5BE `6 8+E[`0D` H$ " +E+E2Dx " h1,xqLOOP-MAYBE-BIND-FORM,8`-,0@`+L ,W `3a/jD,xFNOTYPELOOP-OPTIONAL-TYPE`37 +T `g5BThrz F `a AA:U,x MLASTMore ELSEs than WHENsLOOP-MAKE-CONDITIONALIZATION!`*`[`[`@!*,8-,XC` 9`3AB1a4B` "+ $d`3a4B{ `[ZZA 2@3[-,1a@3-, $d-, $ "{``Z [`[`-,1 @`1XC`` `[` zZu-,1-,1B"XC` "+ a@@,8@`03` ``[`[g-,01XC`Zg,8g[`3 Fg/"a+}/[`+ ``-,,x8LOOP-PSEUDO-BODY`!%7D\+ T-, BT`%D1 R-, BR `-,`B;/,x@ LOOP-EMIT-BODY * J\"|H' b f-,,xxBad varlist to nodeclare loop clause@A4B " Z0K`;C 2 ` "}CaC,x/ b 3f-,,x fh0d;(Ef-,1 G-,"|@GU*U*ULOOP-SPECVAR-HACKOBARRAYIMPLODESPECVAU*U*URSOBARRAYDEFUNLOOP-COLLECT-INIT-COMPILERFORMTOPLEVELMAKLAPCADDRMUNKAMU*U.VALUE-CELL-LOCATIONCADRSPECIALSSYMEVALCDARGOFOO;~ K KK KgK KK A xZ[ A:U-, -,,x &MAXMINunrecognized LOOP collecting keywordINTOU*T incompatible LOOP collection types Unequal data types in multiple collectionsMEMBERRPLACDLOOP-CDRIFY1B+++0B,AAAA+,`i0O+/0K+/M+0 P(K`i0Q+2S+3S`i $!@`00 " fz,8,80F `3a4B< Bg@0a B`4B^Z [ B`q3`*-,13-,0b $ " +M3+MZ[@ 0q+M*-,1 $-,3-, $Z`[ &Z[ *Z[Z [ ( B`33 Jg` g}6 80C`Z` ,W g~ $aBQC``3+f g|QAAAA``1B,+e1B++e0S+e "r3` ,W-,2D1 G-, ]-, B]@0A0K+o $vK+vH ,W _ g}-,,X-,1( B_[`+g}6 80@`C+| ,W $a Bg ,b@W & z Zua` " g-,0@13-,3-,3-,0@3-, g~-,-,1 g|Q`-3q`0 g}-,1,X-,-,13d-, $-, Bg  z yz g} `4B g` g-,1 g}-,C 9-,`S`?3q@ g}-,13-,,X-,0d-,13-, $-,AA`1B+`C0B,`,83+(d-,13-, $-,0-,1 B`-,1 g} 1-,hz - 0*a4B: g{1B+ `7r3q `-,-,1`3-, $-, ` " @0-, g~-, $-,-,d1,X-, 9-,`z :w`-, $-,-,0@1,X-,3-, ` -,-,1-,1,X-,2@` $-,-,13-,` $-,3-,Z4DL@aa` -,`[/` @ @0K` g}-,1 K-, Bg} +YM+Y g}6 8+V[g} Td1K+Yz :w g}-, M-,@ Bg} g}-,13-, -,0a6 8`asK00`AA@-,1 g 2-, $-,+p-,1 d-,-,1 -, -,1 -,-,13-,2@` $-,-,1,X-,  00 9-,` ,x%jT0PQCDDRCDDDRCDDDDR,8 pDa 0.+~ `-,`=Ny(+{ p1N "-,  ,X-,+ `-, -,0"..np B`+tt+ P not allowed inside LOOP conditional,8fA@+ -,13-,7 $ "@ 0Nz Mų-,3-,7/1nT"|xITNOTf,8 @3[a5^ @1-,1,X-, $-,A@3 1Z ^-,a@3-,32`7 `7@g+-,1 $`2-,-,1-,1 $@#-,-,1 $a0.@c,xGarbage where = expected-,~a@3b3 Dg $7 ga4B,f@@`@1 1+C 9 ga5B2= gE5B2 g gEg3@@`+Ca@3 B` Dg $7 gasf @1+C3`= gEg gCE 9 ga g!4#+C3 `3a 9`3a1;4BH`K/ `0%fc%Gz ) Z-,,X-,7` ]G z6c(}0-, B],xPI^f-,0H1,X-, $-, ^ -,1 G-,-,1,X-,@c 9-,hhOSI:LOOP-SIMPLEP-1 P ` "s` "U ,<  p0. +`-,` "A>U+ ,x P9;UxPLUSPMINUSPU*U*WTYPEPZEROPBOOLEROTASHLDBATOMPROG2UUMmn#%ikjlop')S+97xcNULL+INTERNAL-CARCDRPCXRMACROEXPAND-1,<`   "s`= `7 8`- `=[`0D`Z`7@``[`7@``[` .pˀZ`  D` Np+mZ` B`+k0B p-,`=4Dy @ an`;[`,8 $Ug`4B an + Np+ gp @@g Np+BNGz ( `a 5B ``/  `0B+ H  Np+ U[(Z (0H` .@` Np+ g`13Bg`' @@g Np+ $U "` Zg@`7@`+[` ˀ.npZ` D``a+ p-,/`= $U` ,xRw LOOP|-2 $i# LOOP|-1[` $`0@,,X-,,x]*@#C Iteration is not allowed to follow body codeIteration starting inside of conditional in LOOPNRECONC-,3-,|`-,~ZgyZZgy[c 0 Bg[_3[-,@ $[a $ g}a Bg} 0@[4D83[-,@ $[a $ g|aAs Bg|3р`7H\`3`D03`@Z[-,1As`[-,as-,[gy-,17D\`A "+MA53` g`4BR@3-,@ $[a  $ g{a Bg{@[3[-, $@[a $0B1! gza Bgz 9`3a4Bd`bg@3[E```5``7-,1`,X-,,X-,,X-,0``5` 0`7-,1,X-,,X  -,,X-, B`` RH@2  BR `` 3 C,-,3 "a d -,` R-, BR,0h ` "a -,`b12#-,`+g`3EL Bg~+ g~3 BgyP U+) ",x 8& Unknown keyword in FOR or AS clause in LOOPLEXPR-FUNCALL zf,8`m gE5B g-,1@`C g~-, $4-, $7 I,8Zg[,8g}33Zg}``XZK<,xH% ,(Wf $asz '$f  -, $m-,-,1 $-,0 @0-,1 $l-,-,0@d13-,-,1 $-, `0 $-,,X-,,xY`K ^s ,W@fa B^,xB1 `6THEN,8 9`3a00 `3 gvf-,1 ge@a-,7z -, $-,`` ` $ gv-, g-,577D\+L`7`zun2+Nz NIL -, $-,#,xx : found where THEN expected in FOR ... FIRST,8 9`3a$3a@3 " $v`f-,13-,7*`-, d3-,7z NIL-, $-, ` $-, $-,,X-,  U $-,,xBYFUNCALL#,8,8 ;`3aT f+hz;|:Pu,86 (+m[`1B`0` ,W -,1 $-,+rZ`[-,0 1,8,8 g|7 80@ `3` g}3 g|v `  g} $ g|v ,W &3 `a3` -,13-,7`` -,1 g|-,7 Bg ``@  g-,1XC`3`  & g~@ 0a-,1 g-, Bg~@` g-,1 $-,6@g~+ (dz :w-, $-, $-, ` $-, `-,3-,  A $-,` Q[g+ -,2@1 $-, g~-, `-,0A`2` Q3 "-,-,1 $d-,-,1 $-, ` $-,3-,3-, ` $-, $-,,X-,u*U ,x(bUPTODOWNTOABOVELOOP-GATHER-PREPSSI:LOOP-SEQUENCER,8,8 {,8 "-,0P`05B /,8,8,80 ,8,8,8*-,0@  $ -,7 gz-,7 $4-,0 2*gz-, $ -,7 $S`;y<{=?=; zxr, ,X-,",oAt/,x8 SSI:LOOP-NAMED-VARIABLEE $2 ,W` aZ`/0/U*U,x }9;D!xEACHTHEMalformed BEING EACH clause in LOOPOFITSU*U*PHISHERTHEIR found where ITS or EACH expected in LOOP pathDEFAULT-LOOP-PATHUndefined LOOP iteration pathunused USING variablesREVERSEH ,8,8 C ga $"E ga4B N * `3 Bg J`+ P3 b g-,3-,~ ? g}E 1 B` 6@g~` 9@3[a L#` f Bg} 9`3a 7@g~` + ]3E g}-, $#-,@05-,1 *  JgG$I%Cz $i12# B`a `K ?`3EL& B`4B i` f-,1 $9-,0 3-,` ?`3dE B`5B t g}-, $9-,0 -,1` 6@`+ z ?!@  "&E B`5B zAs[MZ`[ ,8[g,8g{3 $ `@Z[ $*g|,8g|@Z[Zg|ZZK}g| B``  "'@[`,83+ ` B`17 + @f `v` -Z`Z[Z`[[`v@` /0d2Z`[`OaZ`Zu*P/,xh USINGUSING used in illegal contextbad variable pair in path USING phrase Duplicated var substitition in USING phrase `1,8`3,83 `a4B ' 0f-,1,X-,3`-,+ M $( `a H @06@g+ .`3-,1 $(-, $!H`Q`3,86 80@a` @6 + <@Z`5B -,3-,7 $4-,0  3` o-, G-,2@ 9-,[g}Z[-,0Z`ZXB ` "2as@[ (Z[ Z[ ,8,8a ,83 3-,5B B " ,8g{@-,1 gz-,0@0 g{-,@-,1 $ -,3,8gv",oA $-,@``K $-,/,x#@ &U8DEFINE-LOOP-SEQUENCE-PATHDEFINE-LOOP-SEQUENCE-PATH MACRO3g%xZZ#9;<{=?; z.>=D-,  e-,Z`[-, U-,0*U,x8 OINTERNED-SYMBOLS path doesn't work inclusively Illegal prep phrase(s) in INTERNED-SYMBOLS LOOP pathARRAYCALLCLPLOOP-INTERNED-SYMBOLS-PATH7@g` 3 "43+ bT1@5B ]9#z MIf`[a5B b3 g} 0-,3 $>-,3-,7 $!A0i g~ $a ,WC7@g~` [g~Z[+ i $~ &aQ0 ,W $5a ,W@f@ @0a `-,1 $-,`0 g-,1 $l-,-,1 g  -, $-,-,1 $-,2A@G z sJZ-,*g-,13-,2H $ -, k-,-,1e3-, $-,Gz ) Z-,(dN6z N*@-, g-, $-, @2-,1 $6-, $-, @ -,-,1,X-, 9-,0 @0-,1 $:-,-,0@213-,7 g-,1 @-,-,1 g-,-,1 ` $-,,X-,,X-, `0 $-, $-,/,x]*].W#@ VYINTERNED-SYMBOLSINTERNED-SYMBOL7?AA7CE7??:o8m9xLIST*7?Aq7e#9;<{=?; CE7??:xSSTATUS9xx;