Date: Monday, February 28, 2011 @ 12:14:45 Author: rtoy Path: /project/cmucl/cvsroot/src/code
Modified: irrat.lisp
Need to define %sqrt for x86/sse2 so the compiler can constant-fold SQRT.
------------+ irrat.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)
Index: src/code/irrat.lisp diff -u src/code/irrat.lisp:1.63 src/code/irrat.lisp:1.64 --- src/code/irrat.lisp:1.63 Tue Apr 20 13:57:44 2010 +++ src/code/irrat.lisp Mon Feb 28 12:14:45 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.63 2010-04-20 17:57:44 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.64 2011-02-28 17:14:45 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -179,7 +179,7 @@
;; As above for x86. It also seems to be needed to handle ;; constant-folding in the compiler. -#+sparc +#+(or sparc (and x86 sse2)) (progn (defun %sqrt (x) (declare (double-float x)