diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index 2d120c58ccc4a48a7619bc60240ec607f9e4e334..3aa6da99e64833f4756f8db6f1b0863d240582d7 100644 --- a/compiler/ir1opt.lisp +++ b/compiler/ir1opt.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.40 1992/02/11 22:47:01 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.41 1992/02/19 16:15:21 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -907,7 +907,10 @@ (let* ((type (transform-type transform)) (fun (transform-function transform)) (constrained (function-type-p type)) - (flame (policy node (> speed brevity))) + (flame + (if (transform-important transform) + (policy node (>= speed brevity)) + (policy node (> speed brevity)))) (*compiler-error-context* node)) (cond ((or (not constrained) (valid-function-use node type :strict-result t))