diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index 9f2f75608b2db3ad7022a96cee85ce54aa0d0181..6ea6145ee72f58508b8b80078862770790092f57 100644 --- a/compiler/ir1opt.lisp +++ b/compiler/ir1opt.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/ir1opt.lisp,v 1.65 1994/10/31 04:27:28 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.66 1998/02/24 09:58:18 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1112,6 +1112,9 @@ (cond ((not win) (setf (combination-kind call) :error)) + ;; X Always transform the call below so that non-flushable + ;; functions get flushed if the constant folding works. + #+nil ((= (length values) 1) (with-ir1-environment call (when (producing-fasl-file)