.~#<> decode.lisp by nil on RJF-E510 at 2007/9/26 17:56:14\ using 8.0 [Windows] (Oct 23, 2006 22:40).\ Optimization settings at wfasl time:\ ((safety 1) (space 1) (speed 1) (compilation-speed 1) (debug 2)) *)"8.0 [Windows] (Oct 23, 2006 22:40)Ag158<*source-pathname* pathname decodelisp unspecific  decode.lisp.\  /*UV$WtWVFɋuÐ null 0+ @ decode.lispLN<top-level-form <Q@ dfloat2bits  dfloat2bytes /P(UV<tWEtW׸WWhRP3ɱЋEU^W'EɋuÐ x02{Nx ans p3+ @ dfloat2bytes /J%UV431UTE]܋]T]܃UE |ʋɋuÐ xans02{Nans x i p3+ @ bits2dfloat /(UV$@3ɋu x0+ @ bytes2dfloat /(UV$@3ɋu x0+ @b2i aref /2UVDtWUԀtWE䋟׺u7UEp/E3Ҳu/p)jE܋E܋ u";|3EɋuË_W'EƋ_W'͋Ӊ]؋W';tЋ]؉]؋E3ҲcW'EЋ]E UuJ+UpCË^W' ]uGuЏEEp<3Ҳ]u@p:E܀tW]MU܉]̋W']̋맋ЋEЋ_W'E봋Ë_W' xans02{Nx L i ans p3+ @n2b integer-length calc-array-size  .inv-s-aref /ZUV\tWtWE^׉E]IË׉]ԋ^W'׃WWhRP3ɱ;}tE܋EW[;tLE܋]jEE[tW;uЋW+E̋EЋ׃WWujuRP3ɱEjE؋E؋ ]u;E|)ËW+VU䋟W';u EɋuËU3W'U܃ uRP^׋EcW'E3Ҳ]upE؀tWlË_W' x02{NL x ans j p3+ @dparts typep x quote  double-float assert-1  dfloat2bits aref subseq b2i zerop every /bUVLtWtW#Eԋ׋FWWWRP^׀tWEԋȀuӊHuˋ^׉E3Ҳ^W'EE3ҲЃ hRP^"׉E܋E3҃ hRP^"׉EE3ҋ^&W'u*E)Up"Eܺu$;t-EܺuV;tq]W'EЋW';tӋ^*CU^.W';tjEEU܃ uRP3ɱɋuËW';uE3Ҳ^&W'Eċ^*CU^.W';tjE몐 x02{Nsign frac exp ba !p3+ Ag175@<special  nan-template simple-augment-environment /4UV<WtWVǃWWWWWRP^׋ɋuÐ null 0+ @<top-level-form <WQAg176@< nan-template  dfloat2bits />UV$WtWF3AWc;GuF^׋Vɋu null 0+ @<top-level-form <WQAg177@ nan-template variable LN<!!<record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<top-level-form <WQAg178@</ WtWuÐ null 0(+ @<top-level-form <WQ@makenan  nan-template copy-seq  chars2num n2b start1 end1 replace  bytes2dfloat /@UV<tWEtWNA_;X}D@;GuW^׉EE^׋^׋ЋEhv&jv"RP^*׋E^.ɋu c02{Nh c p3+ @ chars2num aref  char-code /kUV4tWtWjEEjE؉E܋E؋ ]u;E|EɋuËU܋W';tE3ҲcW'EEU؋^W'^׋ ]u0]p)]3Ҳ]u)p#E؀tWErЋE_W'ȋË_W' c02{Nans c i p3+ @ num2chars coerce  letter-lookup aref /cUV4tWtW߉E3Ҳ|u$;3]tWE䋗^W'ɋuÉ]䋟W';uӋ]NAW;P}D@;GuW]E܋EW'ЋE܋^W'UW+EEcW'tW]T n02{Nans n p3+ Ag185@<special  letter-lookup simple-augment-environment /4UV<WtWVǃWWWWWRP^׋ɋuÐ null 0+ @<top-level-form <ZQAg186@< element-type initial-element   make-array  letter-lookup /F#UV4WtWVvvRP^׋V"ɋu null 0+ @<top-level-form <ZQAg187 @ letter-lookup variable LN< !!< record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @< top-level-form <ZQAg188 @< / WtWuÐ null 0(+ @< top-level-form <ZQAg190 @< aabcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-+ ,.:[]{}:;"\|!@#$%^&*()_+~`<>?/list coerce  letter-lookup  char-code  .inv-s-aref bad-endp-error /\UV<WtWFV^W'E;utWɋuËIueEWWEEW[ENQ_;Z}TR;WuWU܋E^"׉E؋EU܃ uRP^&׀tWE{^*;s느 null 02{Ni p3+ @< top-level-form <Q@my-decode-dfloat typep x quote  double-float assert-1 dparts Inf< num2chars expt /pUV\tWtW#Eȋ׋FWWWRP^׀tWEȋȀuӊHuˋ^r3A|~MOqE׉}܉E‰Uu-;u6E3ҨuU;u^vE3Ҳ]u[U]pS\W';uʋV"E܋W'E3Ҳ]u]U]pU^W';uE܋^&׉E뙋Ë_W'E̋F*U^.W'EE؋Ũ uRP3ɱɋuËË_W'EЋF*U^.W'EċEԋUЃ uRP3ɱǐ x0 2{N sign exp frac ! p3+ @my-decode-float 'decode-float called on ~s, not a numbermy-decode-sfloat my-decode-dfloat ?/lUV,tWtW؋ȃuYEw_W{L\\\\\\\\\\\\\\p|UFW'ɋuËE^E^FU䋟W'^ r02{Nr p3+ @ sfloat2bits /UUVLE3WWhRP3ɱ3ہ|ɋuËE܋]؋]DU܉EԋEjE#E]3CEЉ]\}uM#و\]؃E ] x02{Nx ans i p3+ @ sfloat2bytes /d2UVDE3WWhRP3ɱ3.EET]܋]T]܃E|ɋuÐ x02{Nx ans i p3+ @ bits2sfloat /(UV$@3ɋu x0+ @ bytes2sfloat /(UV$@3ɋu x0+ @sparts  sfloat2bits aref subseq b2i zerop every expt /UVTtWtW^׉E3Ҳ|^W'EE3Ҳ\ j|RP^׉E܋E3҃ j\RP^׉EE3ҋ^W'u5E)Up-Eܺu/;t8Eܺ;W'EŋW';tȋ^"CU^&W';tjEuEu܏EuEЋU^*W'EȺ]Ћ^*3W'ЋEȋW'U䋟W'EċE؋UԃuuRP3ɱɋuËW';uE3Ҳ^W'EW^"CU^&W';tjE:Ë_W'k x0 2{N frac sign exp ba p3+ Ag206 @< special  snan-template simple-augment-environment /4UV<WtWVǃWWWWWRP^׋ɋuÐ null 0+ @< top-level-form <x%QAg207@< snan-template  sfloat2bits />UV$WtWF3AWc;GuF^׋Vɋu null 0+ @<top-level-form <x%QAg208@ snan-template variable LN<!!<record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<top-level-form <x%QAg209@</ WtWuÐ null 0(+ @<top-level-form <x%Q@makesnan  snan-template copy-seq  chars2num n2b start1 end1 replace  bits2sfloat /~?UV<tWEtWNA_;X}D@;GuW^׉EE^׋^׋ЋEj\v&jv"RP^*׋E^.ɋuÐ c02{Nh c p3+ @my-decode-sfloat sparts Inf3 num2chars expt /8UVTtWtW^r3A|~MOqE׉}܉E‰Uu-;u6E3ҨuU;u^vE3Ҳ]u[U]pS\W';uʋVE܋W'E3Ҳ]u]U]pU^W';uE܋^׉E뙋Ë_W'E̋F"U^&W'EċE؋Ũ uRP3ɱɋuËË_W'EЋF"U^&W'EȋEԋUЃ uRP3ɱ x0 2{N sign exp frac p3+ 2xAg212@<top-level-form < macro-calls setf loop-really-desetq endp when boundp  direct-calls store-doc-forms  load-scm-info update-xref-info  sfloat2bits  .inv-s-aref  char-code cdr car bad-endp-error consp null coerce  make-array record-source-file-1  dfloat2bits eq not simple-augment-environment sets  snan-template  letter-lookup  nan-template *source-pathname*  references !!!!!! dfloat2bytes !!! !+_2op aref_1d  .inv-aref_1d >=_2op !+ 1+ aref ! let* !>=  bits2dfloat !!!!!% bytes2dfloat !!!!!%b2i !-_2op !'ash !$length !!!- !!)!&!%1- n2b !!%!&logand !!)list !!!!!.!  logand_2op !$!/!!!calc-array-size cons listp integer-length dparts indirect-calls zerop !values memref symbol-function every =_2op !,!-subseq !'!assert-1 double-float-p !! sy_function = !0!!4typep unless assert  makenan !!!!!!+replace  chars2num !2copy-seq !L!!&!%incf !!)!!!!'! !.!$!/ num2chars !!!.!5!'!7>_2op !!!!3push > !Hloop my-decode-dfloat !*_2op expt !!!O!=!A!:!C!D! !* !%!&!F!4!G!H!I my-decode-float !error !U!Tmy-decode-sfloat typecode !!Wcase typecase ! !!!!"!#!$!!%!&!'! !(!!)!  sfloat2bytes !!!!"!#!$!!%!&!'! !(!!)!  bits2sfloat !!!!!% bytes2sfloat !!!!!%sparts !;!<!!%!W!E!F!0!!!!!V!U!=!>!?!@!A!!,!-!B!'! makesnan !!!!!!_!K!L!2!M!Z!!W!%!&!F!!U!V!!!O!=!A!a! /(UV$WtWF^׋ɋuÐ null 0+ @32x<top-level-form <)Q32yAg213@<my-decode-sfloat operator !!makesnan !!! snan-template variable <sparts !!! bytes2sfloat !!! bits2sfloat !!! sfloat2bytes !!! sfloat2bits !! !my-decode-float !! !my-decode-dfloat !! ! letter-lookup !<  num2chars !! ! chars2num !!!makenan !!! nan-template !<dparts !!!n2b !!!b2i !!! bytes2dfloat !!! bits2dfloat !!! dfloat2bytes !!! dfloat2bits !!! load-scm-info /(UV$WtWF^׋ɋuÐ null 0+ @32y<top-level-form <)Q3Ag214@< dfloat2bits  .de-args. M dfloat2bytes ! bits2dfloat ! bytes2dfloat !b2i !n2b !dparts !makenan ! chars2num ! num2chars !my-decode-dfloat !my-decode-float ! sfloat2bits ! sfloat2bytes ! bits2sfloat ! bytes2sfloat !sparts !makesnan !my-decode-sfloat !store-doc-forms /(UV$WtWF^׋ɋuÐ null 0+ @<top-level-form <)Q