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

Modified Files: Tag: THREE-ARG-BRANCH qd-rep.lisp Log Message: Oops. %STORE-QD-D wasn't returning the target value.

--- /project/oct/cvsroot/oct/qd-rep.lisp 2007/11/02 20:11:42 1.10.2.1 +++ /project/oct/cvsroot/oct/qd-rep.lisp 2007/11/02 20:45:32 1.10.2.2 @@ -178,7 +178,8 @@ (setf (aref ,dest 0) ,q0) (setf (aref ,dest 1) ,q1) (setf (aref ,dest 2) ,q2) - (setf (aref ,dest 3) ,q3)))) + (setf (aref ,dest 3) ,q3) + ,dest)))

(defun qd-parts (qd) "Extract the four doubles comprising a quad-double and return them