From d32282150dd1947a75235ec1eb1d6e732393b732 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 24 May 1991 01:03:52 +0000 Subject: [PATCH] Oops... In global inline expansion, we have to substitute for all references to the dummy somehow. For any :notinline references, we substitute back to the original global var. --- compiler/ir1tran.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 64eda74ff..d8c67ad53 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.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/ir1tran.lisp,v 1.47 1991/05/23 17:51:20 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.48 1991/05/24 01:03:52 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -500,6 +500,7 @@ #'(lambda (x) (not (eq (ref-inlinep x) :notinline))) fun dummy) + (substitute-leaf var dummy) (setf (gethash name *free-functions*) (if (eq inlinep :inline) var -- GitLab