From: Raymond T. <rt...@us...> - 2002-06-27 17:37:23
|
Update of /cvsroot/maxima/maxima/src In directory usw-pr-cvs1:/tmp/cvs-serv15619/src Modified Files: float.lisp Log Message: Set machine-mantissa-precision correctly, instead of a hard-wired 24. Make it a defconstant instead of defvar as well. Index: float.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/float.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- float.lisp 3 Jan 2002 08:14:49 -0000 1.2 +++ float.lisp 27 Jun 2002 17:37:20 -0000 1.3 @@ -32,21 +32,23 @@ #+NIL 30. #+Franz 32. +#| MACHINE-MANTISSA-PRECISION #+(OR PDP10 H6180) 27. #+cl(integer-length (integer-decode-float most-positive-double-float)) ;#+LISPM 32. #+(OR NIL Franz) 56. ;double-float. Long would be 113. - +|# ;; Not used anymore, but keep it around anyway in case ;; we need it later. MACHINE-EXPONENT-PRECISION #+(OR PDP10 H6180) 8. #+cl - (integer-length (multiple-value-bind - (a b) (integer-decode-float most-positive-double-float) - b)) + (integer-length + (multiple-value-bind (a b) + (integer-decode-float most-positive-double-float) + b)) ;#+LISPM 11. #+(OR NIL Franz) 8. ;Double float. Long would be 15. ) |