From cac10792fcbf46164f605c7a2c9740a2e1eec3fe Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Thu, 24 Apr 2003 13:59:34 +0000
Subject: [PATCH] 	ANSI test fixes, interpreted code.

	* src/compiler/ir1opt.lisp (recognize-known-call): Don't inline if
	*converting-for-interpreter*.  This suppresses inlining when
	generating IR1 for interpretation because no type-checking IR1 is
	generated in this case, and the interpreter, internal-apply-loop
	for instance, doesn't do type checks is some other way either.
---
 compiler/ir1opt.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp
index 664438361..dd2fd0dd2 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
-- 
GitLab