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

[rtoy]

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