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

rtoy rtoy at common-lisp.net
Mon Feb 11 17:04:13 UTC 2008

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

Modified Files:
Log Message:
o For CMU, ignore target only if we're not using oct-arrays.
o Add implementation for SUB-QD-T.

--- /project/oct/cvsroot/oct/qd.lisp	2007/11/28 20:00:28	1.64
+++ /project/oct/cvsroot/oct/qd.lisp	2008/02/11 17:04:13	1.65
@@ -340,7 +340,7 @@
   (declare (double-float a)
 	   (type %quad-double b)
 	   (optimize (speed 3))
-	   #+cmu (ignore target))
+	   #+(and cmu (not oct-array)) (ignore target))
   (add-qd-d b a #+oct-array target))
@@ -487,6 +487,9 @@
   (declare (type %quad-double a b))
   (add-qd-t a (neg-qd b) target))
+(defun sub-qd-t (a b target)
+  (add-qd-t a (neg-qd b) target))
 (defun sub-qd-dd (a b)
   (declare (type %quad-double a)
@@ -496,7 +499,7 @@
 (defun sub-qd-d (a b &optional (target #+oct-array (%make-qd-d 0d0 0d0 0d0 0d0)))
   (declare (type %quad-double a)
 	   (type double-float b)
-	   #+cmu (ignore target))
+	   #+(and cmu (not oct-array)) (ignore target))
   (add-qd-d a (cl:- b) #+oct-array target))
 (defun sub-d-qd (a b &optional (target #+oct-array (%make-qd-d 0d0 0d0 0d0 0d0)))

More information about the oct-cvs mailing list