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

[rtoy]

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

Modified Files:
	qd-rep.lisp 
Log Message:
Make %MAKE-QD-D a macro to make sure it's inlined.


--- /project/oct/cvsroot/oct/qd-rep.lisp	2007/09/16 05:01:16	1.5
+++ /project/oct/cvsroot/oct/qd-rep.lisp	2007/09/17 03:07:27	1.6
@@ -142,6 +142,7 @@
 (defmacro qd-3 (q)
   `(aref ,q 3))
 
+#+(or)
 (eval-when (:compile-toplevel :load-toplevel :execute)
 (defun %make-qd-d (a0 a1 a2 a3)
   "Make a %quad-double from 4 double-floats, exactly using the given
@@ -159,7 +160,6 @@
     a))
 )
 
-#+nil
 (defmacro %make-qd-d (a0 a1 a2 a3)
   (let ((a (gensym)))
     `(let ((,a (make-array 4 :element-type 'double-float)))