Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv14357
Modified Files: qd-methods.lisp qd-package.lisp Log Message: qd-package.lisp: o Shadow FLOAT-DIGITS
qd-methods.lisp: o Add FLOAT-DIGITS method.
--- /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/27 17:49:19 1.49 +++ /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/29 01:22:03 1.50 @@ -806,6 +806,13 @@ (defmethod random ((x qd-real) &optional (state *random-state*)) (* x (make-instance 'qd-real :value (qdi:random-qd state)))) + +(defmethod float-digits ((x cl:real)) + (cl:float-digits x)) + +(defmethod float-digits ((x qd-real)) + (* 4 (float-digits 1d0))) + (define-compiler-macro + (&whole form &rest args) (if (null args) --- /project/oct/cvsroot/oct/qd-package.lisp 2007/08/28 16:01:08 1.35 +++ /project/oct/cvsroot/oct/qd-package.lisp 2007/08/29 01:22:03 1.36 @@ -162,6 +162,7 @@ #:numberp #:incf #:decf + #:float-digits ) (:export #:+ #:- @@ -225,6 +226,7 @@ #:numberp #:incf #:decf + #:float-digits ) ;; Constants (:export #:+pi+)