diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp index 197335a0c74f6404fbb9e9700dc51cc4c90c4f60..7d2d1ef2a95d3da3917f6888cb5da072830fc997 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.101 2005/04/24 01:59:01 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.102 2005/04/29 13:35:46 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -375,12 +375,9 @@ :low new-lo :high new-hi))))) ;;; -(defoptimizer (scale-single-float derive-type) ((f ex)) +(defoptimizer (scale-float derive-type) ((f ex)) (two-arg-derive-type f ex #'scale-float-derive-type-aux - #'scale-single-float t)) -(defoptimizer (scale-double-float derive-type) ((f ex)) - (two-arg-derive-type f ex #'scale-float-derive-type-aux - #'scale-double-float t)) + #'scale-float t)) ;;; toy@rtp.ericsson.se: ;;;