diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp index ba1ef4739fe3b4f81ecaedf38a0bc0d90e874f3a..f90492bb1de4715bbf74970a27ddf6900eb3ddba 100644 --- a/compiler/float-tran.lisp +++ b/compiler/float-tran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.26 1997/02/12 22:12:24 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.27 1997/02/15 21:39:39 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -420,8 +420,8 @@ (destructuring-bind (name prim prim-quick) stuff (deftransform name ((x) '(single-float) '* :eval-name t :when :both) (cond ((csubtypep (continuation-type x) - (specifier-type '(single-float (#.(- (expt 2s0 64))) - (#.(expt 2s0 64))))) + (specifier-type '(single-float (#.(- (expt 2f0 64))) + (#.(expt 2f0 64))))) `(coerce (,prim-quick (coerce x 'double-float)) 'single-float)) (t (compiler-note