From e7db64d3203062fe408c11ca4a59c241d346de24 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 15 Sep 1992 15:43:57 +0000
Subject: [PATCH] Added VARIFY-LAMBDA-ARG and MAKE-NEW-INLINEP to their block's
 entry points.

---
 compiler/ir1tran.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index e32734b91..03b5d0541 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.74 1992/09/07 15:48:15 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.75 1992/09/15 15:43:57 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -799,7 +799,7 @@
 
 ;;;; PROCESS-DECLARATIONS:
 
-(declaim (start-block process-declarations))
+(declaim (start-block process-declarations make-new-inlinep))
 
 ;;; Find-In-Bindings  --  Internal
 ;;;
@@ -1143,7 +1143,7 @@
 ;;;; Lambda hackery:  
 
 (declaim (start-block ir1-convert-lambda ir1-convert-lambda-body
-		      ir1-convert-aux-bindings))
+		      ir1-convert-aux-bindings varify-lambda-arg))
 
 ;;; Varify-Lambda-Arg  --  Internal
 ;;;
-- 
GitLab