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