;"I(U*U*USETQ*SOURCE-FILE-INFORMATIONQUOTEDSKFORMAT827:COMPILER-VERSION1131:CULPRITU*U*UGSB:MODULE:SYSTEM:SITEML:LISP-VERSION2122:DATE)U*U*U :SYSTEM-VERSION-INFOPNPUTExperimentU*U*Wal LSB 92.4, Lisp 2122, in COMPLR 1131  pu*]jUxDEFPROPT+INTERNAL-STRING-MARKERx   xORSTATUSFEATUREU*U*uITSGETLSBPPNANDLISPPUTPROPxLSB:DEFAULT-DEFINITIONU+U*ULSBRUNFASLAUTOLOADxPUSHLAMBDAXVERSIONW*U*UFILE-EXIT-FUNCTIONSxNOLDMSGPROGNTERPRIMSGFILESPRINC; Loading U*U*uFORMAT ([ML]DSK:FORMAT;FORMAT 827)  !!""##$$xCONDU*U*UFBOUNDPFERROREQUALDEFUNNFUNCALLCERRORAPPLYLISTIFYW*U*uNOT%%&&&'&'(&()&)'*&&(xBOUNDP*FORMAT-SAIL-TILDESAIL *++%+,,x*FORMAT-IN-STRING-ENVIRONMENT?W*U*USTRING--xWHICH-OPERATIONSCURSORPOSCHARPOSLINELTYOFORMAT-STREAM-OPSSUBRhb (yK (-..H#(]+@n $.+AT,x zm.//0z'Z/  anZ,x]? TY|@j]*Ug1*FORMAT-OBARRAYOBARRAY*112xARRAYFORMAT-CHAR-TABLEDOIU*U*U1+=STOREASCIILESSP0=-U:U*u@'23'321445454'6346%774884949xDEFINE-FORMAT-OPDEFINE-FORMAT-OP.RMacMACROUMACS::;:;xMAPCU*UjUMEMQFORMAT-CTL-REPEAT-CHARFORMAT-CTL-ONE-ARGFORMAT-CTL-NO-ARGFORMAT-CTL-MULTI-ARG<<==>>x*FORMAT-SFAPSTANDARD-OUTPUTFORMAT-TYO@@=6@?+ ,8,8?",<0(yK & $0: ? .+A,x1FORMAT-PRINC,8,8?nT",< 1PRIN1FORMAT-PRIN1,8,8?",<A]*@1EXPLODENRECLAIMFORMAT-LCPRINC,8,8B,8,<04,8U\7@`+![` Z` D`  NpA./1n +0.-+UT7@g+  pD.+U| pG.Uh NpU@@: "p@@@g+Up,8g@dg,XB  Q "//,x01FORMAT-TERPRI,8?nU*",<81%^W^ROUTFILESFORMAT-CHARPOS,8 k a,)</FORMAT-LINEL(yK,8,)</!z@`h7B?+. ,(L{7 0[,,84D",,|Ha*k7@D6@D+0_YW 0+,i;P,X7BE+/[+,`1(X1&FORMAT-STREAM-MAP,8  ,8,8,85D96FD+7 0H$  J`U,7HD+9 E JgU@+BU A(D{7 +@ g0B+?6DD+>4: 0 J`UT+BUh-, B`+BhAPUT g-, BgU7@`+D `AZCg~U8,8U\7@g+K[gZg(! B` Dg7FD+I1B+DU1B 0u`]Cg~+DUp "/,xh12FORMAT-FRESH-LINE-1Qw*FORMAT-FRESH-LINE ? "G$Fx1MFRESH-LINEA,80@ ,84BU[ Z0JH+P & $H g: .+A+dUp `4J\[(Z ( D0H.+V ,[,8,8f,8g~",<.U@ 5BdU `4Jb[(Z (0H/+\ ,az,8,8g",</Uh4ndUT ,d,8: ,8g",<UhU\/ "/0t,xHp1NFORMAT-TAB-TO-DESTINATION,8,<,<,< p.w3nw+s w5Nm p+th!PU w3np+o7U@ p/w w/0.&w$w.w+tU\ wUHu*/,x 1 gFORMAT-TAB-TO-1FORMAT-TAB-TOLSUBR-0 : ? "IF ",x JuTAB-TO,8 0  (,< 1n+|Z(+}j4 U, "U4B~ +UT .U@,<,<,< `0,84B  0[ Z0JK+ $p "w~-, & @Ah $K g .+A "+ U8 `!D& "/<5B gj7U` "U$ /5B ,,8,8g",</U Nw &w $p "w~I NwUH w3Nw]+ `j:w+U\U|/ @] "/,x  1xFORMAT-FORMFEED-1Qh UFORMAT-FORMFEED ? "KF ",x @1FORMFEEDFORMAT:COLON-FLAGP  C,80,84B$[ Z0JL+ h M $L g .+A+,Up `4J+[(Z (0H.+% ,*,8,8.,8g~t:h",<.U5B,U gj.U\/2@@] "/,xM 81*FORMAT-STRINGPU*@b*FORMAT-STRINGNILCHAR-NFORMAT-GET-CHAR,86DN+9 [N7@7:Z&.4N5(} Z=n4h!z[.@6,x:e_S:,@k:U(U%-*$OOxNIL 1/*FORMAT-ARGS*FORMAT-ORIGINAL-ARGSFORMAT-POP-ONE-ARG@ 7DP+=[Z DP,x(hEO Q N @0-, ?-, $-,,B:U,xM?X:J `kPy@CJ>0 1:SQUID- ~A at decimal pos ~D in format string*FORMAT-STRING-INDEXU(0FAIL-ACTERRORFORMAT-ERR,8 ,H,8,8,8Pz,8,8S",<UH,8 ,L,8,8@z,8N,8Q",<TUp ,O,8,8g,8Nt %",<TU/,xR0xS H1DU0- ~A~:[~; (decimal pos ~D in format string ~S)~]FORMAT-ERR1,8,8 ,W,8,8,8_@=,8,8N,8S,8N",<UH,8 ,[ =,8,8,8g~,8`",<TUp ,^,8z,8g,8g~",<TU/,xU0x%jU*PS X1QGETLRANDOMFORMAT-CHARACTERFORMAT-REPEAT-CHARnot defined as format opFORMAT-CALL-OP,8L,8=>>=z mc(BV,8Z[,8[g,8 A 0B=+m7Bg "(B{Z0BV+k:0Q g~,g+U,Q g~Eg+j2U0B>+t7Bg "(B{Z0BV:+s g~,g+U$ g~Cg+U A 0B>+}7Bg "(B{Z0BV+z: g~ P,g+|U g~ PEgUtu BP+U0B=+ gW,<[g~!P4B +U#( .U(,< $p "w:W/+U g~X0zUUu"/,x 1`*FORMAT-STRING-LENGTHFORMAT-PROCESS-TEXT,=S,<h 0UH w2/Y+ "wP Np0N?+ t@M "+U@2O+g "U,4B wH..-, BS "+U "p@tb&:w+U\ w-, BS "Uht-/,x 1FORMAT-SKIP-TEXT,=SUH p2/Y +# "pP,<0N?+ "+U@ a2O+g "U,/4B" p.. P-, BS "+%Up:p+U\IP0 p-, BS "Uh/,x]*U* 1FORMAT:ATSIGN-FLAGCOLON-FLAGATSIGN-FLAGLENGTHMalformed operatorFORMAT-COLLECT-PARAMS@@M@@Z @@[@@[,=S-,~ ,<,<h UH "wP Np1n+30.+3U, *@@g w$. p/0. Jg Nw@($+]U0N+6 * JM ( H[+]hBUT0N +: * JZ ( H[+]Uh@ 0N+B6@g+@7@g+> w-, S +?U8 "U$ `-, B`U:@@g@@g@@w+]U|0N+L7@g+G@h ` "w-,@@g@@w B`Ut:w@ @ "wP `-, * B` Jg+]hU7@g+P ` "w-,@@g@@w@i B`Ul p1N++R0N;+VU#Qh `-, * B` Jg+]U(0N d+[ P\ `-, * B` Jg@ +]U#P w-, BS `+`U&:w3/Y+*\0zT+*U$4/t"/,x P1&FORMAT-SKIP-PARAMS@@M@@Z@@[@@[ P,=S,8,<UH "wP Np@:1n+i1.+mU@1N+m1N;+m@:@1N++m0N+nU, * J`+{UPH!h0N+r * JM ( H[+{UT0N +u * JZ ( H[+{Uh0N+x:1:w * J`+{UT w-, BSt `+~U:w3/Y+e\0zT+eh UU//,x X1bIMPLODEFORMAT-INTERNm,8-,,8,<UH7@`+ h[`  Np1n0+0.=+U@/. h-, QC`UZ` B`+U\/0@b/ 1-, 2 `^`,8`@dg*`B,X/+]*D2 h1Unbalanced backslashesNREVERSEFORMAT-READ-OP SP S.0,<@ -, BS p0N.+#,8@BSh,<UH p2OY+_0zTUT "p P Nw1N.+ `-, -, 1:p B`+U\ p..-, BSt  `_UL//^+&h U@(.4.%[3+&Z3U,/jF,x 1MAKNAMFORMAT-STRING-GENERATOR`,87B "(`0zPEsVDXJ ` " -,/,x]+U*U 1'*FORMAT-STRING-GENERATORFUNCTION*aabax*FORMAT-STRING-CHARPOS*FORMAT-STRING-LINEL*FORMAT-COLLECTING-STRINGUnhandled sfa operation in formatting to a stringFSFA|,8,8,80D0+H 5.6 b/P:2/c+3 "+YU ,5,8,8",G$1<U,+YUp c*-, BcT `1N+:0N+;U| "4+GUhH:0N+= b+GU0N+B b4nA:Ah/.-, +GU8 "4+GU$0N ai+E b..D.-, +GU b$ ..-, UT Bb+YU\0DL+PDn b4NL ,L,8,8",<U(UT ,O,8,8g~",<U# "+YU H:A0D/+R b+YU#(0D/+T c+Yj#QU#<0D.+V0L//zS798+YU#P ,Y,8,8Z:,8",<TU#xUH/,xd]+U.U H1 ,*FORMAT-STRING-STREAMSFA-CREATEeed4exFORMAT-FLATCFORMAT-FLATC.RMacff;f;x*FORMAT-FLATCis an illegal operation in a format-flatcP FORMAT-FLATC-STREAM,8,80D0+a 5.^ "+fi !jUp g..-, Bg+fU\0D. G"+c0z<;`+fU, ,f,8,8g,8",t ]<TUTUH/,xg 1 Z*FORMAT-FLATC-STREAMu(dhebh4hxFLATCFORMAT-ONE-STRING,8-, *4-, 6N Y S,Xi BY,8UHLY4Bu] B``,8 g_ $P1j*`X $ Dg,XB+mU\ "W*U/+ 1gSTRINGPGarbage format control stringLISTFORMAT-INTERPRET-ARGD",8-,MZ[[N6D- (-h+} "j%4B} * J-UU `@4N(N{ 8an+Uh `iH 1+UT7B-+ `j4B `-,1cP BN `i+Uh `(N{7 80A&+ `j0zU+U` `-,0,8,8U\7@`+[`Z` Bg D`7@ "(B{Z1Bk+G* g@+ U0=>>=z mc(B[gV4B[g@gP+U[gB^UlZgX+ jZUp "/U@/+]*U 81v"FORMAT-:^-TAGFORMAT-^-TAGSFAPFORMAT-INTERNAL,8,8,8 "-,,8 "-,-,pQPN g~0B-+8,8e ,',8z,8",</U,,<1n"+*-,0u" +*Uh "lUT/ * (4D"(-,cp?b ?clmz Vt} $2`m-. gxk+ U c_@ /,,8Ca,8` $*`CUB,X/+GUlmz Vt} $G-.0 1h gx0B+= gxk+GUt(B{6 +AZgx5BA[gx1D+A Dgxh@bU0 gx-,-,?? gx`mm B? gxk,U+ nA@kUUtU/+ `1 FIXNUMSYMBOLU( PCHARACTERGETCHARN,8(yK7L+P(L{( Z 01Ln+N1Lo+P7@-+Ooh"!#c ,x(hEO$Q+I#c $p$p`]?  G"(1i p1H,8,<W,<U\@ w4nX>w "p@+UUp "/0*W/,x x1SARGSqqr xW(A?FORMATqrqr x*:TRUTH-.,-OFnN@-2^7@ "-z2Bs1B@&n xi@.,7T+bhCP(} ,X-,84`!z &,X,XAh]+H=Q-.,-OFnN@r-2^&n(Jxd(JxZU*@`*APPLYRIGHTCENTERFORMAT-JUSTIFY-0,< Z(,8Z(,8Z(,8Z(,8Z(,8Z(,8 p1n+r ./p,<ACTh "p)/+sUT "U@,8@: 7@g}+u g}+vU .U|,<7@g~!P+x g~+yUL .U8,<7@g~+{t g~+|U .Ut,<7@g+ gtW+U .U,< w~5n@nw~PH+U * h &4-,g?dh ? ` gs g,Ul,<P w~0.+ . Nw~U#( w5. @@whU#< p.w,<2.w}+ w}/p w~P/0.&w~$w~.npU#d"w.np,<0,< g}0Bt+ Np+U* @0Bt+&. w/ Np Pw+U*@ NwU)p $p "w~W ` gs $w@00 "w~W,8`@dg,XB//0.]*P,xPJfquur x()LEFTFORMAT-LISP-OBJECT-OP,8"E,8,87HM+)5B) *@v0z@ Hg J`h@QUH5D+ gC`+7Up ,7,86@Z 78 "v,8[,8Z Bg~[,8Zg} Bg}[,8Zg} Bg}[,8,8g}:,8g{",<uU,U\/,xtZu*Up1 $ &@&w =8NEWNAMEEQREMPROPCAR uw.Pw%*xHwxw=wyxH==3yxS &A&w =9)w%*xzwxw=wyxz==3zxFORMAT-TYO-DIGIT,<: p1n+=7@U\ ..p,< "p:U@/,x01:MINUSU FORMAT-INTEGER-1FORMAT-INTEGER,8,8,8,8J 5.E{4 @@` Bg~UH4FH6@`7K "|@U % g g~}/,x|X1 AU*@BASE*LESS*QUOREMAINDER,8,8 ~$,<0 ,<$~,8,< $p~5BZ  $p g g} $p g  h * J` Nw7@g+Y g@UT+[h U g NwUp6@`+] w3.w+ah@Uh w&w&~,< "p{/hUT6@`+c w3/~+gU8 w&~`m&~,< "p{/U$ w&~ ,< "p{//,xP1KU( *NOPOINTFORMAT-INTEGER-IN-BASE-OP,<,8,8,8 " "-, *-, ~ g(N{  8an +t(F{ `n +|h@ 0U, ,{,8,8[,8,8,80Z[,8,8,8g{",<uU@D+ U , ,8,8[,8,8,8Z[,8,8,8g{7FM+)SZZ[5B "U`W Np "pS !+UL "U8,8 Z5B 7!gz "h{P0U,8",<uU|U,/0D%/,xt@t}1 kUw.RD && ="w%*xwxw=wyx==3xO & kU*P&0='w%*xwxw=wyx==3xFORMAT-ARGMOVE<9P,8A 7DM+* ", B`UH $p[H(=&4B7DZ+ "@U@+UH#T7DZ+ ?j+UT "@Up:uZ`/,xiesX>(w%*xwxw>wyx>>3xNTHCDR$0,<,8 p5.& Q\ ",<\AP,\/.pp Q J`UH,X "pt/,x@1*,8,8[4F,t +,Up .UH,<7FM+/ .@/npU* "p//kT ,xp>)w%*xwxw>wyx>>3xG,8[5B4 "4iG:uUH Q/$>2#w%*xwxw>wyx>>3xFORMAT-NTERPRI@: ,84B7 +8U .U,<U\@cT p4n;>pC+8Up "/t]/,x15%[" >=u`w%*x wxw>wyx >>3 x&,8G[`4BC /.,<AZ "p /U\/,x(>>W+Ujw%*x wxw>wyx >>3 x,zxz=z9=3 x?zxz=z =3 x 7BZ+EHCUp,=S p2/Y+J "pP0N4Bh+J:pU6BM+R,<UH w@`2/Y+Q "wP Np1N+P0N+Qh mUh:w+KU\/U@,\-,1uj BS,xH>Dw%*x wxw>wyx >>3 x| LX>TW &>w%*x wxw>wyx >>3x,8 ,Z,8[5BW "pU\=,8Zg[,8",<JUH/kUjU,x0>T*w%*xwxw>wyx>>3x(3s1)=x*FORMAT-CASE-MORE?~:@[ is not definedFORMAT-CASE-PROCESSU*U FORMAT-CASE-SKIP~@[ should have no ~;bad arg to ~[;MEMBER[,8,8,<2D *-, ,87FZ+iTcP17HM+b0zT+,Ut-, BPL:0[4Be+gUZg BPUtTz7B+i0zTUl+,U`5DlZ!P[ Hg+lU([U B` g-,1!T BP6DM+pgU$ "4Bv7@` tB=i+rU$H7B+tU)4UH7B G#P+v+tU\+,U `(N{ 80 1i`n +{ `0zU+,U)H S(P,<0N?+~ "+U*2O+g&AB  "U*/4B" S..-, b4-,S]4B`0Bg "h$U/T,4B" S.. Np *p,804b,8U `-, BS] Bg B_ Bg`7BM+6@g++U60hU,[g 82og+Zg[8 83/g  + "+U6DZgZ Bg5BU@&D: "U7(4B +U6 g g4B i{R U67B+Up 0B+(+$U/1{R 7B+*UBHU$7B+,t@`0+*U8UL P///0ujU+8>[-w%*xwxw>wyx>>3xUnterminated ~[]{U*U*}<>()ASSQFORMAT-SKIP-BRACKET-,~ 4bSi,<UHZ5B20zTUp SL J`]` Bg0B+6:p+BUT @$0B+:>p5.9@b+CUT+BUh)@&   z |f Bg4B=+BU| p5NBBBh g0B+B7DM+A * JU8 `G `0+CU@+0Uh//,x](01/Unbalanced bracketsMismatched brackets,8Z,8^,8,80Z ,8,<UH S.. NpZz5BL g~0zUU p3OS+N@@g~iLUT]` Bg2B`+Q g~+]UhL0@@g~    z df Bg4BU@@g~+\U8A g1B+Z1B+Z1B+Z0B+\h@ShUt g~-, $0zUU$+Hh XU//,x1D,80 i,8,8,8UHY O$5Bc0zTUp S Jg] S Jg !j` B`0B+i g BS+xU@0B  +k@b+xUh g2Og+m@@g~+ph`=U| g JS] Bg~`Uh7@g~+s@Th g~_ $ Bg~+tUL $U8 `hX7@g~+x,8g~@dg~,XBU+ah*uUT/,x1_FORMAT-PRINT-ENGLISHNUM%xfmt.R.op|w+U*P%xzxz=z=3 xFORMAT:*TOP-CHAR-PRINTER*xFORMAT-GET-CHNAME.,8@0W,<,< "w,86D[+@cP6F[+ "w@+,U, w(N|A.  ",<@6@`+ p4N 0N+ t  "u+ U8.. Nw "wU$@U wA.? Nw "w B`Uh7@`+!P! "@ $ `C+U "@t  "w@U/+,U5B w@!hD.?4n wA.@4n ?j-U#( wH: A.4n ?j.U#P wA.4n ?@j/U#x wA.? Nw "w B`U@cP6@`+" "w@+'U)4 `i1n cP+& $ `C+'U)\ `@U$HH 7B[++7D++ ` "wE+,U*&A@` "U//,xControl-ujUMeta-Top- X=y!w%*xMwxw=wyxM==3x*FORMAT-CHNAMESBACKSPACETABU*U*USPACEFORMLINEFEEDRETURNRUBOUT?BELLU*UjHELP$ALTMODE *   !9 !" " # !" #$ $% %& &' x#-SYMBOLIC-CHARACTERS-TABLE Z'Bh0D-,4 -,4@,x(a4D0][ZZ2N+4[,xH10fmt.<.op|W+UnUBRACK%(((xzxz>z(>3)xfmt.{.op|%))(xzxz>z)>38x*FORMAT-ITERATION-ARGS^ ,8,8[4FDZ[ 4HCZ Z (@[ (4JA 2n +J (2n +J+Gh#PU@ 2N +J+GU 5NJ+GiBUp7HM+G6J*+J+GU5BJU\Qm6@M7K $m "+ UH g/0.U+l(>8/w%*x*wxw>wyx*>>3+xFLOORMAT-HAULONGFLOATu:].u%++,xfmt.F.op|%,,,x#zxz=z,=3-xfmt.E.op|%--,xzxz=z-=3lxfmt.$.op|u:]p%..,xzxz=z.=3.xSSTATUS/x;