;"A(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading LOOP 725pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPLOOP725U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xMAPCGETLU*U*USUBRLSUBRFSUBRMACROFEXPREXPRAUTOLOADLISPDTDCLU*UjPFASLDATA-TYPE?VARIABLE-DECLARATIONSINITIAL-VALUEPRIMITIVE-TYPE xERRORLOOP-DIE,8@,8 ,,8,8,8",</jD",xLOOP-SOURCE-CODELOOP-POP-SOURCE[Z D,xU(LOOP-MAKE-PSETQPROG1LOOP-MAKE-SETQ,84B[,8ZgZ 5D Zg[+Zg[,8* @0-,,X-, $-,-,0F,X-,/,x P DESETQ,84B-,,86@`+ "a +[`4B(B{6 + "+ `Z`Z B`+/ `-,u*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-WITH  !!!""##$$#$%#%%#%&#&&#&'#''#'(#((#()#)*#*++,+,--.../.,//00010 12xLOOP-ITERATION-KEYWORD-ALISTFORLOOP-DO-FORASU:U*UREPEATLOOP-DO-REPEAT2334345xLOOP-FOR-KEYWORD-ALIST=LOOP-FOR-EQUALSFIRSTLOOP-FOR-FIRSTINU*U*ULOOP-LIST-STEPPERCARONFROMLOOP-FOR-ARITHMETICDOWNFROMUPFROMBELOWTOU:U*uBEINGLOOP-FOR-BEING5667788998:::;:;;:;<:<<:<==xFEATURECOMPLRSPECIALLOOP-PATH-KEYWORD-ALIST,>>??xBOUNDPu;T @??xLOOP-DUPLICATE-CODE,>>?@x@@@xSI:LOOP-TEQUAL0Bg " ,x](w* MEMQSI:LOOP-TMEMBER$A "ASSQSI:LOOP-TASSOC$B0"U:]*UFLUSH-MACROMEMOSDEFINE-LOOP-MACROCDxDEFINE-LOOP-MACRO MACRODDxLENGTHWrong number args for macronot a loop keyword - define-loop-macroEVAL-WHENU*U*COMPILELOADEVALforget-macromemos|KEYWORDLOOP-TRANSLATESUBST,8ED1N+( ,(,8,80,8g",<Z`$1[,81B +- C5B- ` "FPc%FGGHHIH IIz0U~ $I,X/&JEH#w*]*PH H x IxLOOP-FINISHLOOP-FINISH MACROJKxWrong number of argsGOEND-LOOP,8AP0Z4D3* "KLLz;Xk 3/,x]*@1 00MACROFETCHLOOP-TRANSLATE-1MACROMEMO,8M5B9 `M ``] & $ `N/,x 5NREVERSEU XCONSLOOP-END-TESTIFY,8-,4BB `NZ@(5 B`5D?[+@ $OLLz EEY-,  U $,-,/,x x:LOOP-BEFORE-LOOPLOOP-AFTER-BODYU*U*PEQUAL*DELQLOOP-BODY*NCONCSI:LOOP-SIMPLEPLOOP-OUTPUT-GROUPLOOP-NEVER-STEPPED-VARIABLELOOP-OPTIMIZE-DUPLICATED-CODE-ETC,80F,8 PN,8 PN,8 C ` gQ4BO g "Q,8 RdN $,XR BR+U g~[g-,0` g Bg~[`-,Z`Zg Bg  D` Fg+G/-,} 7B@+] d g} "QN BP g} "QNH@0 BP+@@P@@P g}N Bg} g}N Bg},8g},87@`+j[g[`Q5Bf ` Jg+h[`S4BjZ`Zg B`A@ Dg+b/7@`+x[g}4Bn P 1-, BP[g}4Bq P-, BP Zg}Zg} Bg} Dg}Z`1D+u+l PdN BP PN BP g}N,8 g} N,87@`+[`[g Bg~ Dg~5B 4D g~Q4B g} g}S R g~-, BR@@g}@@g}+ 7@g~+ g} g~-, Bg}7@g~+ g} g~-,0 Bg}Z`Zg B` Dg+{/ BP2 g~ g~S7BT+z :w-, $ 2-, P-, BP/ "j@ ,x HCGENSYMLOOP-MAKE-VARIABLE,8,85D4B/ T 25B ,U & z ZuU BT,86@g +" g "-,-, `-,2B $-,+-6@g+' g "@ -,-, `-, $,-,0@ (+- g-, g,8 zZu-,0d-,,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-ITERATIONELSEsecondary clause misplaced at top level in LOOP macroUDunknown keyword in LOOP macrofound where keyword expected in LOOP macro-,[0D +3ZD" F-,VVW WXD"XYYPRZPZ[D 1[\T\]]-,~ 6B `!+ 7D[+C[-, * "^H@T^ ],8\ Jg ,U,8 YN",8,8P ,R,8,8R,8P ZN,8@@2 [N $,XR $L-,L_z y[ a @0-,,8",<& $_-,,8@ ",<& $(-, $,XR $_ -, Bg,8,87BX+D [Z FX[ YZ Y JY g~ Dg-,0 @0 Bg~ H`4Hd $ "`-, g~-, Bg~,8g7@`+l[`(B{6 0@ +k[`[(B{6 +k " (+mZ` B`+d "/4Br gHN g~-, $`-, Bg~+Z@,8,8,8g~,87@g+ [g B`(B{7 +| g~ `-,0` g Bg~ "-, Bg+ g~[`-, g Bg~Z`[-, ` BgZg Dg+t/ g} g-,2@ $-,,X-,/A@ Bg~+Z/ g+! Bg4B  (B{ an+  gC Bg14BZZZ[a+? 2 gbPC Bg4Ba+?,bz I Kq gB4BDZ[-,[-, g-,0b $ "b+? g "c+? `0 g "c+?/,+5H$ X07BW+( X-, BX YD! X-, BY@@W@bX+) ",x]  h"LOOP-GET-FORM-, $[,8,8B g(N{7 8+3Z`5B0[`+2P  `N $-,+6 `-,1[ B` Dg+,/,x @)U*U*U:DATA-TYPEGETFIXNUMFLONUMPLUS+ADD11+DIFFERENCEU*U*U-SUB11-GREATERP>LESSP<+$-$U*U 1+$1-$>$<$SUBLISLOOP-TYPED-ARITH,8,8 $dD) `e4B< `+< `efz - 0*BP[ B`4BB1Be7Dfl hm gm in jn ko zYt go+C ] g-,/,xfg gh hi ij jk kl xaoYt7INTEGERU*@CNUMBER LOOP-TYPED-INIT,8 $de4BH `T +Lefpqz 7&xI, `B[ B`4BL1Bf @KU7M "r/,xq(DDuplicated iteration variable somewhere in LOOPDuplicated var in LOOP bind blockU*U 0LOOP-DECLARE-VARIABLEVECTORPHUNKSIZESQUID~S bad variable somewhere in LOOPCERROR,<,8  ,8,85BU4D*-, $-,1D W-, BW+4BW(B{ 0B!an+k7BV+` V4J][(Z (A2Hg+Y g "s+c V g-,1@1 BV+c W gB4Bc g "s` ` gt g-,5Bg `br-, g-, W-,D0 BW+4Dq* gt g-,@b g-, W-, BW+7Bg H0 " (B{Z0B$+,8,80d7@ & (F{Z0B$+z[g Z g F` Hg+| g-, Bg B` ,X[g~U,X $ZgU+ g@`t4B gu/.,< `t4B@ `u/. Nw "w,<,< 0,8 p3Nw+.. g~-,,8@ 6@g+ g+ w2/g+.. g(@-, &+ & $,XU p `0..:w Np+ //+@`0 ,,8,8,8,8,8 `0,8g|",<v g-,//0t,xv0x X NLOOP-MAKE-ITERATION-VARIABLE,8,8,8 * ``5-, VU/+p  U@ *APPENDcan't hack this,<,8,84B'5D( "@ +d4B+(B{ an+:  gPA5Bd $d `e4B4 ,2,8,8g F!(,8g~",< Xw BX+defz - 0* `@ 1B4B9 g-, `-, X @-, BX+d7Bg " (B{Z A 0B$+G7@ $ (D{Z0B$+C 1[`[gtZ`Zgt+d `[gbt `Zgt+d gt4B_ gu/.,< `t4BN `u/.@` Nw "w,<,<,8 p3Nw +].. g-,,86@g+U g 0+Z w2/g+Y.. g-, $ `+Z $,Xt p..:w Np+P   "//+d `-,`! g-, $t-, $ "xA:U//,x@%PTR-TYPEPSTRINGCOMPILER-STATEU` SQUIDLOOP-CONSTANTP,8(B{ anb+i " +v6@`+k " +l `t5Bv `x0Byg " 5Bv `(N{6 8( +v[`0D+t " +v7Fy+v2DzA:g " /,x(eLOOP-MAYBE-BIND-FORM,8,8@ z4B{ g-,+} ,U `AA:Q gU/,x0wNOTYPELOOP-OPTIONAL-TYPE[@ ,84B(B{7 + $d `e @b005Befpq{z :m_` `B4B/,x]*@!@~LASTMore ELSEs than WHENsLOOP-MAKE-CONDITIONALIZATION,87D[+:*|@`0[|[|*,8-,XC`F / $,[A4B "+:! &# $b[A4B, [|[,8B ZZ4D&Z[5FZ[-,`![-, $b-, $ "} +& [NZ D[[|[|@#,8 g-,XC` [N B[/0F/ [|[|,8 zZu@@0-,-,XC` "/+:[[Z[,8,87@g+7 `|[ |,8[g-,XC`Zg,8g[`B Dg~ Fg/+./,8[@@[ `0[`/+:-,/,x]` XLOOP-PSEUDO-BODY,8},84BD7DZ+@ R$-, BR+D P-, BP P@`] `-, BP/,x`;LOOP-EMIT-BODY!u# * JZ"~hEBad name for your loop constructToo many names for your loop construct,84BJ@!4BL(B{ `n+L ` "D \ `-, B\Z4DQ* "P +Q "/,xPFd Y#-, BY,x`RBad varlist to nodeclare loop clause,84BY A7@ " (B{Z1B$+[ ` "d   ,Xw B ,xUd Z3Y-, BZ,xp]d"~`d ;U-, $"-,"~(aMAXMINunrecognized LOOP collecting keywordU*U*INTOincompatible LOOP collection typesUnequal data types in multiple collectionsMEMBERRPLACDCDRLOOP-CDRIFY,81B) A +f0B*+g "+o1B&+j1B$+j P( 0B%+k "$+o1B'+m0B(+n "(`0+o $ ",8d,8|,80# ,8,8 $[A4Bw  Bg Bg-,~ ] g}B B`4BZ[ B`3Dg|+*-,1 g|-, $ "+7@g~+ Z[3Fg~+*-, $-,0@C g~-, $ "Z`[ &Z[ *Z[Z [ ( B`A Dg~ Fg Hg} Jg g|0B+ g}(N{ 6 8+5JZ`,8 ,U g~!@a $UQC` Bg~/+E6@g~+!A g|0B'+ "e+ 1B*+ 1B)+ A1B(+ g "q Bg~6@g}+& ,Ub Bg}-, $"-, [-, @ B[ g|1B$+* g~ $ g}w g| @`00B$+3 ,U@fU Bg ,U 1 ],8 g}-,,X-, B]P 0[+=0B+< g}(N{6 8+9A ,U g~ $U Bg ,U &)E0 z ZuU+= " Bg g-, g 0-, g}-, g~-, g| 1-, g~-, ]-, B]0 g|0B'+T g~ "gp,8 g}-,0@`,X-,-, g}-,   $-, Bg  z DQrzH g}4BP g@ +9 g-, g}-, $,-,0P C+90B(+] g~ "fp,8 g} 0-, g|-,,X-,-,0H  g}-, $-,+91B)  +_0B*+ ,87@g~+e g|-,0H g~-, $-,-,` g~ B` Jg| g|-, g}-,@b ,8efz - 0* g}B4Bw g{1B)7; "j@  g}p `-,-, g~-,2@ $-, `,8 "-,`0 g~-, $-,-,,X -, $,-,+z :w g~-,2@0 $-,,8 g{-,,X -, g~-, `,8 gz-,0 2-,-,,X-, $@ -,-, g|-, $-,0@ g-, BgZ4D N $a -,+ [/+90B$+` g}-, $$-, Bg}+0B%  + g}(N{6 8+[g}1D$+(Hz :w g}-, $%-, Bg} g @0-, g-, $-,-,2@` $-,-, g-,@ ,8 g~-, g}-, $-,0 2-,-,,X-, $-,,8 g|(N{6 8+.[g| @ 0D$+.Zg|4F.*Z-,` g-, g|-, g~-,   $-,+9 g|-, g~-,2@2 $-,,8 g-, $|@ -,-, g~-, $-,0d-,,X-, $,-, ]/~/,xk8cLENGTHU(0CDDRCDDDRCDDDDR,8,8,< p0.@  +G5NA `-,+G=NB "+D0 p1N7M ",8 g-,,Xd-,+K `-, $-, `0"..np B`+=//+2.@H;not allowed inside LOOP conditional,8,8d,87D[`!+S-, g-, $ "(@LLz EEY,X-, g-,/j@00"~hMITNOT,8d,8,8!b0 $Z[A4Bd\,8 g-,0H,X-, $-,ZZD Bg \-,[-, B+e  ` Jg7@g+h g-, $-,0   Bg g-,-, $-,02-, $ [R B[/h 2,xWGarbage where = expected-,~ [ Bg~ Dg &0 $6 gA4Bud@@` Bg+ $ $, gA5B{  gC5B{ 2D gC4B}@@g@@`+ [ B`b3 Dg $6 gA4Bd Bg+ H7D+  gC5B 2 gC b5B $, gA5B g "+ B@@g ` g g~U $,[A4BAG0+o/ ^ n,8d"z ) Z 2(-,,X-,~ [" z6c(}-,1f B[,x8\,8d-,`,X-, $-,,8 \-,2@` $"-,-,,X-, w $,-,"~XSI:LOOP-SIMPLEP-1,85B$ "r  ++ "S $+-. gy ,< pAB@00. +)-,+* "/+0*U /,x 0"NULLEQ+INTERNAL-CARCDRPU*U*UCXRPLUSPMINUSPTYPEPZEROPBOOLEROTASHLDBU*U*PATOMPROG2VREFVECTOR-LENGTH*:ARNMACROEXPAND-1*MSI:CHECK-MULTIPLICITIES*:AR2,8 (,<z4B/ "r+m `(N{7 80P A+2 " +m[`0D+@Z`,8@7@`+>[`,87@`+<[` 0.p..Z` D` Np+6/Z`A@ B`+4/ p-, +m4DB0(D{ an+l[`,8,8!@  $Se Bg4BL(B{ an +I g Np+d gCg @@g Np+d( 0  L"z ( `A5Bd ` 5.R ` @Q0B +S . Np+dkljk    fhgigihjlmmnQ,6zP?Cv4JX[(Z (@B0H+T . Np+d (r H g(4,8 0.+] "  *r J,8,X,Xg4Bc g @@g Np+d  $S+ Zg,87@`+j[` 0 ...npZ` D`+e/ pB@0-, /+m $S+ /0$/,x,LOOP|-2. $,X$w]0@oLOOP|-1.[`,8 $Zg,,XA:U-,/,xHpIteration is not allowed to follow body codeIteration starting inside of conditional in LOOPNRECONC@`,8-,,8-,| ,8-,~ ZgyZZgy[a Bg Bg~[4D~@ g}[-, Bg}Zg~ $ Bg~[`w $ g}R Bg}Zg~[ Bg~4D@ g|[-, Bg|Zg~ $ Bg~[`w $ g|RZg~ Bg| Dg~6F[+D7HZ+5D6@g}+6@g|+4BZgy@0Z[-,Zgy[-,[gy -,[gy-,,87DZ+*!D00 "+* "/6@g~0+ g Jg~[g~4B! g{-, Bg{Zg~ $ Bg~[w $ g{R Bg{ 0Zg~[ Bg~4D) gz[-, Bgz ` $Zg~[w $ gzR Bgz $,DB"[A4B37D[+X 2Z[C 05BX g{O,8 gz,8 gyO 0,8 gx-,,X-,,X -,,X-, Bg g}O,8@ g|,8 g{O,8 gz-,0@,X-,,X-,,X-,0$ B`6D[+K P g BP PH( 0 ` BP+W $ [,-,1@1[ g "Q $-,}@`! P-, BP, ` "Q d $-,} P-, BP^ HF+` 2[C Bg~4B] g~@@ Bg~+^ g~  Bgy Jgy+x "/0.T0,x uUnknown keyword in FOR/AS clause in LOOPLEXPR-FUNCALL,8|,8 ,8d,8,8 5 gC@ 2 Bg5Bm g-, g~-, $3-, $ " ,s,8Zg[,8,8g},8g~,8g|Zg}Z,8",<`0/,x8a ,U,8d &e  $,XUrz '$f,8-, $k-,0`-, $-,,8 g-,2@` $j-,-, g-, @0-, $-, $-,,XA2-,/,xPt \5B  , A:U@fU B\,x @ THEN,8,8b0,8 $[A4B  ` g gA@(wd-, g-,z -,2B $-,+  ` $ gw` g-, g-,,87DZ+ T* ~zun2+ z NIL-, $-,0 P//,xh found where THEN expected in FOR ... FIRST,8F!,8,8 $[A5B #[ "00,X $ gwd-, g 2-,*`-, g-,z NIL @2-, $-, $-, $ @0-,,X-, $-,/0.U ,xx BYFUNCTIONFUNCALL,8,8,8b3 ,8 $[A4B 6d+ 7z;|:Pua,8,8(B{6 + <[`1B 2+ ?1B+ ? ,U Bg-, $-,+ AZ`[-,,8,8,8 g|(N{7 8+ H6@g}+ H g} g| g|w Bg+ R g} $@h g|w ,U & g|U Bg7@g}a+ P-, g}-,+ P-,0 g|-, Bg `|,8 g-,0(XC`7@g}+ X & g~ g}U g -, g-, Bg~ g-,  $ -,,86@g~+ fz :w-, d $-, $-, $-,d `-, g}-, $-,  + w[g0D+ l g}-, $-,0@ g~-, `-,+ w g}  @0 "-,-, $ -,,8d g}-, $-, $-,d g-, g}-, $-, `0 $-,,X-,/,x]*U ( 1UPTODOWNTOABOVELOOP-GATHER-PREPSSI:LOOP-SEQUENCER,8,8,8@,8 , ,8,8 "5B } "e,8,80 ,8,8,8,8 0,8*-, $ -, gz -, $3-,,8*gz-,S $ -, $,8:;;<<zcad,@,X-,0``],8",</,x(( xSI:LOOP-NAMED-VARIABLE  ,8 WC,85B  ,U+  W UQ BWZ`/,xH EACHTHEU*U*UMalformed BEING EACH clause in LOOPOFITSHISHERTHEIRfound where ITS or EACH expected in LOOP pathDEFAULT-LOOP-PATHUndefined LOOP iteration pathU unused USING variablesREVERSE,8,8,8,8 $ gPA5B  $ gA4B  * [ BgHb J`+   g-, B-,~  ! ? g}C B`4B &6@g~+ % $,ZDb0![A5B &+ Cd Bg} $,[@ CA4B <7@g~+ + g| " g}-,2@d $-,-, * Bg~T! Jg  z @&$4 B`B5B 4 ` "! 1 ?[C B`4B 7+ Cd-,2@0 $8-, g~ Bg-, Bg~ `+ C ?[C B`5B B g}-, ` $8-, Bg-, Bg~+ CI6@`+ H ? "!C B`5B HZg[!@ ""Z`[,8 , W,8[g,8,8g{,8g{ $ Zg}Z[ $*g|,8,8g|Zg|Z[,8Zg|Z`Z,8",}g|/ B`7DW+ Z!H ""@@W[`,8,87@g+ f [g B`(B{7 + a@f `w+ eZ`Z[Z`[[`wZgA@ Bg+ \/Z`[# YR U BYZ`Z/,xX USINGUSING used in illegal contextUbad variable pair in path USING phraseDuplicated var substitition in USING phrase,8,8[,8,8 g~D`00 `B4B u,8d-,,X  -, g-, Bg+  $# `L 2A4B 6@g+ |[-, $# -, $ "$[,8,8B g(N{6 8+ Zg(B{6  + ZgZ5B [g4D (D{ @an+ Zg[4D 4D (D{ A `n+ g "$Zg[4B  W@ [gC B`4B  g-, `-,0` $ "%Zg[[g-,F  W-, BW[ Bg+ ~/0@b +  gN+ [ B`+ n/0.@,x8 lLOOP-ADD-PATH,8-, ?*` b C ?Q,X-, B? ",x]:\X DEFINE-LOOP-PATHC&CxDEFINE-LOOP-PATH MACRO&&x,8M5B D ` E0.+ * , *,8,8 E,8g",<0Z`[Z,8,8(D{7 + 0 0 g-,+ 0 g Bg,8 "`d,87@g~+ =[g~-, $-,H,8 g~-, $-,-,`0,X-, $%-,-,XC` (Zg~ B` Dg~+ 2 g/H z rS0MC-,2AHHGGz Pz-, $F-,/ ``% && $ `N/,xEh $U*U*USequence duplicated in LOOP pathIteration start redundantly specified in LOOP sequencingDOWNUPEndtest redundantly specified in LOOP sequencing pathIllegal prep in sequence pathConflicting stepping directions in LOOP sequencing pathMissing OF phrase in sequence pathARGSUbCDon't know where to start stepping 0 g|r5B G "rg,87@g|+ K g| $ g|w-,} g|-,0@,8-,~ 7@g~+ [g~[[g~ 1Z[ Bg Dg8z MIfB4B \7@g{+ X`![g~-, gw-, $ "' 1( * gx g gx Jg{U+ :;;z MRE g@ B4B l7@g|+ b g~ gzw $ "'1  * Jg| $; gA4B f *( Jg| b@+ i $; gA4B i *( Jg| gv gE1 gvw+  $< gA4B p "( Bg|E1 Bg}4B + | $ gA4B u "( Bg|E1 Bg}4B + | $ gA4B y "( Bg|P4B + | $< gA4B  "( Bg|4B @7@g}+ g~ gzw $ ") * ` gv g Jg}{ Bg~+  $ gA 4B gz4B  g+ ,U &e@  gU Bg{+  g~ gzw $ ")7@`+ 7@g|+  g|3B`+  g~A gzw $ "* g|Zg~ Bg~ J`+ N/7@gz+ 6@g}+  g| "*@ g}-, gx-,,8 Bg|7@g~+ ! g~0B(+ 36@g}+ $ gx  $r gww6@g+ .7@g{+ 0 ,U` gx $ BgU g{-, g-,2D $-, Y-, BY4B 0T@06@g~7 ik+ zTv/ B` g| "f-, Bg|+ K6@g}+ B6@g{+ 8 g| g{w $!A0! "+ gx $r gww gx "ip@,8 gz-,,X-,-,b gw-, $-, Y-, BY7@g{+ F6@g+ F gxr * BgP Jg~7@g+ I6@g~7 ij+ zKM/Lz B` g| "h -, Bg| ,z w=D -, $.-,Z`[ -, $&-,/,xp U*U*UINTERNED-SYMBOLS path doesn't work inclusivelyIllegal 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-PATH C[`,87@g~+  g} "/7@g~+ (T1Zg~5B "8z MIf[g~[B5B ( , (,8@a,8,8,8,8 [,8gz,8gz ,8gz",<v g} $ g}U ,U0,87@g}+ /[g}Z[-,+ /"H " $0-, & $ `U ,`0U@f,8U ,U@f,8U` `-, g-, g-,H,8 g~-, $-,-,`0 g~-, $1-,-,,X 1-, $1-, Y-, BY` `-, g-, g-,  $-,,86@g~7 [ "2,8 g 0-, g~-, g~-,,X@ -,-,,X-, $1-,0@*`-, g-, g-,2@` $3-,-, g{-,(dz NIL-,,X-, $-,  % $-,/,x00x28@ P0OBARRAY-0,8 4n _ Z( @+ ` ",8,84n b * Jg7@g$+ d-,+ e 4/,x \u*@ +0r xPACKAGEPKG-FIND-PACKAGELOOP-FIND-PACKAGE-TRANSLATE,8Z5D h "4+ jd[-, $5-, * J ( .U H/,xX fSOURCE-TRANS 056x*:AR3P B,8 "-, *6 J7 B (7V;U H,X+ m&2( r*:AR4 ,<,8,8,8Zg4B y[QCg ZgZXCg+ >p5. { " B`+  g(.4. ~[+ ~ZXCg+ u,\b-, B8 g-, B7 g-,1@ B *8 J,X/,x  s.]*U[,x0 *EXPR,>>93122xYCONSDELQINTERNED-SYMBOLSU+UjuINTERNED-SYMBOLLOCAL-INTERNED-SYMBOLSLOCAL-INTERNED-SYMBOL9?::9:C9??9;;38<<38 xLIST*9?:=9.8:;<<:C9??9xSSTATUS> => xSET-FEATUREW<LOCAL> >x;