;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading STRING 165pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPSTRING165U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xNNULLW;U*U29px xREMPROPERRCKFASLOADGETLOADU:]*ULISPFASL    xEXTEND xSUBSEQMAPCFUNCTIONGETLU*U*USUBRLSUBRAUTOLOADTO-CHARACTERTO-CHARACTER-N?TO-STRINGTO-UPCASETO-SYMBOLREPLACEW*U*USI:REPLACER  xFEATURECOMPLRSPECIALCHARACTER-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  !! " " ##  $ $ #% % &  &''(())**++,,--..//00112233 4 4xANDMEMQCOMPILER-STATEW*U*UTOPLEVEL5566#' xSTR:STRING-SEARCHerSTR:STRING-POSQ-NerSTR:STRING-POSQerSTR:STRING-EQUAL-LESSPSTR:STRING-UP-DOWN-CASE*EXPRGET-PNAMEw*U.u77889'7899:x5xSI:DEFCLASS*-1LISTSEQUENCE-CLASSDSK:NILCOM;STRING 165: ;; <x5xCHARACTERU:U*uOBJECT-CLASSDSK:NILCOM;STRING 165:<;=<=xBOUNDPLOOP-PATH-KEYWORD-ALISTforget-macromemos|LOOP5>>>??xCONSU*U*USI:LOOP-SEQUENCE-ELEMENTS-PATHOFFROMTOBELOWABOVEDOWNTOINBYU+UjUCHARDELQASSQ>@<@AABBCCDDE! <EF<>>xCHARACTERS>@F@AABBCCDDE! <EFF>>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.5G GH4 HII J5J>KJKLLMMNNKOOPPQPQPRPRSSTTSPUUSUPSVTTVWWTTVWUUWUPWX4 NXIOKX4IJXIPJPUQU JYTTPPYY TTPPZZ[G [Z\\]]  Z^Z^\G GxEVALDEFMACROCHARACTERPLIST*PTR-TYPEP5__``G;a<xa0B<uc g " ,x STRINGP5__a`G;a xa0B g .U.U " ,x STRI*:FIXNUM-TO-CHARACTER5__Ebb;c;$bbx*RSET*:ARNU*TSI:CHECK-SUBSEQUENCERSI:CHECK-MULTIPLICITIES*:AR2*:AR3,8,87Fc+  ,8 *P Jd ,,8,8,8,8g~,8D,8,8,8",<d,8 d0.+!PD  "ee *P Jd f f,Xg~/` H`,X,X$,< "pc/KU,xU E PRPLACHARCW( *:CHARACTER-TO-FIXNUM5__gbbg;%bb;hgxSI:CHECK-TYPER,8,8,86Hc+$a @`0B +$ g(N{ 8an+$ g 4.$ g!2og+4,87 *P Jd ,+,8,8g~,8g~,8g~,88,88,89,89",C!<d,8 d0.+. "ee *P Jd D f f,Xg~/ &g $` ` Hg`h B`,Xh &,X,X&%U"d g p 5__<g`gx $$H:U8MAKNUMSI:XREF5__hg;i`igPx,8Z-, /x ,x ;5__!`iUx,8[ ,x=u0?xSTRING-LENGTH SETF-X-ACCESS,8[*,8-,,XA:P-,/,x ?SI:XSETSTRING-LENGTH SETF-X-INVERT[` "-, $U-, $-, *u $j-,,x 0 DSTRING-LENGTH SETF-XSETF-X!klxSETF-STRUCT,8-,[Z[*,8-,0@1,X ( & $k "j/*l]*]* 8ISTRING-SEARCHQ&RESTW5__mmn`7 mnx*lexpr-funcall-1-0*I:pen z@ mz0!Ek7# 7 "m(o PPSTRING-BSEARCHQ5__omn`7onx-02TH;Wen z@oz0ct@tV 7 "o(o xSSTRING-LESSP5__pmn`8nxP*$-0ep z@z0:w 8 "p(oVWJR!STRING-EQUAL5__qmn`8 nx-0ep z@ z0=R3 8 "q(o]8 UYSTRING-SEARCH5__qmn`7 qnx-0en z@ qz0"s8# 7 "qk@e)(o\STRING-REVERSE-SEARCH5__rmn`7 rnx-0en z@ rz0bR]F} 7!n] 2 "r(o _STRING-DOWNCASE5__rmn`9nx-0Us z@@!w. & 9 "r(o(bSTRING-UPCASE5__smn`9 nx-0* >PUs z@@ & 9 "s(o8e?xCHAR SETF-X-ACCESS,8 0[*,8-,,X-, $A:-,/,x@ hCHAR SETF-X-INVERT[ " 2-, $ -, $-, $gu`-,,xH(nCHAR SETF-XEulx,8-,[Z[Z [ (*,8-,D $ -,,X* & $t "t/1oT*lPs?xCHAR-N SETF-X-ACCESS,8[*,8 0-,,X-, $-,/0.@0,xX |CHAR-N SETF-X-INVERT[ "-, $  @0-, $-, $#-,,x]8``(CHAR-N SETF-X!vlx,8-,[Z[`Z [ (*,8-, $ -,,X* & $v "u/*lhU*U*USI:NON-NEG-FIXNUMPSTR:COMPRESS-SPACESTR:GROW-ARRAYSTR:GC-SERVICECan't get enough STRING sW;U*Ppaceyyzz{{p||x| xFAIL-ACTERROR*REARRAYSTR:CLEAR-WORDS-00,8 1n+ Z(+ @ "P,8 Z(,8,81n BD+ ( Hg7Dc+ &' $wh B` -,c " Y,=`,8 p5n!@0 .+#/.&...,<-,~ p .P3oN+76@g+* p2/Q+*w ! * Jg+$ p.P2/K+. "px@+76@`+2 "px * @@g J`+$ ,6,8,8X *p,8,8X",<}@@`H`@@g+$  w-, & P "T-, P.p Bg-, BP Q@!..-, BQ 3oO+H ,F,8@,8Y,8 O.. Nw *w,8",D <} w-, BO Q/. g(. 04.KQKI+LXKI g~Y7@g}+O g}b5NQ $p g~+U ,U,8,8g~ $@0 g|,8",<, g,/0D]/,x||IxARGSu*U 0~'Ue xFLONUMFLOATMAX^DPRIN1,<,<0&,8 Q9N]x+~ Q2.+| P/Q. Nw "w B` La,8 @d0B+h gL%.j.(?.  `+i1B 7L ./.` Np "p@" B` ,o,8,8,8,8",<} ` -, BN ,t,8,8K,8",<  BK7D+| ,x,8,8",<~@1 ,{,8,8N,8",<~ Q4n~P w+~ "//,x4 7O&*7Nr?H|p?Bx?d_y?c@4c_y8 y?c.U*U%x'dgYSTRING bug detected by STR:COMU+]bPRESS-SPACEpx x7B+ , b 0,8,8",<~E,8Y-,},<0,8 w}3/Q+ w}-, DB BQ w~-, BP *P JQ+C(. 4.[I+ZI B`4BB[4D[  Nw4.0n+ `Z  Nw@  5.! ,!,8,8I g-, $ -,0`,8",<} w/w~4n= w-,0` gQB( w~-, gXB( w@4N; ,*,8,8g,8g",<1 w&.@  Pw~4P; w5n. .+0/.&.../. Np *p,8 ./w~$.../.0"0(P8 $( g,<$Dp/,< &p,X g%/ w~-,0 `XB( w5n? .+A/.&....nw~:w} Nw~:w}+ "//,x7qF|Cr/B|Or?D|;ppiJMi`|Or@.T|pS@xGCSTR:GC-DAEMON,< "Y *SH(0 JQ Q5.N " "px " *WY/,xIR:GC-DAEMONpw*U.w  x xTYOHUNK4p  x xU*U.wSTR:GC-DAEMON finds non-string    px xA,<,< .[I3B +W ,WDC,8,8I,8I",<} " Y,<J,8J ,<,8,8 w2OQ+ g.. Nw~ "w~ Bg 3Nw+l (. 4.c[I+cZIZ g[ (,8,<(@ p5nh .+i/.&...,X/01. N/.pp g-, BQ@2 p-, BQ gY7B+ ,tb,8,8",<~K ,w,8,8Q,8D ",< ,z,8,8M,8",< ,},8,8O,8",<~M ,,8 N/P,< *p,8,8",</@1 ,,8,8O,8",< , ,8,8Q ",8",<~P , ,8,8N,8",P( <~P " + "+G(.4.[I @+ZI B`4BF7@ " (B{Z D21B + ,,8,8R g-, $ -,,8",<}+F[`4DCZ`D23F+' ,#,8,8R g-, $ -,,8",<} w *(.4.&@` QKI+&XKI+F g.. Nw "w Bg 3Nw+F `Z g,8(.4./@`[I+/ZIZ g~[ (,8,<( p5n4 .+5/.&...,X/@. `/.pp w(.4.;[I+;@0ZI g~(.4.>QCI+>XCI w (`0(.4.AQII+BXII/+F w  *(.4.FQKI+FXKI:w+[/0P /,x IPx{TjzP7O&*7Nr?H|p?B4 ye%xOc_y@ KU<y?c%x'dg pQ:WRONG-TYPE-ARGUMENT set U*U*wlength of string ~2G~S to ~1G~Sypxu! xCERROR,8,87Fc+W && $ah Bg[,< `(N{ 8an+]@" `4.]2np+]+c ,b,8,8x,80D ,8y,8y,8z,8g},8g|",< B`+X `&.,<4Pt,< `5nh@ .+i/.&.../.,< $p g$ Nw *w ./w$.../."0(P8B(,< &p $w g%/0 `-, gQB(*g-,/0D%/,x  `SU*U.wWrong number args to functionpx x`,8,8,8,8 ,8[ 8 30+Z 83p+ ,,8`,87,8g}",<} `=N , ,8,8g~ Z(,8",+g}+6 `0N@`+ ,,8,8g~ Z(,8Z( ,8",+g|+60N+ ,,8,8g~ Z(,8Z(,8Z(,8",@"+g|+60N+! ,!,8,8g~ Z(,8Z(,8Z(,8Z(,8",@"+g{+60N++ ,*,8,8g~ Z(,8Z(,8Z(,8Z(,8Z( ,8",+g{+60N+5 ,5,8,8g~ Z(,8Z(,8Z(,8Z( ,8Z(,8Z(,8",+gz+6 " /,x p(zSTR:CHARACTER-VALUEP,8(B{ 0an+> `4.=1n+,8g w/.,< *p,8,8?A@b",<)/-,c,84B; .. Np *p "(-, gQB @`//,,X/ :P/,xPhSTRING-HASH0-00,<,8 1n+D P0Z(+D ",81n+G Z( 0+H "P,8 Z(,8,8P1n+L ( Hg7Dc+[ (P Hd ,T,8,8,8g~,8g},8,8,8,8g|",C!<d,8 d0.+W "ee *P Jd f f * Fg~ Hg~ Jg,Xg `[,<6@g+` p/g Nw "w Bg~ g~ 5Nb " + g&.4Pi ,g,8,8gh,8g~,8g}",<1 *P B` Jg g&.,< g~5nl .+n/.&.../.,< g~&.,< w.w,< $p ` $,< w4Ny ./w$.../."0(P8Bp Pp w~/w~/.,< p@3.w}+ $p `$Fw>p Nw+{`0/,\(N/-, /0D_/,x  ?~ Us xP`DIGITP,8 $  B`4B 1.+ A@01n+ g " + "/,x]`DIGIT-WEIGHT $,8 1.+0nB+/.-, +1. +0n-+ /.-, +1.0+0n=+/.+`X-, + "/,x-00 ,<,<,8 1n+!( Z(+! ",81n+$ 0Z(+% ",8 Z(,8Z(,8Z([Z[ZZ [  ,8,8,8,81n+/ * Jg~( ,81n+2 * J`7Jc+E &q  $a g}h *P Jd Bg} ,=,8,8g|,8g{,8gz,80,8g},8g},8gz,8g{,8gz",C!<d,8 d0.+@ "ee *P Jd f f * $ Dg} Fg{ Hg| Jg,Xg| g}[,< g}[,< p/w,<@ 7@`+L6@g|+S7@g+N "P+R7@g~+P w+Q w/. Nw~ Nw~ "w~@@`  Bg|,=g|6@g+W"w~.np6@g~+W:pP  w5.Y "+- w~5N]6@g+\>p d p-, +-,< $P g}$,<7@g+b w~/w+c w..,<@ 7@g~+g3og|+g g| Np w~/p,<b w~ Nw~ *w~,8-,c,8@ 7@g++7@g~+p g2nw}+++q g@ 3.p++7@g}+ 7@g~+z ,y,8 *w,8,8g{..,< (p,8",<//0D+ ,,8 *w,8,8g{..,<`` (p,8",<// B`4B p@2n+ 2nw}+ , ,8,8g|,8g{,80,8 *w|,8.w|,< (p,8", <q/4B `+++)7@g~+ ,,8 *w,8,8g{,8g~ (w,8",D<++ ,,8 *w,8,8g{,8g~ (w ,8",<+ B`4B# p2n+# D2nw}+# ,",8,8g|,8g{,81,8 *w| ,8",<25B# `++7@`+)7@g~+' `/g..+( g/`"`.nw`0 ` Jg+l ",//0 //-,/Kp/,x PPp~7s x-00,8 1n+5 Z(+6 @ ",8 Z(,8Z(,8!!,81n+; ( Hg7Dc+L (P Hda ,D,8,8,8g},8,8[,8[,8g|B,8,8,8\",<d,8 dPh""0.+G "ee *P Jd f &3 $w  g~ Hg~h Bg~,Xg+N6@g+N[ ,Y,8 ,S,8 g}/g~,< *p,8A@",<'/,8,8g,8\,8g} g|00/g|,< *p,8",<1//0Ku,x 3 P01~3es xSETARG -0,8,<,8,<,< p3/g+b+s... Z8 B`a1B +p `4Nk(N{ 80`n+k &3 $a `h B`+m@ `: B` p.. `,< "p"/ `[ .nw:p+`/0@ ,w,8 *p,8",<',8 -,1 c,8,< p3/g~+{+ ...Z8 Bg[ 4N  , 0,8,8g,8g~,8g~",<1 g[ g0. Nw "w Bg:p+y/,X@`%,//,xP8]U@STR:STRING-REVERSERSTRING-REVERSE-0,8 1n+  0Z(+  ",81n+  P`Z(+  ",8 Z(,8,81n+  ( Hg* g g~ g $ j "/,x0 ~#Us xSTRING-NREVERSE-0 ` ,8 1n+  Z(+  "  ,81n+ " Z(+ " ",8 Z(,8,81n+ ' ( 00 Hg* g g~ g $ "/,x_@`8 ~#Us x,<,<,8,8,8@,8,8-,,85F 0 *P Jg~,<1(!6Fc+ 25D K *P Jd , :,8,8g}@,8g},8,8 n6@g{7 n "#,8,8 o,8g|@@",<d,8 d0.+ = "ee *P Jd f f * `[  Fg~ Hg~ b Jg Np7@g}+ J-,c , I,8,8g,8,8",<1, Bg,Xg}+ Z g}[  Np6@g+ P/g~ Nw "w Bg+ U g~.g2np+ S+ U p/g~ Nw "w Bg4D Z , Y,8,8g},8g} ,8g}",<1 B`7@g~+ \ *P Jg~ g~`.g/.,=g~,<,< w2nw+ k  $w `$ $w ` Np$,< &p  $w `% &w $w~ `% w~..B>w Nw~/+ _/,X/0D]/,x # (0 *CHAR-EQUALPCHAR-LESSP-0,8 1n+ s P0Z(+ t ",81n+ w Z( + w ",81n+ z Z(+ { ` "P,81n+ ~ Z(+ ~ "P,8 Z(,8Z(,8Z(,80(0,81n+  ( Hg,81n  +  ( H`,81n+ ( H`(0,81n+ ( H`-,[!!Z-,~,8,87Hc+ U *P Jda , ,8,8g|,8gy,8,8 ,8 ,8g{B,8,8,8 ",<d,8 dPh"!0.+  "ee *P Jd f &P Fd@ Hgz , $,8,8g{,8gx,8,8 ,8  ,8gy,8,8,8 ",<d,8B d0.+ ' "ee *P Jd f &  * Fg} Hgy Jg|7@g~+ / &8 $w gz(@h Bgz7@g}+ 2 &8 $w gzh Bgz gy/gz gy/gz *P Jd Np Pw , <,8,8g,8gy (p,8,8 ,8 ,8 ,8 @@",<d,8 d0.+ ? "ee *P  Jd f f &P Fd Hgz Np , I,8,8g,8gx *w,8,8 ,8 ,8 ,8 ",C!<d,8 d0.+ L "ee *P Jd f f g[  `[  Hgy Nw Pw Rw~,Xgz,Xg{/+ ^ g|[  g|[  Nw Pw~6@g~7gz /g{ Np6@g}7gz /g{ Nw7@`+ a3Np+ a "+ 6@`+ f p5N f w1Ng " +  p2.w+ h7 w,=g{,=g{,< p5n p6@`+ o gz/w gz/w2n+ og " +  $w@0 g|$ $w g| Nw~$ Nw~7@g+ wD13Nw~+ + y $w~ "w~$5B 7@`+ { @ "+ 7@g+ ~ w~2.w~g " + $w~ "w~$+  w.. w.0>p  Nw Pw+ j///D",x 8 8 8"KW 8  o~8s% xR PNGET $%%,8Z5D [ 85N v@@` $%,X$  -0,< ` ,8 1n+  Z(+  "  ,81n+  Z(+  ",8 Z(,8Z(,8,81n @+ ! ( Hg6@g~+ # (P Hg~7Dc+ 4! (P Hd , ,,8,8g~,8g},8g|,8 M6@ 7 M "r,8,8 N,8g|",<d,8 dPh"0.+ / "ee *P Jd f f * Fg} Hg~ Jg,Xg~ g[,<6@g+ 9 p/g~ Nw "w Bg~ , ;,8,8g}",`<',<,8,< p3/g}+ ?0+ J.g~,< $p g~$ Nw7@g+ E@ 0 "w" + F "w"  Pw &w a $w `%:w/+ =/ ",X//,x s _(!" ~9en xSTRING-LEFT-TRIM,8,87Fc+ S && $a@  `h B` , V,8,8g,8g",<.H",85B X  + [ , [,8,8g,8", 0<1/,x` NSTRING-RIGHT-TRIM,<,8,87Fc+ a && $a `h B` , d,8,8g,8g",<.,85B f  + r g[,8 g3.+ k /. Np "p Bg , q,8,8g~,8 s g~..,<``0 *p,8",<1///0 :/,xPh \STRING-TRIM,<(@,8,87Fc+ y &' $a `h B`00 , |,8,8g,8g",<.,8,8  5B ~  +  , ,8,8g~,8g~",<.H Bg5B   +  g[,8 g3.+ /. Np "p Bg , ,8,8g~,8g~ g}/g~..,< *p,8",<1@`0////,x]:] 0p tSI:STRING-REMQ-BUFFER'x+INTERNAL-INTERRUPT-BOUND-VARIABLES '(x2-0,<0,<,8 1n+  P0Z(+  ",81n+  Z( +  "P,8 Z(,8Z(,8 \@,8,81n+ ( Hg,8P1n+ # ( H`6D'+ ' , &,8,8 \HBB",<' B'7Bc+ 5 *P Jd , .,8",8g},8g|,8g{,8 ],8 ],8g},8g{",<d(4,8 d0.+ 1 "ee *P Jd f f Fg| Hg},Xg} g}5B 9 g~[  @/g} Nw "w-, $ Bg~ g,< '[,=g},<,<,< g~/. Nw} "w}  Bg~5. K , J,80 , F,8 *w,8",<',8,8',8 ^,8 ^ *w,8",<1+ Z $w~ g~$ Np3Nw~+ Y w3nw+ W , V,8 , T,8 .2.nw *w,8",<',8,8'H#",<1 B' &p $w '%:w:w~ "+ ?//,xP( "}*Q1PP( ~2en x:PRINT-SELF->STRING-CLASSSI:NORMALIZE-STREAM7Bc + b &) $a g~h Bg~ g) BgD7@`+ h , h,8,8 ,8",< g~ [,<,<,< w3.p+ l`+ y $w g~$ Nw7@`+ t1N+ qD0N+ t , t,8,8 ,8g~",< , x0,8 *w,8,8g~",< :w+ j/0 7@`+ ~ , },8,8 ,8g~",< @D%+ ~ "/,x* *@0 _U:D ADD-METHOD:PRINT-SELF*+)x:PRINT-SELF->CHARACTER-CLASS7Bc+  &+ $` g~`h Bg~ g) Bg7@`+ b  , ,8 g}Z,< *p,8,8g~",< @ u//,x|xx8@0 *++xEXPLODE->STRING-CLASSU*@b "NREVERSEASCII/,<7Bc+  &,  $a g~h Bg~7@g+ 7@`+  "*a -,+  ",-,+  " g~A@[ (,8 2,<,8,<( w3.p+ "@(07@g~+ 6@g7 2 ", `-, B`D0 `-+ 0 $w g}$ Nw "w BgL6@g+ '- Bg7@g~+ - 1N+ *@(00N+ -6@g7 3 ". `-, B`@ ` g-,:w B`+ /KW/,xP* @ ( EXPLODE*.,xU( OBJECT?EXPLODE->CHARACTER-CLASS-,p/7@g+ 9 / @0Z-, -, $ -,+ ;@d /Z-, -, $/-,a,86@g+ ? $-,+ ?//T+ ( 3*.0xSXHASH->STRING-CLASS , B,8,8g",.R< /,x` @SXHASH*10xNAMESTRING->STRING-CLASS $%P ;W g $/$` CNAMESTRING*21xU 1SI:ALPHA-TESTSAMEPNAMEP->STRING-CLASS ( z0?,X g/(2]:HP0 FSAMEPNAMEP*33xALPHALESSP->STRING-CLASS ( z0<$f,X g/1oTE(2@ I* 4xLESSP->STRING-CLASS ( z0<$f,X guj"/(2H LLESSP*54xGREATERP->STRING-CLASS ( z0<$fG:u g,X/(2X OGREATERP*65x+INTERNAL-LOSSAGEU*U*UMixed mode ALPHALESSP tests don't work in oldU;\ lisps778899::;;<p<<x< x,8,8,8,8Aa0B + \ ga1B + l , Z,8 ,8g~",< Bg4B l+ f ga0B @0+ a , `,8,8g~",< Bg~+ f g !-, g~-, & $4 "a6 4B l7@`+ l , l,8,8 p g~-,1 g}-,,8",<} , o,8,8g``%,8g},8g}",<8/,x<(( RP EQUAL->STRING-CLASS `a0B + u ` g+ u .P "/,xP qEQUAL*==xFLATSIZE->STRING-CLASS7@`+ g~[ /.,8 ,< ,<7@` + } `2Np+7@`+ p..+B p.w-, + ,,8,8 ,8g|00..,< *p,8",<-/:wA@a B`+ {//+ g~[[W/,xS* xg$f`@0 vFLATSIZE*>>xP`%FLATSIZE->CHARACTER-CLASS6@`7 "U/,xsp@0u*U*W*>?xPURCOPY PURCOPY a string this longy@@AABBpw(F0CCxC xPURCOPY->STRING-CLASS S?,<:,<,8P ga0B + g[  Np4.5n .+/.&... Nw1n+4 ,,8,8;,8g~",<} " Y,8dB R2.w+$& BR * JR R..@/RG;,< "p? g,8XB(/0@/ R/w-, BR,XYZgXC`[gQC` "p? `,8QB(/ p4n8 ,8,8,8g,8g~@0,8<,8< *p,8",<1,X/%/,xC@PP8`u *?CxUSERATOMS-HOOK->STRING-CLASS $% g-, $-,2AH z <$f-, $-,-,uj/,x@`=USERATOMS-HOOK*DDxUSERATOMS-HOOK->CHARACTER-CLASS gZH-, -, $c-,-,}ju/,xP`C*DExK789x*FORMAT-STRING-GENERATOREx*ARRAYW*U*W@F FxPROGG0008<RETURNARRAYCALLT..60IpW*]jW+INTERNAL-TEMP-MARKERJ JxCXRT..61KpL JxGO?bGcGHbPHXI bbgJUPgJJKPVLUUgLLKUVUegVbb ?W Wb^bLGMxU(` *TYI#-\-PARSE+internal-tilde-macro|M,< p0N+LM0  Np+O0N.+ON  Np "p*Wc/,xhHSETSYNTAX~MACROOOPNxU:F0FBOUNDPSHARPMPNNNQx+internal-doublequote-macro|M,<,8 p@`0N+e `,< ,X,8 *p,8@ ",<',8,< p3.w+[+c w/p/.Zg,8g[`,< $p Bg@  g%:w//+Y/0B,X/+k0N+gM+g -, `-, B`M  Np u+R//,xQO,PQxmmcdrside|U:U*Uside-effectsp|TO-CHARACTER-N RRE!$`hcS!!<$$:2'mo2**++(())qpqrrs""#331/0-./0-. xGC-DAEMONGHNCONCGENSYMSYMBOLPU+UoATOMCARFUNCALLSSTT;;T;TUT;TUVS5JVSGWS;S;W;SxSSTATUSX x;