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

[rtoy]

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