diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index 664438361361590b2844301578715c413018af42..dd2fd0dd2aade8c95f66f306b49888016b394b51 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.74 2001/03/04 20:12:17 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.75 2003/04/24 13:59:34 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -861,7 +861,8 @@ (let* ((ref (continuation-use (basic-combination-fun call))) (leaf (when (ref-p ref) (ref-leaf ref))) (inlinep (if (and (defined-function-p leaf) - (not (byte-compiling))) + (not (byte-compiling)) + (not *converting-for-interpreter*)) (defined-function-inlinep leaf) :no-chance))) (cond