(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Nov-93 18:02:03" ("compiled on " {DSK}export>lispcore>sources>CLTL2>LLFLOAT.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 16:17:34" "{Pele:mv:envos}Sources>CLTL2>LLFLOAT.;2" 101006 previous date%: " 3-Sep-91 18:05:23" "{Pele:mv:envos}Sources>CLTL2>LLFLOAT.;1") (RPAQQ LLFLOATCOMS ((DECLARE%: DONTCOPY (MACROS \HAND.FLOATUNBOX) (EXPORT (MACROS POLYEVAL))) (COMS ( FNS \PUTBASEFLOATP \GETBASEFLOATP) (MACROS \PUTBASEFLOATP \GETBASEFLOATP (* ; " the following deal with raw 32 bit numbers") \.PUTBASE32 \.GETBASE32)) (COMS (FNS FTIMES FPLUS FQUOTIENT FDIFFERENCE FGREATERP FABS) (* ; "UFNs") (FNS \SLOWFDIFFERENCE \SLOWFPLUS2 \SLOWFTIMES2 \SLOWFQUOTIENT \SLOWFGREATERP) (* ;; "Float and \float changed to coerce ratios.") (FUNCTIONS FLOAT) ( FNS \FZEROP FEQP \FLOAT \FIXP.FROM.FLOATP FIXR \BOXFPLUSDIF \BOXFQUOTIENT \BOXFTIMES2 \INFINITY \MAKEFLOAT MAKEFLOATNUMBER PutFloat) (PROP DMACRO ZEROP) (FNS SQRT) (DECLARE%: EVAL@COMPILE DONTCOPY ( EXPORT (RECORDS FLOATP) (CONSTANTS (MAX.DIGITS.ACCURACY 9))) (CONSTANTS (\8BITS 255) (\MAX.HI.FRAC 127 ) (\SIGNBIT 32768) (\EXPONENT.BIAS 127) (\HIDDENBIT 128) (\MAX.EXPONENT 255)) (MACROS .FLOATUNBOX. .LLSH1. .LLSH8. .LRSH1. .LRSH8. .LRSHSTICKY. .ADDSMALL2. .ADDSMALL3. .SUBSMALL. .POWEROF2.) (LOCALVARS . T)) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (\UNDERFLOW) (MAX.FLOAT (\INFINITY 0)) (MIN.FLOAT ( \INFINITY 1))) (P (MOVD? (QUOTE FGREATERP) (QUOTE FGTP))))) (COMS (* ;; "unboxed ufns") (FNS \UNBOXFLOAT1 \UNBOXFLOAT2 \UNBOXFLOAT3) (FNS \MATMULT133 \MATMULT144 \MATMULT331 \MATMULT333 \MATMULT441 \MATMULT444) (* ; "unboxed arg handling") (DECLARE%: DONTCOPY (EXPORT (MACROS \CALLER.ARGS )))) (COMS (FNS FLOATP.TO.BCPL BCPL.TO.FLOATP) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS BCPLNUM EFPN) )) (COMS (VARIABLES INTPOWERS) (FUNCTIONS ENUM-STRING FNUM-STRING FLTSTR FLTINTLOG DIGITSBDP INTTOEXT EXTTOINT SPLIT8 TIMESPOW10 \EXTFTIMES \EXTFQUOTIENT \EXTNORMALIZE \CONVERT.FLOATING.NUMBER \FLOATINGSCALE) (FNS \INIT.POWERS.OF.TEN) (DECLARE%: DONTCOPY (RESOURCES \CFNSTRING) (GLOBALVARS \POWERS.OF.TEN) (MACROS \POWER.OF.TEN)) (DECLARE%: DONTEVAL@LOAD DOCOPY (INITRESOURCES \CFNSTRING) (P (\INIT.POWERS.OF.TEN)))) (PROP ARGNAMES \UNBOXFLOAT1 \UNBOXFLOAT2 \UNBOXFLOAT3) (PROP FILETYPE LLFLOAT ) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FPLUS FTIMES))))) \PUTBASEFLOATP :D8 (L (2 VAL 1 OFFST 0 BASE)) @ABHIJJNIL NIL () \GETBASEFLOATP :D8 (L (1 OFFST 0 BASE)) @AdNIL NIL () (PUTPROPS \PUTBASEFLOATP DMACRO ((BASE OFFST VAL) (* ; "put the floatp VAL at offset OFFST from BASE. Used by REPLACEFIELD of floatp fields") (\FLOATBOX ( \.PUTBASE32 BASE OFFST (\FLOATUNBOX VAL))))) (PUTPROPS \GETBASEFLOATP DMACRO ((BASE OFFST) (* ; "get the floatp at OFFST from BASE") (\FLOATBOX ( \.GETBASE32 BASE OFFST)))) (PUTPROPS \.PUTBASE32 DMACRO (= . \PUTBASEPTR)) (PUTPROPS \.GETBASE32 DMACRO (APPLY* COMP.GETBASE NIL GETBASE.32)) FTIMES :D8 (L (0 N)) 2ekHdjokkakaIHIkعJIaJNIL (28 FLOATP) ( 17 1.0) FPLUS :D8 (L (0 N)) 2ekHdjokkakaIHIkعJIaJNIL (28 FLOATP) ( 17 0.0) FQUOTIENT :D8 (L (1 Y 0 X)) @ANIL NIL () FDIFFERENCE :D8 (L (1 Y 0 X)) @ANIL NIL () FGREATERP :D8 (L (1 Y 0 X)) @ANIL NIL () FABS :D8 (L (0 X)) @NIL NIL () \SLOWFDIFFERENCE :D8 (NAME FDIFFERENCE L (1 Y 0 X)) @Ai (7 \BOXFPLUSDIF) NIL () \SLOWFPLUS2 :D8 (NAME FPLUS L (1 Y 0 X)) @A (6 \BOXFPLUSDIF) NIL () \SLOWFTIMES2 :D8 (NAME FTIMES L (1 Y 0 X)) @A (6 \BOXFTIMES2) NIL () \SLOWFQUOTIENT :D8 (NAME FQUOTIENT L (1 Y 0 X)) @Ah (7 \BOXFQUOTIENT) NIL () \SLOWFGREATERP :D8 (L (1 Y 0 X)) @XAS@AHndIn{jHIHI@AIHHIA@@@dl8@@Hn$IjHjnHkظnHٸnIkعkj)k8j@j@j@k@jkjn@kعHdj#Idjj@bzjlll@bCllػHdlIظIlKlٻHnjKHIdnHkԸInKk@@@@[djLHjIjkHIظIlAAdlEAALn1MjLj%nLkؼlHlذnLټnMkؽkj)k:jAjAjAkAjkjnAkؽLdj%Mdjj_AbkjlllAbIll_LdlMؼMlOl_LnjOLMdnLkԼMnOkAAAA_dj#LjMjk_LMؼMlJdNjlLlذjKO/KO)HL$HLIMOKOKLH LHMINIL (537 FLOATP 513 FLOATP 250 FLOATP 226 FLOATP) () FLOAT :D8 (L (1 CL::OTHER 0 CL:NUMBER)) @NIL (5 FLOATP) () \FZEROP :D8 (L (0 X)) @j@jNIL (5 FLOATP) () FEQP :D8 (L (1 Y 0 X)) @4A/@A@A@jvAj@@dl8@@Jn$KjJjnJkغnJٺnKkػkj)k8j@j@j@k@jkjn@kػJdj#Kdjj@bzjlll@bCllعJdlKغKlIlٹJnjKJKdnJkԺKnIk@@@@YdjOJjKjkJKغKlAAdlKAA_Nn5OjNj(nNkؾlJlذnNپnOk_kj+k;jAjAjAkAjkjnAk_Ndj&OdjjAbdj_lllAbKllؽNdlOؾOl_MlٽNnjVNOdnNkԾOn_MkAA_AA]djANjOjkNOؾOl_JNKOIMHLIj JjKjlNlذNIL (510 FLOATP 484 FLOATP 214 FLOATP 190 FLOATP) () \FLOAT :D8 (L (0 X)) @ddlE@@Hn$IjHjnHkظnHٸnIkعkjllHIi k2j!jY@@k@jkjn@kغIllHJi @d@ @@ggog@g@go (217 CL:ERROR 148 \BIGNUM.TO.FLOAT 132 \MAKEFLOAT 80 \MAKEFLOAT) (206 :MESSAGE 200 :VALUE 194 :NAME 184 :EXPECTED-TYPE 179 XCL:TYPE-MISMATCH 170 RATIO 162 RATIO 154 RATIO 140 BIGNUM) ( 211 "a non-complex number" 189 (AND NUMBER (NOT COMPLEX))) \FIXP.FROM.FLOATP :D8 (L (0 X)) P@@dl8@@Jn$KjJjnJkغnJٺnKkػkj)k3j@j@j@k@jkjn@kػJdjKdjj@bjlll@bCllعJdlKغKlIlٹJnjNJKdnJkԺKnIk@@@@YdjTJjKj{kJKغKlIl~ٹjIaIl Il 4HjJdnKj#JlKԼHkjLՋlJlذLIl ll IY*JIl jZHkCKj0Jdj9nJkذ/IdjKJdkjKnػJkٰnJٺnKkػJK(366 LRSH) (154 FLOATP 130 FLOATP) () FIXR :D8 (L (0 X) F 5 \OVERFLOW) C@3 ~P@@dl8@@Jn$KjJjnJkغnJٺnKkػkj)k3j@j@j@k@jkjn@kػJdjKdjj@bjlll@bCllعJdlKغKlIlٹJnjNJKdnJkԺKnIk@@@@Ydj8JjKj{kJKغKlIl~ٹjIal I@ojlJlذIl Il .HjJnKjUi@l2 HjoolI$l IdjKJdkjKnػJkllIYMJKjjlIl jZKlKJlػJLlLl@Kkj9Kdn-jJkZ'IdjKKkJdkjKnػJkٰk[Hk#KjJdjnJk؎nJٺnKkػJK(441 LRSH 355 \LISPERROR) (159 FLOATP 135 FLOATP) ( 371 -2147483648 365 2147483647 301 0.5) \BOXFPLUSDIF :D8 (L (3 BOX 2 SUBTRACT 1 Y 0 X))   AAdl?AA_Nn)OjNjnNkؾnNپnOk_kj+k;jAjAjAkAjkjnAk_Ndj&OdjjAbpj_lllAbKllؽNdlOؾOl_MlٽNnjVNOdnNkԾOn_MkAA_AA]djWNjOjkNOؾOl_BkLټ@@dlE@@Jn1KjJj%nJkغlNlذnJٺnKkػkj)kAj@j@j@k@jkjn@kػJdj,KdjLMNOhC @bdjlll@bCllعJdlKغKlIlٹJnjNJKdnJkԺKnIk@@@@Ydj6JjKjokJKغKlNjOjXIlHC lJlذMlLC IM_dj3dlNkdjUOOk_NdkjOn_j3mOjOdjKKkJdkjKnػJkMYHLsKdnOnOkٻkOػj_JdnNOnNdjOj_kOٺkNOغjkmKKkJdkjKnػJnԺIkYJNdJJdNOKNJOK_LJnjh_JNOKKOٻjnOKkػkZHIJKOC (970 \MAKEFLOAT 653 \INFINITY 629 \INFINITY 455 \MAKEFLOAT) (486 FLOATP 462 FLOATP 171 FLOATP 145 FLOATP) () \BOXFQUOTIENT :D8 (L (2 BOX 1 Y 0 X) F 10 \OVERFLOW)  jdddd @@dl?@@_Nn)OjNjnNkؾnNپnOk_kj+k;j@j@j@k@jkjn@k_Ndj&Odjj@bpj_lll@bKllؽNdlOؾOl_MlٽNnjYNOdnNkԾOn_Mk@@_@@]dj^NjOjtkNOؾOl_A'AdlUA_A_Onl `9Ykl0 IkdJ IJHj$hhA>l@@dlA@@JdnVKjJdjJnJkZ?dl ¿l nJٺnK#k6j@dj@@@jkjn@kػJdj#Kdjj@bsjlll@bCllعJdlKغKlIlٹJnjFJKdnJkԺKnIk@@@YdjKJjKjkJKغKlJdjKjIlչJnj'JKdnJkԺKnIklJlذIJK _OH_jOIJK LMN _AO OLMN LjNMdkjNnؾMLk\Nl_NnOlOl0Nnj'NdnjMdnnLkԼkԽnԾILJMKNHkԸl HM`pl `Y__Ol ihOO O_OOAHO k_OdOoOO$hh Ok_OOk`Oll AHoO Ok_HkX(811 CL:VECTOR-PUSH 793 \PUTBASEFIXP 763 GLC 712 NCHARS 680 \CONVERTNUMBER 658 CONCAT 646 ALLOCSTRING 504 TIMESPOW10 493 INTTOEXT 478 EXTTOINT 469 TIMESPOW10 447 FLTINTLOG 57 SUBSTRING 47 RPLCHARCODE 37 CONCAT 25 ALLOCSTRING) (755 \\NUMSTR.GLOBALRESOURCE 746 \\NUMSTR1.GLOBALRESOURCE 701 \\NUMSTR1.GLOBALRESOURCE 693 \\NUMSTR.GLOBALRESOURCE 651 \\NUMSTR1.GLOBALRESOURCE 637 \\NUMSTR.GLOBALRESOURCE 268 FLOATP 244 FLOATP 93 \\NUMSTR1.GLOBALRESOURCE 84 \\NUMSTR.GLOBALRESOURCE 71 \\NUMSTR1.GLOBALRESOURCE 64 \\NUMSTR.GLOBALRESOURCE 30 \\NUMSTR1.GLOBALRESOURCE 16 \\NUMSTR.GLOBALRESOURCE) ( 804 #\0 728 #\0 5 0.0) FLTINTLOG :D8 (L (2 FLO 1 FHI 0 FEXP) P 2 TLO P 1 THI P 0 TEXP) h@j0l%@AB HbIbJbmmjlLLM5`M@N@NANANBNKMMmԽh(17 TIMESPOW10) (54 EXTPOWERS) () DIGITSBDP :D8 (L (0 F)) Q0@@dl6@@IdnKJjIdj?nIkY4nIٹnJ#k6j@dj@@@jkjn@kغIdj#Jdjj@b~jlll@bCllظIdlJعJlHlٸInjFIJdnIkԹJnHk@@@XdjKIjJjkIJعJlIdjJjHlոInj'IJdnIkԹJnHklIlذHIJ (334 FLTINTLOG) (155 FLOATP 131 FLOATP) () INTTOEXT :D8 (L (0 N) F 3 TEXP F 4 THI F 5 TLO) ll!@djOjcdcdc dkj@j@ZUn@ZLl@ @d'@@bdl𲹿@@Z3 @ @ Idj)JjHlٸIdnjHcIcJc kHkInjIJdnIkԹJnHkٸ(123 CL::%%NOT-NONCOMPLEX-NUMBER-ERROR 116 \ILLEGAL.ARG 59 \FIXP.FROM.FLOATP) (85 RATIO 77 RATIO 68 RATIO) () EXTTOINT :D8 (L (2 LO 1 HI 0 EXP)) @lbdll@Abjb@lbBl@ b*@l#BbAdkjBnbAb@kbBkkBbAdkjBnbAbHBdnjbAkbkbAB(47 LRSH) NIL () expand-SPLIT8 :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) F@AHHZJgKgIoLggIoohNIL (46 LOGAND 41 LLSH 27 LRSH 21 CL:SETQ) ( 59 (8) 52 (255) 33 (8)) (SETF-MACRO-FUNCTION (QUOTE SPLIT8) (QUOTE expand-SPLIT8)) TIMESPOW10 :D8 (L (3 LO 2 HI 1 EXP 0 POWER) F 2 TEXP F 3 THI F 4 TLO) b AcBcCc@jh@l&lLm@j@l&Թ`jIIjIٶABCHHH RbSbTb@Il&b(73 \EXTFTIMES) (44 EXTPOWERS) () \EXTFTIMES :D8 (L (5 LY 4 HY 3 EXPY 2 LX 1 HX 0 EXPX))  jddddu @jAjBjzCjDdjEjiDjEjDAbbEBb blj__OO*Bl^jNEl_LdnOnOkټkOؼjNDl_KdnOMnOdjMjkMٻkOMػjJMغNE__Ol_LdnOnOkټkOؼjOM_KdnOnOkٻkOػjND__Ol_MKdnOnOkٻkOػjؽJOMغBAlbAbOdlLKlؼKJJOk_JKغKlLLl@CmJKL (411 \EXTNORMALIZE) NIL () \EXTFQUOTIENT :D8 (L (5 LY 4 HY 3 EXPY 2 LX 1 HX 0 EXPX) F 4 TEXP F 5 THI F 6 TLO)  jddd@jAjBjCjDjEj@llnd$ClBbAdkjBnbAbEb DdkjEnb DbldjkJKdnJkԺKnAdDEBAD&ADEBBEbjnEBkbkbKkػAbBdnAkbBnbkٰJKdnJkԺKnAjBjKk@ClJK lcnc c h(271 \EXTNORMALIZE) NIL () \EXTNORMALIZE :D8 (L (0 -args-) F 5 TEXP F 6 THI F 7 TLO) eka1lalalHjlaJdjKjjyJjKLjIlٹJdnj2LnLnQKkjJKdn?jJn8nIk԰0KdnJkԺKnLdnjKkػLIkkػIc Jc KchNIL NIL () \CONVERT.FLOATING.NUMBER :D8 (L (3 FORMAT 2 OUTSTRPTR 1 OUTSTR 0 F)) $`4lgggjgi C `b hbmj@j@bjo4#C_8_6O8_4_2O4_0_.O0_,_*O,_(O6O6ll_6O.j_.O*o_@O.j*@j@@ o@o@O(O2c@O( Y_BI_DO(5O21@j,@@ jOB kջJKOBdKoHOBODO2O. k_( ODk_DKmԻO(>O2:@j@dd k#l k O2dl l jLjL_(@O( ]_BM_DO(j__OOxO*O<A_O:k_:_oOOOFj_&_$O$O&gAkO:kB HOFO6OFO<k ODk_DOm_2j_>]A_O:k_:_O@OOOk_gA_"O:k_:_ HO&O"O O&k_&v(657 GLC 626 SUBSTRING 511 CL:LENGTH 502 FNUM-STRING 461 CL:LENGTH 451 \FZEROP 417 \MVLIST 412 FLTSTR 382 CL:TRUNCATE 375 CL:LOG 363 \FZEROP 325 GLC 310 ENUM-STRING 273 CL:LENGTH 263 \FZEROP 229 \MVLIST 224 FLTSTR 186 \FZEROP 36 CL:MAKE-ARRAY) (633 \\CFNSTRING.GLOBALRESOURCE 62 \\CFNSTRING.GLOBALRESOURCE 50 \FLOATFORMAT 29 :ADJUSTABLE 23 :FILL-POINTER 18 CL:STRING-CHAR 13 :ELEMENT-TYPE 4 \\CFNSTRING.GLOBALRESOURCE) ( 592 #\- 544 #\- 484 #\0 291 #\0 203 1.0E+7 195 0.001 160 #\0 86 #\Space) \FLOATINGSCALE :D8 (L (2 BOX 1 INTEXP 0 INTMANT) P 3 TLO P 2 THI P 1 TEXP) -j1j@j@bk@ AIJK HIJKiB (42 \MAKEFLOAT 30 TIMESPOW10 21 INTTOEXT) NIL () \INIT.POWERS.OF.TEN :D8 (P 6 TLO P 5 THI P 4 TEXP) Nl;g lM `lo `lnjhHl&lkoIHl kdO4O2`l&l ԶXHHlk__OdOٿ`l&l ԶXHHl k_ _O dO`l&lԶXHHl k_(_&O(dO&l&k_0_.O0O.``IlJoZ `lIoJ IkYO6l _6 `_l&O4_LMNhOOO4k_4IJK `_Ol l&_LMNhOOOk_IJK `_O l l&_LMNhOOO k_ IJK `_$O(ll&_"LMNhO$O"O(k_(`O0l&ԶlnjHHH `_,l&O0_*LMNhO,O*O0k_0(549 \EXTFQUOTIENT 474 TIMESPOW10 424 TIMESPOW10 374 TIMESPOW10 327 INTTOEXT 307 SETA 285 SETA 45 SETA 23 CL:MAKE-ARRAY 11 ARRAY) (555 EXTPOWERS 521 EXTPOWERS 480 EXTPOWERS 430 EXTPOWERS 380 EXTPOWERS 333 EXTPOWERS 291 \POWERS.OF.TEN 268 \POWERS.OF.TEN 262 \POWERS.OF.TEN 201 EXTPOWERS 158 EXTPOWERS 115 EXTPOWERS 50 EXTPOWERS 33 \POWERS.OF.TEN 28 EXTPOWERS 16 \POWERS.OF.TEN 6 POINTER) ( 300 1.0 278 10.0 76 1.0 40 1.0) (/SETTOPVAL (QUOTE \\CFNSTRING.GLOBALRESOURCE) NIL) (\INIT.POWERS.OF.TEN) (PUTPROPS \UNBOXFLOAT1 ARGNAMES (X OP)) (PUTPROPS \UNBOXFLOAT2 ARGNAMES (X Y OP)) (PUTPROPS \UNBOXFLOAT3 ARGNAMES (X Y Z OP)) (PUTPROPS LLFLOAT FILETYPE CL:COMPILE-FILE) (PUTPROPS LLFLOAT COPYRIGHT ("Venue & Xerox Corporation" 1982 1984 1985 1986 1987 1988 1990 1991 1993) ) NIL