(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED " 2-Nov-93 16:29:50" ("compiled on " IL:|{DSK}export>lispcore>sources>CLTL2>CMLFLOAT.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" IL:|in| "Medley 19-Feb-93 ..." IL:|dated| "19-Feb-93 18:20:42") (IL:FILECREATED "24-Mar-92 13:57:12" IL:|{DSK}local>lde>lispcore>sources>CMLFLOAT.;2| 42560 IL:|changes| IL:|to:| (IL:VARS IL:CMLFLOATCOMS) (IL:VARIABLES LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT) IL:|previous| IL:|date:| "16-May-90 13:16:23" IL:|{DSK}local>lde>lispcore>sources>CMLFLOAT.;1|) (IL:RPAQQ IL:CMLFLOATCOMS ((IL:* IL:|;;;| "CMLFLOAT -- Covering sections 12.5-12.5.3 irrational, transcendental, exponential, logarithmic, trigonometric, and hyperbolic functions. Section 12.10, implementation parameters. " ) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:* IL:\; "To generate unboxed opcodes") (IL:FILES IL:UNBOXEDOPS) (IL:* IL:\; "To get constants from llfloat ") (IL:FILES (IL:LOADCOMP) IL:LLFLOAT)) ( IL:COMS (IL:* IL:|;;| "Section 12.10, implementation parameters. ") (IL:* IL:|;;| "%FLOAT allows us to recreate FLOATPs in a way that is independent of the ordinairy reading and printing FLOATPs to files which involves loss of the last couple bits of accuracy due to rounding effects." ) (IL:* IL:|;;| "Reading and printing of floats has since been fixed, so LISP::%FLOAT is not technically necessary anymore - JRB" ) (IL:FUNCTIONS %FLOAT) (IL:VARIABLES MOST-POSITIVE-FIXNUM MOST-NEGATIVE-FIXNUM) (IL:VARIABLES MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT) (IL:VARIABLES MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT LEAST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SHORT-FLOAT MOST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT LEAST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT LEAST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-LONG-FLOAT) (IL:* IL:|;;| "CLtL2 implementation parameters ") (IL:VARIABLES LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT) (IL:* IL:|;;| "EPSILON is the smallest positive floating point number such that (NOT (= (FLOAT 1 EPSILON) (+ (FLOAT 1 EPSILON) EPSILON))) " ) (IL:VARIABLES SINGLE-FLOAT-EPSILON) (IL:VARIABLES SHORT-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON LONG-FLOAT-EPSILON) (IL:* IL:|;;| "NEGATIVE-EPSILON is the smallest negative floating point number such that (NOT (= (FLOAT 1 NEGATIVE-EPSILON) (- (FLOAT 1 NEGATIVE-EPSILON) NEGATIVE-EPSILON))) " ) (IL:VARIABLES SINGLE-FLOAT-NEGATIVE-EPSILON) (IL:VARIABLES SHORT-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON LONG-FLOAT-NEGATIVE-EPSILON) (IL:VARIABLES PI)) (IL:COMS (IL:* IL:|;;| "Internal constants") (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:VARIABLES %E %2PI %PI %2PI/3 %PI/2 %-PI/2 %PI/3 %PI/4 %-PI/4 %PI/6 %2/PI))) (IL:COMS (IL:* IL:|;;| "Utility macros") (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FUNCTIONS %FLOAT-UNBOX %GET-TABLE-ENTRY %POLYEVAL %UFTRUNCATE %UMAKE-FLOAT))) (IL:* IL:|;;| " Unpack floating point functions") (IL:COMS (IL:FUNCTIONS DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS FLOAT-PRECISION INTEGER-DECODE-FLOAT)) (IL:COMS (IL:* IL:|;;| "Exp (e to the power x)") (IL:COMS (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:VARIABLES %LOG-BASE2-E)) (IL:VARIABLES %EXP-POLY %EXP-TABLE)) (IL:FUNCTIONS %EXP-FLOAT) (IL:FUNCTIONS EXP)) ( IL:COMS (IL:* IL:|;;| "Expt (x to the power y)") (IL:FUNCTIONS %EXPT-INTEGER %EXPT-FLOAT-INTEGER) ( IL:FUNCTIONS EXPT)) (IL:COMS (IL:* IL:|;;| "Log (log base e)") (IL:COMS (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:VARIABLES %LOG2 %SQRT2)) (IL:VARIABLES %LOG-PPOLY %LOG-QPOLY)) (IL:FUNCTIONS %LOG-FLOAT) (IL:FUNCTIONS LOG)) (IL:COMS (IL:* IL:|;;| "Sqrt") (IL:FUNCTIONS %SQRT-FLOAT %SQRT-COMPLEX ) (IL:FUNCTIONS SQRT)) (IL:COMS (IL:* IL:|;;| "Sin and Cos") (IL:COMS (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:VARIABLES %SIN-EPSILON)) (IL:VARIABLES %SIN-PPOLY %SIN-QPOLY)) (IL:FUNCTIONS %SIN-FLOAT) (IL:FUNCTIONS SIN COS)) (IL:COMS (IL:* IL:|;;| "Tan") (IL:COMS (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:VARIABLES %TAN-EPSILON)) (IL:VARIABLES %TAN-PPOLY %TAN-QPOLY)) (IL:FUNCTIONS %TAN-FLOAT) (IL:FUNCTIONS TAN)) (IL:COMS (IL:* IL:|;;| "Asin and Acos") (IL:COMS (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:VARIABLES %ASIN-EPSILON)) (IL:VARIABLES %ASIN-PPOLY %ASIN-QPOLY)) ( IL:FUNCTIONS %ASIN-FLOAT) (IL:FUNCTIONS ASIN ACOS)) (IL:COMS (IL:* IL:|;;| "Atan ") (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:VARIABLES %SQRT3 %2-SQRT3 %INV-2-SQRT3)) (IL:FUNCTIONS %ATAN-FLOAT) (IL:FUNCTIONS ATAN)) (IL:COMS (IL:* IL:|;;| "Cis (exp (i x))") (IL:FUNCTIONS CIS)) (IL:COMS (IL:* IL:|;;| "Sinh, Cosh Tanh") (IL:FUNCTIONS SINH COSH TANH)) (IL:COMS (IL:* IL:|;;| "Asinh Acosh Atanh") (IL:FUNCTIONS ASINH ACOSH ATANH)) (IL:COMS (IL:* IL:|;;| "rational and rationalize ") (IL:FUNCTIONS %RATIONAL-FLOAT %RATIONALIZE-FLOAT)) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:LOCALVARS . T)) ( IL:PROP (IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:CMLFLOAT))) %FLOAT :D8 (IL:L (1 LOWORD 0 HIWORD)) @ANIL NIL () (XCL::SET-CONSTANTP (QUOTE MOST-POSITIVE-FIXNUM) NIL) (IL:SETQ MOST-POSITIVE-FIXNUM 65535) (PROCLAIM (QUOTE (SI::CONSTANT MOST-POSITIVE-FIXNUM))) (XCL::SET-CONSTANTP (QUOTE MOST-NEGATIVE-FIXNUM) NIL) (IL:SETQ MOST-NEGATIVE-FIXNUM -65536) (PROCLAIM (QUOTE (SI::CONSTANT MOST-NEGATIVE-FIXNUM))) (XCL::SET-CONSTANTP (QUOTE MOST-POSITIVE-SINGLE-FLOAT) NIL) (IL:SETQ MOST-POSITIVE-SINGLE-FLOAT (%FLOAT 32639 65535)) (PROCLAIM (QUOTE (SI::CONSTANT MOST-POSITIVE-SINGLE-FLOAT))) (XCL::SET-CONSTANTP (QUOTE LEAST-POSITIVE-SINGLE-FLOAT) NIL) (IL:SETQ LEAST-POSITIVE-SINGLE-FLOAT (%FLOAT 0 1)) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-POSITIVE-SINGLE-FLOAT))) (XCL::SET-CONSTANTP (QUOTE LEAST-NEGATIVE-SINGLE-FLOAT) NIL) (IL:SETQ LEAST-NEGATIVE-SINGLE-FLOAT (%FLOAT 32768 1)) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-NEGATIVE-SINGLE-FLOAT))) (XCL::SET-CONSTANTP (QUOTE MOST-NEGATIVE-SINGLE-FLOAT) NIL) (IL:SETQ MOST-NEGATIVE-SINGLE-FLOAT (%FLOAT 65407 65535)) (PROCLAIM (QUOTE (SI::CONSTANT MOST-NEGATIVE-SINGLE-FLOAT))) (XCL::SET-CONSTANTP (QUOTE MOST-POSITIVE-SHORT-FLOAT) NIL) (IL:SETQ MOST-POSITIVE-SHORT-FLOAT MOST-POSITIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT MOST-POSITIVE-SHORT-FLOAT))) (XCL::SET-CONSTANTP (QUOTE LEAST-POSITIVE-SHORT-FLOAT) NIL) (IL:SETQ LEAST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-POSITIVE-SHORT-FLOAT))) (XCL::SET-CONSTANTP (QUOTE LEAST-NEGATIVE-SHORT-FLOAT) NIL) (IL:SETQ LEAST-NEGATIVE-SHORT-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-NEGATIVE-SHORT-FLOAT))) (XCL::SET-CONSTANTP (QUOTE MOST-NEGATIVE-SHORT-FLOAT) NIL) (IL:SETQ MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT MOST-NEGATIVE-SHORT-FLOAT))) (XCL::SET-CONSTANTP (QUOTE MOST-POSITIVE-DOUBLE-FLOAT) NIL) (IL:SETQ MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT MOST-POSITIVE-DOUBLE-FLOAT))) (XCL::SET-CONSTANTP (QUOTE LEAST-POSITIVE-DOUBLE-FLOAT) NIL) (IL:SETQ LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-POSITIVE-DOUBLE-FLOAT))) (XCL::SET-CONSTANTP (QUOTE LEAST-NEGATIVE-DOUBLE-FLOAT) NIL) (IL:SETQ LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-NEGATIVE-DOUBLE-FLOAT))) (XCL::SET-CONSTANTP (QUOTE MOST-NEGATIVE-DOUBLE-FLOAT) NIL) (IL:SETQ MOST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT MOST-NEGATIVE-DOUBLE-FLOAT))) (XCL::SET-CONSTANTP (QUOTE MOST-POSITIVE-LONG-FLOAT) NIL) (IL:SETQ MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT MOST-POSITIVE-LONG-FLOAT))) (XCL::SET-CONSTANTP (QUOTE LEAST-POSITIVE-LONG-FLOAT) NIL) (IL:SETQ LEAST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-POSITIVE-LONG-FLOAT))) (XCL::SET-CONSTANTP (QUOTE LEAST-NEGATIVE-LONG-FLOAT) NIL) (IL:SETQ LEAST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-NEGATIVE-LONG-FLOAT))) (XCL::SET-CONSTANTP (QUOTE MOST-NEGATIVE-LONG-FLOAT) NIL) (IL:SETQ MOST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-SINGLE-FLOAT) (PROCLAIM (QUOTE (SI::CONSTANT MOST-NEGATIVE-LONG-FLOAT))) (IL:SETQ LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT (%FLOAT 128 0)) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT))) (IL:SET-DOCUMENTATION (QUOTE LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT) (QUOTE VARIABLE) "Documentation string") (IL:SETQ LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT (%FLOAT 32896 0)) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT))) (IL:SETQ LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT (%FLOAT 128 0)) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT))) (IL:SETQ LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT (%FLOAT 32896 0)) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT))) (IL:SETQ LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT (%FLOAT 128 0)) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT))) (IL:SETQ LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT (%FLOAT 32896 0)) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT))) (IL:SETQ LEAST-POSITIVE-NORMALIZED-LONG-FLOAT (%FLOAT 128 0)) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT))) (IL:SETQ LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT (%FLOAT 32896 0)) (PROCLAIM (QUOTE (SI::CONSTANT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT))) (XCL::SET-CONSTANTP (QUOTE SINGLE-FLOAT-EPSILON) NIL) (IL:SETQ SINGLE-FLOAT-EPSILON (%FLOAT (ASH 103 7) 1)) (PROCLAIM (QUOTE (SI::CONSTANT SINGLE-FLOAT-EPSILON))) (XCL::SET-CONSTANTP (QUOTE SHORT-FLOAT-EPSILON) NIL) (IL:SETQ SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON) (PROCLAIM (QUOTE (SI::CONSTANT SHORT-FLOAT-EPSILON))) (XCL::SET-CONSTANTP (QUOTE DOUBLE-FLOAT-EPSILON) NIL) (IL:SETQ DOUBLE-FLOAT-EPSILON SINGLE-FLOAT-EPSILON) (PROCLAIM (QUOTE (SI::CONSTANT DOUBLE-FLOAT-EPSILON))) (XCL::SET-CONSTANTP (QUOTE LONG-FLOAT-EPSILON) NIL) (IL:SETQ LONG-FLOAT-EPSILON SINGLE-FLOAT-EPSILON) (PROCLAIM (QUOTE (SI::CONSTANT LONG-FLOAT-EPSILON))) (XCL::SET-CONSTANTP (QUOTE SINGLE-FLOAT-NEGATIVE-EPSILON) NIL) (IL:SETQ SINGLE-FLOAT-NEGATIVE-EPSILON (%FLOAT 13184 0)) (PROCLAIM (QUOTE (SI::CONSTANT SINGLE-FLOAT-NEGATIVE-EPSILON))) (XCL::SET-CONSTANTP (QUOTE SHORT-FLOAT-NEGATIVE-EPSILON) NIL) (IL:SETQ SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON) (PROCLAIM (QUOTE (SI::CONSTANT SHORT-FLOAT-NEGATIVE-EPSILON))) (XCL::SET-CONSTANTP (QUOTE DOUBLE-FLOAT-NEGATIVE-EPSILON) NIL) (IL:SETQ DOUBLE-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON) (PROCLAIM (QUOTE (SI::CONSTANT DOUBLE-FLOAT-NEGATIVE-EPSILON))) (XCL::SET-CONSTANTP (QUOTE LONG-FLOAT-NEGATIVE-EPSILON) NIL) (IL:SETQ LONG-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON) (PROCLAIM (QUOTE (SI::CONSTANT LONG-FLOAT-NEGATIVE-EPSILON))) (XCL::SET-CONSTANTP (QUOTE PI) NIL) (IL:SETQ PI (%FLOAT 16457 4059)) (PROCLAIM (QUOTE (SI::CONSTANT PI))) DECODE-FLOAT :D8 (IL:L (0 FLOAT)) @bdoojo$P@\LLLIdloL Ij0JjKj,kJdlj"KdnJkԺKnIkհJlԺJKغKljl~JK Il~Hjoo$(155 IL:\\MAKEFLOAT 76 ERROR) (39 IL:FLOATP 5 IL:FLOATP) ( 174 -1.0 168 1.0 70 "Not a number: ~s" 26 1.0 20 0.0 13 0.0) SCALE-FLOAT :D8 (IL:L (2 OLD-BOX 1 INTEGER 0 FLOAT)) @bdooP@\LLLIdloL Ij0JjKj,kJdlj"KdnJkԺKnIkհJlԺJKغKlHIAJKhB (150 IL:\\MAKEFLOAT 67 ERROR) (30 IL:FLOATP 5 IL:FLOATP) ( 61 "Not a number: ~s" 20 0.0 13 0.0) FLOAT-RADIX :D8 (IL:L (0 FLOAT)) lNIL NIL () FLOAT-SIGN :D8 (IL:L (2 OLD-BOX 1 FLOAT2 0 FLOAT1)) S@dHAj@oo/j@jAABAjkjBABHBjAA (80 %NOT-FLOAT-ERROR) NIL ( 24 1.0 18 -1.0) FLOAT-DIGITS :D8 (IL:L (0 FLOAT)) @dl (12 %NOT-FLOAT-ERROR) NIL () FLOAT-PRECISION :D8 (IL:L (0 FLOAT)) g@d\oj@@[KKHdloK HjIlԹlIIjJ lI l (100 %NOT-FLOAT-ERROR 90 INTEGER-LENGTH 81 INTEGER-LENGTH 55 ERROR) (23 IL:FLOATP) ( 49 "Not a number: ~s" 10 0.0) INTEGER-DECODE-FLOAT :D8 (IL:L (0 FLOAT)) t@bdojdk$P@\LLLIdloL IjJjKjkJlԺJlKIllHjkm$(68 ERROR) (31 IL:FLOATP 5 IL:FLOATP) ( 62 "Not a number: ~s" 13 0.0) (PROCLAIM (QUOTE (XCL:GLOBAL %EXP-POLY))) (OR (BOUNDP (QUOTE %EXP-POLY)) (SETQ %EXP-POLY (MAKE-ARRAY 6 :ELEMENT-TYPE (QUOTE SINGLE-FLOAT) :INITIAL-CONTENTS (LIST (%FLOAT 15549 17659) (%FLOAT 16256 0) (%FLOAT 16801 38273) (%FLOAT 17257 7717) (%FLOAT 17597 11739) (%FLOAT 17800 30401))))) (PROCLAIM (QUOTE (XCL:GLOBAL %EXP-TABLE))) (OR (BOUNDP (QUOTE %EXP-TABLE)) (SETQ %EXP-TABLE (MAKE-ARRAY 8 :ELEMENT-TYPE (QUOTE SINGLE-FLOAT) :INITIAL-CONTENTS (LIST (%FLOAT 16256 0) (%FLOAT 16267 38338) (%FLOAT 16280 14320) (%FLOAT 16293 65239 ) (%FLOAT 16309 1267) (%FLOAT 16325 26410) (%FLOAT 16343 17661) (%FLOAT 16362 49351))))) %EXP-FLOAT :D8 (IL:L (0 X)) @hrHhHioH^NJn>j__OOOK`KdI`l2I`l2XMn?jH\djJL H\dJL (180 SCALE-FLOAT 167 SCALE-FLOAT) (130 IL:ONED-ARRAY 125 %EXP-POLY 109 IL:ONED-ARRAY 104 %EXP-POLY 84 IL:ONED-ARRAY 79 %EXP-TABLE 68 IL:FLOATP) ( 23 1.8209371E-29) EXP :D8 (IL:L (0 NUMBER)) J@d1@ @HI HI 3@ @ (71 %NOT-NUMBER-ERROR 64 %EXP-FLOAT 54 COMPLEX 48 SIN 40 COS 22 %EXP-FLOAT) (28 COMPLEX 15 COMPLEX 6 COMPLEX) () %EXPT-INTEGER :D8 (IL:L (1 POWER 0 BASE)) jA@jA @dlkA`DA3 3jAjAdj@d`o kj``oA @`AjkA`@djjo kAdkj@HָAmbjH@db(147 ERROR 102 ERROR 73 ERROR 17 %RECIPROCOL 12 %EXPT-INTEGER) (124 IL:MAX.INTEGER 109 IL:MAX.INTEGER 90 IL:MIN.INTEGER 84 IL:MAX.INTEGER 60 IL:MAX.INTEGER 34 IL:MIN.INTEGER) ( 142 "Can't expt negative number to infinite power." 96 "Can't raise negative infinity to noninteger power." 68 "Can't raise negative infinity to infinite power.") %EXPT-FLOAT-INTEGER :D8 (IL:L (1 POWER 0 BASE)) KjAo@jA @n?jAdkjHIAmbjIHH(17 %EXPT-FLOAT-INTEGER) NIL ( 8 1.0) EXPT :D8 (IL:L (1 POWER-NUMBER 0 BASE-NUMBER)) Ad3 jW@!HdoZ0JY Ioo H3k@ @Hd3 @A $@A @A Hd@A @ A A@ @ 3@j@A@ A (243 %NOT-NUMBER-ERROR 236 EXP 230 LOG 212 %NOT-NUMBER-ERROR 204 CIS 198 PHASE 191 %EXPT-FLOAT-INTEGER 185 %COMPLEX-ABS 171 %EXPT-FLOAT-INTEGER 154 %MAKE-RATIO 149 %EXPT-INTEGER 135 %EXPT-INTEGER 113 %EXPT-INTEGER 95 %NOT-NUMBER-ERROR 82 COMPLEX) (177 COMPLEX 162 IL:FLOATP 141 RATIO 127 RATIO 119 RATIO 66 IL:FLOATP 59 COMPLEX 51 IL:FLOATP 44 COMPLEX 35 COMPLEX 22 IL:FLOATP) ( 77 0.0 72 1.0 28 1.0) (PROCLAIM (QUOTE (XCL:GLOBAL %LOG-PPOLY))) (OR (BOUNDP (QUOTE %LOG-PPOLY)) (SETQ %LOG-PPOLY (MAKE-ARRAY 5 :ELEMENT-TYPE (QUOTE SINGLE-FLOAT) :INITIAL-CONTENTS (LIST (%FLOAT 16042 22803) (%FLOAT 49484 23590) (%FLOAT 17044 17982) (%FLOAT 49926 37153) (%FLOAT 17046 5367))))) (PROCLAIM (QUOTE (XCL:GLOBAL %LOG-QPOLY))) (OR (BOUNDP (QUOTE %LOG-QPOLY)) (SETQ %LOG-QPOLY (MAKE-ARRAY 5 :ELEMENT-TYPE (QUOTE SINGLE-FLOAT) :INITIAL-CONTENTS (LIST (%FLOAT 16256 0) (%FLOAT 49512 9103) (%FLOAT 16992 42274) (%FLOAT 49823 38048) (%FLOAT 16918 5367))))) %LOG-FLOAT :D8 (IL:L (0 X)) 7@boo@ hA0@ZJJJ_IdloJ Ij5NjOj0kNdlj&OdnNkԾOn_IkհNlԾNOؾOl_IlչONl_Nn?NlԾMkNnNOXHnnIkԹHn@jXHn?jHk\LLK`l2K`l2oI(78 ERROR 25 ERROR) (286 IL:ONED-ARRAY 281 %LOG-QPOLY 267 IL:ONED-ARRAY 262 %LOG-PPOLY 39 IL:FLOATP 5 IL:FLOATP) ( 301 8.7487474E-30 72 "Not a number: ~s" 19 "Log of zero: ~s" 12 0.0) LOG :D8 (IL:L (1 BASE 0 NUMBER)) oA@ A @!HZJYI3 !j@j@ o @ H@ @ @ (108 %NOT-NUMBER-ERROR 101 COMPLEX 96 PHASE 90 %LOG-FLOAT 85 %COMPLEX-ABS 70 %LOG-FLOAT 63 COMPLEX 53 %LOG-FLOAT 13 LOG 7 LOG) (77 COMPLEX 34 RATIO 26 IL:FLOATP) ( 58 3.1415927) %SQRT-FLOAT :D8 (IL:L (0 X)) @bddoohB0@ZJ_J_NdloJ Njj@ @ ko@ ok@k@ oo@ @ooHn?jH (135 LOG 95 ERROR 75 LOG 70 %/ 53 ERROR 39 ABS 34 REALPART 25 IMAGPART 13 ABS) (5 COMPLEX) ( 112 1.0 107 0.5 89 "Argument out of range. ~s" 82 1.0 59 0.5 47 "Argument out of range. ~s") %RATIONAL-FLOAT :D8 (IL:L (0 NUMBER)) y@oj`@]MMMIdloM IjJjKjkJlԺJlK\HkjLռIllYjILkjI LI(114 %BUILD-RATIO 55 ERROR) (18 IL:FLOATP) ( 49 "Not a number: ~s" 5 0.0) %RATIONALIZE-FLOAT :D8 (IL:L (0 X)) V @oj@ @]_M_M_M_OdloM OjOjOjk_Ol_OlOԺOllչOjkmOdljfO_Ol_jl~OO \o[IlYoJKmIkչlLּkjdk OjSOOLJIj,OI_0_OdnOk_On_tjIOjI_HOO JKNJK_OOO__OOO__JKOպ|(291 %/ 163 IL:\\MAKEFLOAT 67 ERROR) (21 IL:FLOATP) ( 181 11863283 170 16777216 61 "Not a number: ~s" 5 0.0) (IL:PUTPROPS IL:CMLFLOAT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) (IL:PUTPROPS IL:CMLFLOAT IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:CMLFLOAT IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1992)) NIL