[oct-cvs] Oct commit: oct qd-methods.lisp
rtoy
rtoy at common-lisp.net
Wed Aug 29 14:37:20 UTC 2007
Update of /project/oct/cvsroot/oct
In directory clnet:/tmp/cvs-serv15798
Modified Files:
qd-methods.lisp
Log Message:
Oops. Last change went to the wrong spot. Only valid for =.
--- /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/29 14:22:42 1.51
+++ /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/29 14:37:20 1.52
@@ -333,12 +333,6 @@
(,qd-fun (make-qd-d (cl:float a 1d0)) (qd-value b)))
(defmethod ,method ((a qd-real) (b qd-real))
(,qd-fun (qd-value a) (qd-value b)))
- (defmethod ,method ((a qd-complex) b)
- (and (,method (realpart a) (realpart b))
- (,method (imagpart a) (imagpart b))))
- (defmethod ,method (a (b qd-complex))
- (and (,method (realpart a) (realpart b))
- (,method (imagpart a) (imagpart b))))
(defun ,op (number &rest more-numbers)
"Returns T if its arguments are in strictly increasing order, NIL otherwise."
(declare (optimize (safety 2))
@@ -519,6 +513,15 @@
(qd-= (make-qd-d (cl:float a 1d0)) (qd-value b))
nil))
+(defmethod two-arg-= ((a qd-complex) b)
+ (and (two-arg-= (realpart a) (realpart b))
+ (two-arg-= (imagpart a) (imagpart b))))
+
+(defmethod two-arg-= (a (b qd-complex))
+ (and (two-arg-= (realpart a) (realpart b))
+ (two-arg-= (imagpart a) (imagpart b))))
+
+
(defmethod two-arg-= ((a qd-real) (b qd-real))
(qd-= (qd-value a) (qd-value b)))
More information about the oct-cvs
mailing list