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