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