; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading STRING 165   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPSTRING165U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xNNULLW;U*U29 p##x# xREMPROPERRCKFASLOADGETLOADU:]*ULISPFASL! #%'%)%'%xEXTEND'+)+xSUBSEQMAPCFUNCTIONGETLU*U*USUBRLSUBRAUTOLOADTO-CHARACTERTO-CHARACTER-N?TO-STRINGTO-UPCASETO-SYMBOLREPLACEW*U*USI:REPLACER'-/1)3579xFEATURECOMPLRSPECIALCHARACTER-CLASS+internal-CHARACTER-table|STRING-CLASSSTR:NULL-STRINGU*U*UFIXNUMSTRING-LENGTHCHAR-NCHAR-DOWNCASECHAR-UPCASENOTYPERPLACHAR-N+INTERNAL-CHAR-N+INTERNAL-STRING-WORD-NU*U*U+INTERNAL-RPLACHAR-N+INTERNAL-SET-STRING-WORD-NSET-STRING-LENGTHSTR:GRAB-PURSEG*LEXPRMAKE-STRINGSTRING-SKIPQSTRING-BSKIPQSTRING-SKIPQ-NU*U*USTRING-BSKIPQ-NSTRING-POSQSTRING-BPOSQSTRING-POSQ-NSTRING-BPOSQ-NSTRING-FILLSTRING-FILL-NSTRING-SEARCH-SETSTRING-REVERSE-SEARCH-SETU*U*USTRING-SEARCH-NOT-SETSTRING-REVERSE-SEARCH-NOT-SETSTRING-SEARCH-CHARSTRING-REVERSE-SEARCH-CHARSTRING-SEARCH-NOT-CHARSTRING-REVERSE-SEARCH-NOT-CHARSTRING-REPLACESTRING-SUBSEQSTRING-MISMATCHQU*UjUSTRING-REMQSUBSTRINGSTRING-APPENDARRAY*STR:ARRAY;=? A!CA"AEA#GAAA$AIA#%AAKAA&AAM'O(Q)S*U+W,Y-[.]/_0a1c2e3g4AixANDMEMQCOMPILER-STATEW*U*UTOPLEVEL5;k6m#OAxSTR:STRING-SEARCHerSTR:STRING-POSQ-NerSTR:STRING-POSQerSTR:STRING-EQUAL-LESSPSTR:STRING-UP-DOWN-CASE*EXPRGET-PNAMEw*U.u;7o8q9'7q9s:x5;?xSI:DEFCLASS*-1LISTSEQUENCE-CLASSDSK:NILCOM;STRING 165u ?;w <x5;=xCHARACTERU:U*uOBJECT-CLASSDSK:NILCOM;STRING 165uy=;=y{xBOUNDPLOOP-PATH-KEYWORD-ALISTforget-macromemos|LOOP5>}}?xCONSU*U*USI:LOOP-SEQUENCE-ELEMENTS-PATHOFFROMTOBELOWABOVEDOWNTOINBYU+UjUCHARDELQASSQ}@yABCDE! yFy}}xCHARACTERS}@ABCDE! yF}}xSTRAUXEQARRAY-TYPEU*U*UFIXPARRAY-#-DIMSSTR:GCMARRAYYNOTSETSTRINGS-GCSIZESTRINGS-GCMAXSTRINGS-GCMINU*U*UP YLf3STR:ARYSIZESTR:GCMSIZESTR:FREESLOTSTR:NO.STRSU*U*USTR:NO.WDSFSTR:NO.PWDSFSTR:PURE-ADDRSTR:STRING-HUNK-PATTERNHUNK**SELF-EVAL**RPLACXU*U*USTR:CHARACTER-EXTEND-PATTERNMUNKAMSTR:CHARACTER-HUNK-PATTERNARRAYSTORESTR:DUMMYNOINTERRUPTGETDDTSYMU*U*UGRBPSGITS1914J1SYMVALRET:symlod:vp 1-ERUNDOu*U.5'GHiAI -J5>KJLMNOPQRSTS?UUVTW=TW=UUXiAXO-K'XiJJPQ JYT? T?Z[\] ^Z'G)GxEVALDEFMACROCHARACTERPLIST*PTR-TYPEP5;_`;ayxayuc  " ,x STRINGP5;_;a xa0B  .U.U " ,x STRI*:FIXNUM-TO-CHARACTER5;_Eb;c;$bx*RSET*:ARN!SI:CHECK-SUBSEQUENCERSI:CHECK-MULTIPLICITIES*:AR2*:AR3,8`)B1 Jd ,,8,83,83,85Ko d0.+!PD  "e` Jd f3` H`,X$ "pcKU,x E PRPLACHARC*:CHARACTER-TO-FIXNUM5;_gb;%b;hxSI:CHECK-TYPER,8`Ia @`0B `I 8an`I!I g![`io Jd W,8,8g~,8g~3,88q,89sKC!o d0.`] "e` Jd D f,Xg~ &g $` `3`a B`h &,X&%DK; g p 5;_yx $$H:U8MAKNUMSI:XREF5;_h;ixC-, ,x;5;_!x,8` ,x{u0?xSTRING-LENGTH SETF-X-ACCESS`*,8-,,XA:P-,,x  SI:XSETSTRING-LENGTH SETF-X-INVERT`` "-, -, $-,7 *u -,,x0 DSTRING-LENGTH SETF-XSETF-X!lxSETF-STRUCT-,[Z[@,8-,D@c1 ( & $k "jj]*]*8ISTRING-SEARCHQ&RESTW5;_mn7 mnx*lexpr-funcall-1-0*I:pez@ mz01uG 7 "m(oh1STRING-BSEARCHQ5;_n7nx-02TH;Wez@z0} t 7(o|1STRING-LESSP5;_pnqnxU$;-0ez@z0:wq "p(o1eRCSTRING-EQUAL5;_qnq nx-0ez@ z0=R3q "q(o]8 U1STRING-SEARCH5;_n7 nx-0ez@ z0\# 7k@e)(o1STRING-REVERSE-SEARCH5;_rn7 rnx-0ez@ rz0T 7;e "r(o1STRING-DOWNCASE5;_n9nx-0sz@!w. & 9(o1STRING-UPCASE5;_n9 nx-0* >Psz@ & 9(o1?xCHAR SETF-X-ACCESS 0`@,8-,,X-,7 $A:-,,x@CHAR SETF-X-INVERT` " 2-, $ -,7 $-,7 $gu`-,,xH(nCHAR SETF-XEulx-,[Z[Z [ (@,8-,1D $ -,B & "t1oTjPs?xCHAR-N SETF-X-ACCESS`@,8 0-,,X-,7 $-,0.@0,xXCHAR-N SETF-X-INVERT` "-, $  @0-,7 $-,7 G-,,x]8``(CHAR-N SETF-XClx-,[Z[`Z [ (@,8-,1 $ -,D;B & $vjhU*U*USI:NON-NEG-FIXNUMPSTR:COMPRESS-SPACESTR:GROW-ARRAYSTR:GC-SERVICECan't get enough STRING sW;U*Ppace yz{p||x| xFAIL-ACTERROR*REARRAYSTR:CLEAR-WORDS-0 ;`) Z(+ @ @,8; BD`3 ( 3`9 O $wa B`bC-, " `,=` pC@0 +#ˀˀ p!.P{`o3`U pK`U`! * +$ p.PK+. "px@`o6@`+2 "p` * 3 J`+$ ,6,8,8X *pK<}@@`H`3+$?-, & P-,5 P.p Bg-, BP Q@!ˀ-, BQ 3oO+H ,8@,8Y,8 O.. KD o-, BO Q g 02+L`3+O g}b5NQ $p g~` ,83 $@0 g|",oY g,/0D]/,x|<1!ARGSu*U 0OexFLONUMFLOATMAX^DPRIN1,<,<9N]``2.+| P. B`a @d0Bh%.K]  ``0A ..` Np "p@" B` ,8,8Ko `b -, ,t,8",<! 1+| ,x,8K<~ 1! ,8",<? 4n~P `` "/,xi A7O&*7Nr?H?x?d_y?c@4c_y8 y?c.U*U%x'dgSTRING bug detected by STR:COMPRESS-SPACE   px x+ b 0,8K<?,8Y-,},<0,8 w}3/Q+-,DB BQ w~-, BP ` 4.``)@ B`[4D` 4.0n+ `@  Nw@  5.! ,!,8,8I g-,1 $ -,0`",<} w{-,0`0 w~-,@w U,8,8g,8g",<1ˀ@ ;w] +0ˀˀ Np *p ˀ/.0L(P8 $( g,<IDp &p,XaK w~-,0 ` +Aˀˀ.nw~@;:w}+ "/,x/?p3iJMi`.TSxGCSTR:GC-DAEMON,< "` *SH(0`  " "px " *W`,xR:GC-DAEMON pw*U.w  x x/TYO+HUNK4 px xU*U.wSTR:GC-DAEMON finds non-string  px x``,<,< .`3B ` C,8,8I",<} " `,<J ,<,82OQ` gˀ Bg s`  4.c``@@ gb,<(@ p5nh `ˀˀ01.@.pp g-, BQ 2 p-,`` ,tb,8K<~K ,8,8Q1 1",< ,8,8M",< ,8,8O",<? ,,8/P *p",<@1  ,8",< ,8 "",<~P ,,8",P( <? " + "` #` @+@ B` " Z D21B `7 ,,8,8R g-,1 $ -,",<}`[`4DCZ`D2q?+' ,#,8 g-,1 $ `-,",<} * 4.&@` 2`M` gˀ Nw "w Bg s` `@ g 4./@```_@@b,<( p5n4 `kˀˀ. `.pp 4.;``w@0@ 4.>0`} (`0 2@+B@`  * 4.F2`@;+[0P /,x x{Tjz7O&*7Nr?H?4ye%xOc_y@KU<y?cx'dgp:WRONG-TYPE-ARGUMENT set U*U*wlength of string ~2G~S to ~1G~S y!#%' pxC xCERROR,8+W && a`,< ` 8an+]@" `4.]2np+]` ,8,80D ,8y,8z,8g},8g|Ko) B`+X `ˀ,<4Pt,< `5nh@ `ˀˀ $pI /wˀ/.L(P8B(,< &p ;aK0 `-,0@-,/DK/,x A`SU*U.wWrong number args to function +-/px x`,8,8[ 8 l+Z 8|+ ,,8`,87,8g}",<} ` , ,83 @",+g}+6 `0N@``# ,,83 @Z( K`s+6+ 1,83 @Z(@",@"+g|+60N`C ,!,83 @Z(@Z(K@"`s+6++ U,83 @Z(@Z(@ ",+g{+60N`k ,5,83 @Z(@Z( @Z(K`s+6 " ,xpSTR:CHARACTER-VALUEP 0an`} `{;`y " `]+? "+? ",xoBIT-TESTU(b BIT-SETSUBST,<+D &c0 1a B`,<  Np1.@+N C $M "p4BK $p3  Np Ap ` Np0.@`  @ `+Q@`@ B`  . aH@CF5Be p $a5 @ZV[V0Z ( "(-,@03/ $ `-, B`b  . ` `-,7  . 0`0 `-,Z/,x 0@-0,< 1n`(0 @+l " Z(@ @,81n` ( 3PB+ Hd ,y,8,8g~,8g}D0,8,8g|Ko d0. "+| "e` Jd f Fg~3@ 3+3+` /g Np "p@  , ,8 ,83KoO@00,8g,8,8g},8g|K<10Ku,x c 1gcesxSTR:COMPARE-WORDS0-0 1n`% @@+ ";+ Z(`- ` 1n`3 @+0 Z(@,8!1n`? ( 33,<+C! g}-,-, Hd ,+,8,8g~,8g|,8g~,8j,8kC3Ko d0.+. "e`"$  Jd f Jd Fg3 o,83,8g{,8g~,8l,8g{KC!o d0.`u "e` Jd f Fg32.`7 ` * 3 J` Np+E7@`+E g} Np` /g~` s,<6@``2.`7  Nw g~5NU5NUT;+U wSbA+U34BU "`,< pk`6@g`2Nw`S  ` "+\-,`.g~ $p0$s;,< $p$,\/3N` g~.p-, `:p`-,D"/,x 2 2 ]:U.w12e7xUluz - need 7 9p;;x; xPB0STRING-PNGET,8+x an"` `3` ,8-,8g",<} & a`,<@ p +}ˀˀ ˀ,<,< $wI@  w p-,+ /w0ˀ/.L(P8Bp -,;`-,1,< p3.w~`+ w~/p $p gaI `-,0 0@; B``@KU/,x;`mSTRING-PNPUTPAIRPP"DLENGTH+4B = $a B`@ 7@`+Z`5B[` 85N@@` `? I,8 *pK oO3`y-,,<7@`+-[` $paK:pZ```a B`+(,< i,8},8g *p,8?0`b",oS-,4B; ˀ Np *p "(-,30@`,/ :P,x7hSTRING-HASH09-00,< 1n+D P0@` ";` Z( 0+H @,8!1n` ( 3` Hd ,T,8,8g~,8g} ,8 ,8g|KC!o d0.+W "e` Jd f * Fg~3 Jg3 ``,<3` p/g A+ gˀ4Pi ,83h,8g~,8g}Koc B` Jg gˀ +nˀˀˀ,< wû $p ` I w /wˀ/.L(P8Bp Pp/w~ pk` $p `Iû>p``0/-,0D_/,x  1 sx0DIGITP $  B`4B 1.`A@0;9` " + ",x]`DIGIT-WEIGHT $ 1.`'9a`'/.-,++A+0n-+ 7-,++a`50n=`5W`X-,+ ",x-0,<,< 1n+!( @`C ";`I 0Z(+% " @Z(@[Z[ZZ [  ,8,8,81n`_ * ( ,8;+2 * J``  a Jd ,=,8333,80,8g},8g}3,8g{,8gzK C!o d0.+@ "e` Jd f * $ 3 Hg|3`,< g}`,< p@ 7@`+L3`7@g+N`3+P` Nw~@@` s6@g`C.np3`:pP  "+-6@g+\>pd p-,+-,< $7@g`/w+c wˀ@ 7@g~+g3og|+g g| Np/pb w~ -,,8@ 3++7@g~+p[++`@ 3.p++3`7@g~+z ,y,8 *w,8g{ˀ (p,8K</0D+ ,8 *w,8g{ˀ`` (p,8Ko_ B`4B p@2n+ [+ , ,8,8g|,8g{a û (p,8",<q4B ``W`S7@g~+ ',8 *w,8g{,8g~ ;,8",D<++ ,,8 *w,8g{,8g~ ; ,8",oW B`G p2n`G D[`G ,",8,8g|,8g{,81 K<2G ``W7@``S7@g~`O `ˀ`Q/`Xۻ`0 `+l ",//0  /-,Kp/,x 17s7x-0 1n`k @+6 @ " Z(@,8!!1n`w ( 3` Hda ,D,83,8,8[3B,8,8,8\K o dPh""0.+G "e` Jd f &3 $w  Hg~a3+N3+N` ,8 ,8/g~ *pA@KoO,8g,8g} g|00 *pK<10Ku,x 3 1c3esxSETARG -0,<,8,<,< pk+b`ˀ.Z8 B`a1B ` ` 8D`n` g `a B`+m0 `: B` pˀ ` "p" `` ۻ:p+`0@ ,w,8 *pKoO,8 -, ,< pk`+ ˀ.Z8 Bg` 4N  0,83,8g~,8g~K<1 g`0. Nw "w:p````K,/,x1]U@STR:STRING-REVERSERSTRING-REVERSE-0 1n`  0@+  ";+  P`Z(` % " @,81n+  ( 3B3 g $ jbE,x1 #sxSTRING-NREVERSE-0 `  1n` = @+  "  ;+ " Z(` E " @,81n+ ' ( 003B3 g $bE,x_@`1 5Gsx,<,<,8@,8-, a ,<1(!р` e5D K Jd u,8,8g}@3,8,8 n3 G,8 o,8g|@@Ko d0.` { "e`  Jd f * ``  Hg~ b Jg Np3+ J-, , I,83,8Koc,,Xg}+ Z`  Np3` Nw "w Bg` .g2np+ S` p Bg4D Z ,8,8g}3 3Koc B`7@g~+ \ `.gs,< w[`  ; `$ $w ` Np$ &p  $w `% ; `%ˀB>w+ _0D],x # ( UCHAR-EQUALPCHAR-LESSP-0 1n` P0@+ t ";+ w Z(@` "1n` @+ { ` ;+ ~ Z(`  @Z(@,80(01n+  ( 3,8;  `  ( H`,81n+ ( H`(0,8;`  ( H`-,[!!Z-,~,8` Jda , ,8,8g|3,8 ,8 ,8g{B,8,8 K o dPh"!0.+  "e` Jd f Fd Hgz I,8,8g{3,8,8   3,8,8,8 K oB d0.` O "e` Jd f &  * Fg} Hgy Jg|7@g~+ / q $w(@a3` e q $w gza Bgz  gy/gz Jd Np; y,8,8g3 (p,8 ,8 ,8 @@Ko d0.`  "e`   Jd f Fd Hgz Np ,8,8g3  ,8 ,8 KC!o d0.` "e` Jd f`  ``  Hgy Pw,Xgz,Xg{/` `  g|`  Nw;6@g~ Np6@g}7gz /g{7@`A` 3Np` "+ 6@`+ f p5N f1N " +  pK+ h7s,=g{ p 6@`` gzs/w2n`  " ` $w00$ ; g|$ Nw~3+ w1s` + y $w~$ 7@`+ {A "+ 3` 2.w~ " + $w~aI` wˀ;>p  Nw;+ j//D",x q q q"KW q 1 qs%xCPNGET $%aKZ5D [ 85N v@@` $%i=  -0,< `  ;+  Z(` 1 "  1n` 7 @+  " Z(@,8;@@!` C ( 33` G 3+ 4! Hd Y,8333,8 M  ,8 N,8g|Ko dPh"0.` _ "e` Jd f *  Hg~ Jg3 g`,<3+ 9 p Bg~ w,83K`oO,<,< pk+ ?0` .g~ $p$ Nw3+ E@ 0 "wE` "w" Pw &w a ; `%@;+ = "/,x _(!"1 '9exSTRING-LEFT-TRIM,8+ S && 0 `a B` , V,8,8g,8g",<.H"5B X  + [ , [,8,8g", 0oc,x` STRING-RIGHT-TRIM,<!D,8+ a M `a B` , d!,8,8g,8g",o]5B f  + r`3.`  Np "p , q,83 g~ˀ``0 *pKoc0 :,xh \STRING-TRIM,<(@,8+ y &' `a B`00 , |,8,8g,8g",<.,8!  +  ,8,8g~,8g~",o]H    +  g` g3.+  Np "p Bg , ,8,8g~3/g~ˀ *pKoc@`0/,x]:] 0p tSI:STRING-REMQ-BUFFEROx+INTERNAL-INTERRUPT-BOUND-VARIABLESO(x2-0,<0,< ;` - P0Z(+  "1n+  @@` 5 Z(@,8 \@,8;` A ( 3,81n+ # ( H`O+ ' M,8 HBBKoOO+ 5 Jd ],8333,8 ] ,8g}3Ko(4 d0.` c "e` Jd f Hg}3 g}5B 9 g~` @-, $,<O`s,<,<,< 5. K ,80! ,8 KoOO,8 ^ K<1` ; g~$ Np3Nw~` 3nw+ W ,8 ,8 .2.nw *wKoOOH#",<1O &p ;O%@;@; "+ ?/,xQ "}*Qc1 #eex:PRINT-SELF->STRING-CLASSSI:NORMALIZE-STREAM ` &) g~a Bg~ g`S BgD7@`+ h , h,8 ",< g~`,<,<,< w3.p` 0+ y $w g~$7@`` 1N` 1/` ,8,8,8g~",< , x0,8 ,8g~",< :w` 7@`+ ~ ,8 ,8g~",< @`DK` ",x**H1@0 _U:D ADD-METHOD:PRINT-SELFU+)?x:PRINT-SELF->CHARACTER-CLASS` W $` g~0a Bg~ g`S Bg7@`` b ,8C *p,8g~",< @ u,x|xx\1@0U+W=xEXPLODE->STRING-CLASSU*@b "NREVERSEASCII/,<` % &,  a3` /7@`+ "*a -,1+Y-,1+ "`b,82,<,<(3.p+"@(03` A6@g eY `-, B`D0 `-` a ;$ Nw "w6@g+'`[3` [ 1N` U@(0/` [6@g73 ". `-, B`@ `-,@; B`+/KW,x*`1( EXPLODEU],?xU( OBJECT?EXPLODE->CHARACTER-CLASS-,p/3+9 /@aC-,-,1 -,+;@d /C-,-,1 _-,a3+? [,+?/T+1( gU]0=xSXHASH->STRING-CLASS ,8,8gK.R< /,x1`@SXHASHU1a?xNAMESTRING->STRING-CLASS $%P ;W $/i 1 NAMESTRINGU2c?xPcSI:ALPHA-TESTSAMEPNAMEP->STRING-CLASS ( z0?,X/je]:HP1  SAMEPNAMEPUg3?xALPHALESSP->STRING-CLASS ( z0<$f,X/1oTEje1  U 4?xLESSP->STRING-CLASS ( z0<$f,XcE/je1  LESSPU5i?xGREATERP->STRING-CLASS ( z0<$fG:u g/je1  GREATERPU6k?x+INTERNAL-LOSSAGEU*U*UMixed mode ALPHALESSP tests don't work in oldU;\ lisps 7o8q9s:u;w< pyyxy x,8,8Aa0B +\ ga1B +l ,8 3Ko5 Bg4Bl+f ga0B @0` ,8,8g~Ko5+f g`C-,3-,7 & $4am 4Bl7@`+l ,l,8 g~-,13-,7",<} ,8,8g0`K33Koq/,xy( A1EQUAL->STRING-CLASS `a0B +u ` g` .P ",x1 qEQUALU{=?xFLATSIZE->STRING-CLASS7@`` g~` ,<7@`` `2Np+7@`+ pˀ`B pû-,+ ,,8300ˀ *pK<-@;A@a B`+{/` g~`[W,xS*xg$f10 FLATSIZEU}>?x@`KFLATSIZE->CHARACTER-CLASS6@`!,xs1@0u*U*WU}?=xPURCOPY PURCOPY a string this long y@ABpw(F0CCxC xPURCOPY->STRING-CLASS`u,<4 ga0B `9 g`  Np93 +ˀˀ1n`?4 ?,8,8;,8g~",<} " `dB RK`I`M 3 JR..@/Rw "p`0@ R-, BR`ZgXC`[gQC` "p` `0 pq q,83,8g~@0,8<y *pK<1/`K/,xC@1`u U?xUSERATOMS-HOOK->STRING-CLASS $%-,1 $-,2AH z <$f-, =-,-,1uj/,x 1`=USERATOMS-HOOKUD?xUSERATOMS-HOOK->CHARACTER-CLASSCH-,-,1 $c-,-,1}ju/,x(1 UE=x-K'17q9x*FORMAT-STRING-GENERATOR5x*ARRAYW*U*WF xPROGG0008<RETURNARRAYCALLT..60 pW*]jW+INTERNAL-TEMP-MARKERJ xCXRT..61 pL xGOGHI JUJJKVLULLKVUe  5^Mx0*TYI#-\-PARSE+internal-tilde-macro|`,< p/``0  Np+O0N.+ON  Np "p*Wc,xhHSETSYNTAX~MACROOPxU:F0FBOUNDPSHARPMN'NN)Qx+internal-doublequote-macro|`,<,8 p@`0N+e `? ,8 *p0KoO,< pk`+c/p@3[` $p Bg@ %@;`a1+k/+g`` -, `-, B``  Np u`,xQOYPxmmcdrside|U:U*Uside-effectsp|TO-CHARACTER-N-REC$`hc3S5!Cy$I:eOm2*U+W(Q)Sqpr"E#3gc/0-._a[]= xGC-DAEMONGHNCONCGENSYMSYMBOLPU+UoATOMCARFUNCALL!T;;T;TU;TV5W;;;xSSTATUSX x;