diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp index 179c62598a3875eaf42b2d8a375aeb69b161c7d1..1f4c0469d4d9eb9b2406fef31da37c9710f2f01c 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.93 2003/09/05 15:35:32 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.94 2003/09/07 11:48:29 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -24,7 +24,7 @@ (deftransform float ((n &optional f) (* &optional single-float) * :when :both) - '(if (floatp n) + '(if (single-float-p n) n (%single-float n))) diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt index 22e6f55403febb718cfafa9cb20b1849c3e51a90..8b31579ff8b64efcfa2cee0c8db3c83917e7e5d9 100644 --- a/general-info/release-19a.txt +++ b/general-info/release-19a.txt @@ -177,6 +177,7 @@ New in this release: similar cases. - GCD sometimes returning a negative value. - LCM sometimes returning a negative value, or signaling division-by-zero. + - FLOAT in sometimes returning a float of the wrong type. * Other changes: - CREATE-REQUEST-SERVER has an additional :reuse-address keyword