From 93888301033f600f14982133ed18adc18e37d9f0 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sat, 15 Feb 1997 21:39:39 +0000 Subject: [PATCH] 2s0 -> 2f0 noted by Ray. --- compiler/float-tran.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp index ba1ef4739..f90492bb1 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 -- GitLab