; U8(U*UjUDEFPROPLSB:DEFAULT-DEFINITIONLSBLSBRUNAUTOLOADxSETQ*SOURCE-FILE-INFORMATIONQUOTEU*U*UDSKFORMATFLRMAT204:MODULE:SYSTEM:COMPILATION-DATE(U*U*U :LISP-VERSION2057:FEATURESLOOPXLSBU*U*ULSB:CIBOOTPDP-10FASLAPNCOMPLRCOMPLRSHARABLEMACLISPPDP10BIBOPU*U*UBIGNUMFASLOADHUNKFUNARGROMANNEWIOSFAPAGINGMLU+U*UITS:COMPILER-VERSION924     xORSTATUSFEATUREGETPPNU+U*PANDLISPPUTPROPxEXPLODENRECLAIMFLOORMAT-FIND-SIGNIFICANCESUBR,800#F.,: "h $@(} [ A,/1L"+0L..Z5Dh` U5 Nh@,Z,xPFLOATMAXP "FLOORMAT-DISSECT-FLONUM,8,<S,<S,8,8 -,},:5N . 0 Np Pw+Lh Uh "h Bg B`[g 80N+P".Zg Dg Nw}U$UH[g 81Nh+" p5n[g 81N+Ut:phUt w$.[g @/0.Zg BgtP Nw+U\Zg BgUp7@g+/[g 81N"+/ p5n)[g 81N+*h4U#(:pU( w$.[g @/0.P>w~Zg Bg Nw+#U7@g+=Zg Bg[ 80N+6".Z Dg Nw}@P+7U)\Zg DgU)HU7@g+= w~$.[g @/0.Zg Bg Nw~+7n@ U,U$4 w~$w}.w~ Nw~U@ w&.h5PC w&.:w~>p Nw+?UT,8``@@g $,X w}$nw ,K,8 *p =,8 "h,8",<U0`  Nwh@Uh "w-, $p-, $w~-,0Z $w-,U6D//@]//,xp ARGSW+@` xFLOORMAT-HAULONG  x,8#@(} @P12t+X..&2t+U!z022..02u*U..9*MR/P)TIllegal precision (number of digits) specifiedFLOORMAT-RESIZE-FLONUMERROR^,8,<[ 8Z[@ @ZZH@[H H-, ,< ,<,<,<Q,< w}4ne3nw+kUT ,k,8,8d*-, g-, $!-,:,8",<"UhU@ p2nw}+|U\ p3Nw}+q .$nw~>w:p+mUL w~-, QC` w-, $Z` QD,8 p-, &Z`QF,80 p-, Z `QB g-,/0t+U$ w~5.". 0/pw~ Nw~hCU p/w},< $p ""#,< w}&p w}&p,<,< w&. Nw2rh+ 2R+ w&.aP+ U#x:wh U#d w$w|-, QC` w~/w{.w}-, $Z`QDZ,8 "w  Nw}-, QC` w}-, Z`QBh ,,8,8 *w{,8",<U*h $A@m g!//U/Ku/,x! Z! xFLOORMAT-FIXNUM-QUICKLYPFORMAT-TYO,< p1n+$&.,< "p#4/UH,\&..0,< "p$} /,x8 # xFLOORMAT-ZAP-FIXNUM,<,<,8  $w ""#,<UH w4N7 p&. w& Np&0.2,< "p$>w~@6@`+6 w&w5P6/+7UT(/+,U\ "//kU*U,xH ($% xMINFLOORMAT-FLONUM-SIGN-AND-PADT"U*TFORMAT-REPEAT-CHARSTANDARD-OUTPUTFLOORMAT-SIMPLE-FLONUMLSUBR,=g~,=`Zg}Z[,<Z[,<,86@g~+@  w~2.w+BU $w~ g}! Bg}U[g},<Zg}[,<Zg}Z[  Nw}.p w}/,<,<3.+O5po@ n6@g~+O6@g~+o..3nw~+oU8U$P6@g+Q * JgU` ,V,8,8g~ w|=/.,< *p,8",<%U/!  w|/ Pp.pw Nw $p ""#0 (w &w~ $w} g,<& &p &&C $w,< "p Nw}$ "'$ w4nh w}&w g~ $w,< "p$/j U "'$ w~5.k ./nw~7U#`00 .,< "p$ "w}#/+hU w5n7@g+s g5NsgU$  . Nw (w &w~ $w} g& Nw~ w (04Ny "($U$H "'$ p/w|,<  $p "(( g~ $w| "w~$/D+U#d4p (w &w~ $w} g& $p @ "" Nw~# w~& && $w,< "p $ "'$ g~ $w "w~$/@ +U)\ (w &w~ $w} g& && $w| ! Nw~ "w~$ ./p,< $p "((P P0 )j "&/U|//0:u,x~@*`89)** x,8,<,8,<,< w5. .u/nw7*U\ ",87@g+&6@7* . g/p/,< $p "w(/6@(=U7@`+( "+$Uh w/0 W/,x&`(&+ xUu*+FORMAT-PRINCFORMAT.FLRMAT-1",H+COLON-FLAGATSIGN-FLAGFORMAT.FLRMAT-2,8,8 ,8,8 Bg~ ,7,8,8 g~5B4@: 7D-+3Zg}+3U, g}U-, h@U,8,8-,8-,8g},8g}",<)Upu*U/,x`+LEFTFORMAT-JUSTIFYfmt.F.op|,8,8[Z[ Z [,8 Dgh,8,8Z Bg~[5B@ ".Ut,8)P0Zg~ Bg~[5BC ".U,8,8"!,8,86@g|+U5FJ6@-+J5JJ g{t,+dU g{ Bg~ ,T,8,8H  g~5BQ7D-+PZg}+PU#x g}U#d4 -, U#P,8,8-,8-,8g},8g{",G"!<)U#<+dU5F]6@-+]5J] ,\@",8,8e,8g{,8e,8f,8,8f,8gx",G"<0U)p+dU)\ ,d,8,8g,8g{,8g,8h,8,8h,8gx,8g{,8,8gy",<0nA@D"U*,Ul/,x/ /,"jU/ /.80 xFORMAT-CHAR-TABLE#FORMAT-CTL-ONE-ARGu*T1102x Can't print ~D digits to left of decimal point ;when there are only ~D significant digitsFERRORFLOORMAT-EXPONENTIAL,=g},=g~,<  w3nw+q ,q,8,8,80 *w],8 (w,8",<3UUZg}Z[,<,8 w~3.p+v7@g+wUh $w~ g|!UT[g|,<Zg|[,< Z[ ,8 Nw} w5. . :!/nw "+$+U87@g}+ "3$hCU$ w}/w~,< $p ""# w& w}/w},<,<,<.rw~5P w|/.h00,< $p g~( "($/+h(0UD "w#U0 "'$ w}&w w P,<&.,<,<U\ w4N w 5N g~+U#<&w w&w Np..40 Nw{ RwU#(,< "p$ w&. Nw d/+U#/ "'$ w~:5." ./nw~70U)4 .,< "p$ w}1n+)&...,< "p$/0th++U*7@g++ g$U)p w}&..0,< "p$//uj,x2@*@i444 xFORMAT.FLRMAT-3 ,7,8@ g},8,8g},8g},8-,8g|,8g|,8g|t P",<4UH/,xP*1fmt.E.op|,8,8,8[5B= g B`-,6A@ U,8,8Zg~ Bg~4B@[@h DgUhZg~ Bg~[5BC ".U|,8)PZg~ Bg~[5BF " UL,8Zg} Bg}C [5BI gUt,8Zg} Bg}[5BL&@ "(UDZg}[,8,86@g}+W ,VP,8 g|5BR g{U#<,8,8g|,8g}=,8-,8g|,8g|,8g|",<4U#(+_U# ,_,8,8`,8g|,8`,8a,8g{,8a,8gxn,8gy,8gz,8gz,8,8",<0U$ U(D_/,x/ /5X85 xu1'52xFLOORMAT-MONEY,8,<,<-,[,< *Z[,< $Z[,< w.p p/,8,<,<3pw}+~ ,r,8.w},< *p,8,83",<Uh0/ $ g! g-,[  &Z[  (Z[  Nw~ Pw~. Rw/ B` Pw RpUh@= w~5. ./nw~ "+$U ,,8P *w,8,84",<UX w}/,< ! $p "((,< w~5n "'$ C ./nw~3.w|+ $w| "((+2U# $w~ "(( w|/w~ w~/,< $p!@ ""# w|&,< "p#/@ 0+2U( w5n "w}# ./w,<  $p "(( "'$ $w{ "((/0t0+2U$H $w ""# w}&,<  "p Nw# "'$ w|&w Pw| w~@C3nw{+,/w{,< $p ""# w|&( Pw|/U*, && $w~ "w|$ w{h/w~,< $p "((/U/0Ku/,x /` b6% xFORMAT.FLRMAT-4B!,8,8,87H-+:6J-+:[ 8  4.: "3$U\,X,X,X&6h4U@ RIGHTfmt.$.op|,<,8,8[5B? " hhU,8Z Bg[5BB " UT & Z g[ ,8,8 Hg~Z [5BG ".h`U$,8 g},86@g~+P7D-+MPz g}4.M "3$Ut g g~ `6H$+cU7D-+\6F-+S g}5.\U@0 g}5.W .[ @/-, QC`@07dU( .,< "p$ g~/. NwZ "w Bg~/UD ,c,8,8e,8g}@ ,8e,8f,8g},8f,8g|,8gz,8gz",<0nA@`U#xUt//,x7"}.x /6x<7 x1872x;