From rtoy at common-lisp.net Mon Feb 11 17:04:13 2008 From: rtoy at common-lisp.net (rtoy) Date: Mon, 11 Feb 2008 12:04:13 -0500 (EST) Subject: [oct-cvs] Oct commit: oct qd.lisp Message-ID: <20080211170413.EF0425F05C@common-lisp.net> 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)))