[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