Skip to content
Snippets Groups Projects
Commit ef2c6b0e authored by dtc's avatar dtc
Browse files

Elfun-derive-type-simple: don't try and coerce default bounds to the

appropriate type if there are none. Noted by Raymond Toy.
parent 743d3d3b
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -612,9 +612,9 @@
:class 'float :class 'float
:format f-type :format f-type
:low (or (bound-func fcn lo) :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) :high (or (bound-func fcn hi)
(coerce default-hi f-type)))) (and default-hi (coerce default-hi f-type)))))
(float-or-complex-type arg)))) (float-or-complex-type arg))))
(t (t
(float-or-complex-type arg default-lo default-hi)))))) (float-or-complex-type arg default-lo default-hi))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment