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