From c960d0d8685c2a60e7b829d057ef8bc4b32d23d7 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 11 May 1993 13:54:57 +0000 Subject: [PATCH] When byte-compiling, don't do any inline expansion, and only do ir1 transforms explicitly annotated as relevant. --- compiler/ir1opt.lisp | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index 8eaa001f9..bbf70cc18 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.59 1993/03/19 17:05:23 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.60 1993/05/11 13:54:57 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -850,7 +850,8 @@ (declare (type combination call)) (let* ((ref (continuation-use (basic-combination-fun call))) (leaf (when (ref-p ref) (ref-leaf ref))) - (inlinep (if (defined-function-p leaf) + (inlinep (if (and (defined-function-p leaf) + (not *byte-compiling*)) (defined-function-inlinep leaf) :no-chance))) (cond @@ -1010,7 +1011,11 @@ (policy node (>= speed brevity)) (policy node (> speed brevity)))) (*compiler-error-context* node)) - (cond ((or (not constrained) + (cond ((let ((when (transform-when transform))) + (not (or (eq when :both) + (eq when (if *byte-compiling* :byte :native))))) + t) + ((or (not constrained) (valid-function-use node type :strict-result t)) (multiple-value-bind (severity args) -- GitLab