[oct-cvs] Oct commit: oct qd-methods.lisp qd-package.lisp - oct-cvs - mailman3.common-lisp.net

29 Aug 2007

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+)

    