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