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

[rtoy]

Update of /project/oct/cvsroot/oct
In directory clnet:/tmp/cvs-serv27512

Modified Files:
	qd-complex.lisp qd-package.lisp 
Log Message:
qd-package.lisp:
o Shadow REALP, COMPLEXP, and NUMBERP

qd-complex.lisp:
o Extend REALP, COMPLEXP, and NUMBERP to recognize QD-REAL and
  QD-COMPLEX types.


--- /project/oct/cvsroot/oct/qd-complex.lisp	2007/08/27 17:49:19	1.29
+++ /project/oct/cvsroot/oct/qd-complex.lisp	2007/08/28 00:56:18	1.30
@@ -679,3 +679,15 @@
 
 (defmethod qphase ((z qd-complex))
   (atan (imagpart z) (realpart z)))
+
+(defun realp (x)
+  (or (typep x 'qd-real)
+      (cl:realp x)))
+
+(defun complexp (x)
+  (or (typep x 'qd-complex)
+      (cl:complexp x)))
+
+(defun numberp (x)
+  (or (realp x)
+      (complexp x)))
--- /project/oct/cvsroot/oct/qd-package.lisp	2007/08/26 14:37:48	1.33
+++ /project/oct/cvsroot/oct/qd-package.lisp	2007/08/28 00:56:18	1.34
@@ -215,6 +215,9 @@
 	   #:signum
 	   #:coerce
 	   #:random
+	   #:realp
+	   #:complexp
+	   #:numberp
 	   )
   ;; Constants
   (:export #:+pi+)