From d2f9ffa70295fb4ec7eea3f64334a79e88ff2efa Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 22 Aug 1991 16:07:46 +0000
Subject: [PATCH] Merged Simon's fix to local-call-analyze-1 to make it work on
 maybe-inline functions.

---
 compiler/locall.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/locall.lisp b/compiler/locall.lisp
index df74f2298..204c12e15 100644
--- a/compiler/locall.lisp
+++ b/compiler/locall.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/locall.lisp,v 1.19 1991/07/29 16:02:27 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.20 1991/08/22 16:07:46 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -242,7 +242,7 @@
 			(not (eq (functional-kind (node-home-lambda ref))
 				 :top-level))))
 	       (ecase (ref-inlinep ref)
-		 ((nil :inline)
+		 ((nil :inline :notinline)
 		  (convert-call-if-possible ref dest))
 		 ((:notinline)))
 	       
-- 
GitLab