Update of /project/oct/cvsroot/oct
In directory clnet:/tmp/cvs-serv22454
Modified Files:
qd.lisp
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))
#+cmu
@@ -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))
+
#+cmu
(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)))
