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