From ef2c6b0eef9a7e53b8acc0dfe9b976a0fddaccc6 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Wed, 17 Dec 1997 15:07:50 +0000 Subject: [PATCH] Elfun-derive-type-simple: don't try and coerce default bounds to the appropriate type if there are none. Noted by Raymond Toy. --- 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 d71973aab..32c5b0e1c 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.52 1997/12/16 15:54:11 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.53 1997/12/17 15:07:50 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -612,9 +612,9 @@ :class 'float :format f-type :low (or (bound-func fcn lo) - (coerce default-lo f-type)) + (and default-lo (coerce default-lo f-type))) :high (or (bound-func fcn hi) - (coerce default-hi f-type)))) + (and default-hi (coerce default-hi f-type))))) (float-or-complex-type arg)))) (t (float-or-complex-type arg default-lo default-hi)))))) -- GitLab