; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading SHARABLE 47   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071SHARABLE47VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xEQPUREU:U*uERRORPURE must be "T" when loading SHARABLE! #xBOUNDP*SHARING-FILE-LIST*PURE-SUSPEND+internal-page-map|%% ''xANNOUNCE-&-LOAD-INIT-FILEu*UjUxPUTPROPLSHBPORG{)++x*PURENORETGETU*U*UBPENDFLUSHPROBEF*TERPRI*PRIN1+INTERNAL-FAC-BREAKOUTFIXNUMSINGLEU*U*UOPENTRUENAMEFLSTBLGETDDTSYMHACTRNDDT:SYMLOD:VP VALRET*APPENDU*U*UDEPURIFY-SYMBOLCLOSEJOB-MSG-FILESQUIDMAKUNBOUNDFILEPFILEMO*ARRAYU*U*UCOMMUNIZE-SINGLE-FILEGCTWAGCGCMKLDEDSARFILEMODETTYMEMQTYIU*U*UTYOPAGEBPORGPURIFYNOINTERRUPTBASE*NOPOINTPRINLEVELU*U*UPRINLENGTHDSK:LISP;LOCK MAILAPPENDDSK:LISP;LCKMAI >RENAMEFSLEEPDATEDAYTIMEU*U*UUSERIDPRIN1INIT+internal-call|CORTYPDEPOSIT-BYTEDSKU*@1SUSPEND*REARRAYSUBR,8-,-`dC,<,< + "a/C4B ` .t $ "a/ + ".tˀ7B`1z8w{4rP`0g+ ",<,<0 & g}1`3 g}`@ g}`51 Bg}+ 7,83,8H@` ",o9 Bg3`=`Y;4M=zKu)g0B+& I,841@K< ;`M "5B)`I@ `5+ As`aA $!,SA3`i=zKu)g1B`a3`ig 8an`i!0@a g`C@@g["ZZ1B`}E& "`G}$"zU g} "-,0@ `-, B` ,B,8,8@dC,8KK<%K "&`M "'0 @O,8@&6@g`7@```3 `X ` `5 C `,+P "`[gL  p+X`G4BX[g-,1 $-,@c-,1 $(-,g Bg}b`[Q)5B] `[g-,@B! B``[gqS`3D*`[g}[g -,3-,ZgZ BghD``U + $+ "+aWB!-,1%+k%+m@%%,8`7@``[`[`CZ`AH0 B`` " , Bg~,<"D" * Y-,-[.],8a,8Q `4. " -. ,~D0,8,8R",o9 Bgy-,1+0@(2 4B `5. " $-. a4_1 " + ,,8,8S@(",o9` "`# ,8,8*H(0K< *ZY`c ` NpS "p B``2z85 geziE|5g /,83K< 7,8003zkYW4Rg,8g~",< gjY A,8Zg[",<Z K1,8ZgZ[",<jZ S,8[g",<Z [1,8`",<j[ ,2,81Zg[",<Z ,7,8ZgZ[",< s,8 "K< ,>,8% -,1,8g~",og ,83K<@``0 gj\ "(`C,D0` $4 "ai,< p0.`)3nw~`K` .` $5 "pai  .`5.V p&.' p&0( 0 (N@+ @`K4.b p&. p&0@'( (w| k $p2a "p6' wDD`' p&.' p&0( 0 (N@+A.4N p&..w  m "pai5Bo@@w} .`@A.  0 Nw}; p&0@ # (w} &7,< $p "p6B * / p&. p&0@'( (w} k $p2a "p6' wDD`'@1A.3+ 1 "pai`' p&. p&0'( o 2 k $p "p6' wDD:p+F ,,8`0,8g|3",<83+/,< p@@0.`]&.' p&0( 0 (N@+A.[ p&. p&0'( 0Bw}G0,< (p k $p "p6';@0DD/:p`3 g~ , K%, ,4,8KK"oq,8`7@``y ,;,8`[0[gZ[",o9Z` B``i  " ,/,x will :PDUMP over existing file ? P to go ahead, or RETURN another file name*D7x_eH?DDT symbols?7IFiles open during PURE-SUSPEND -- P to close them" /_0x=g_x;LOCK MAIL file not available -- waiting 10 seconds. /:U/ ::09COMMUNIZE-FILE-ARRAYCNAMEFINU(aFILLARRAYFETCH-FILE-PAGE|CORBLK,<,< $sA!: " $e-. ,d,8s!A@`0",o9-,1+ ,<16 +isu~ ,8,8g",og `7 8D$1`~+p_-s`C`sK;,< p0.`K(Nx+ ,8,8K <=N p&.' p&0 ( 0 (N@++5N $5 "pai 4. &ws "paw B`4B  , ,83K<:w:p`1`0s`C "/,x@u7xeH;File not shared since it could not be opened is not in PDUMP format".U*RK<X9FILE*OUR-PAGE-MAP-ADDRESS*ITS-VAL-MMPEADCONSNCONS1D5AAAA+$11`?1m+21D4`O1y`{ -, Cd+@++  Kd+@G?N8@ O;d$.0 P;Dd..0-, B=;d8D@ -,{ " ,x =  ..08 6 8eN`ydN`y{@8 Xy@ " ,x Q.-,~+-,B@`,B,X$>,-``},-`,X$> -o{D ++<@++ @@ s S;$\WC0l86X.u*W|(?{3C89FH9BLTARRAYLOADLISPFASL/?@?xu  )+xNREVERSE[ -2UC-2U[ 0-2U " ,x  8an+H[ C,8@7M``[ZL`-,0b02 -,fb>+ZA $a [[ @l,` LH u*U$QR,x9QOPSYSINFILEERRSETTOPS-20PSU*U*UUDIRITS>LSP*DEFAULTF*PRINC)*TYOU*U*PNAMESTRINGFASLOADHOMEDREVERSEMAKNAMMERGEFNODEFAULTLSUBR-00*0 4NBzf=vig D @ ( -,B1BC &mDz