From 839c702f5e1bfba03853f1a9518b901744fc4df5 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Sat, 6 Sep 2003 19:38:17 +0000
Subject: [PATCH] 	Silence warnings about free ignore declarations in
 method 	functions.  Reported by Craig Lanning.

	* src/pcl/boot.lisp (simple-lexical-method-functions): Rebind
	next-methods and method-args, and declare ignorable.
---
 pcl/boot.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index 42c207245..3a616919f 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.68 2003/06/05 08:33:45 gerd Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.69 2003/09/06 19:38:17 gerd Exp $")
 
 (in-package :pcl)
 
@@ -724,7 +724,8 @@ work during bootstrapping.
 (defmacro simple-lexical-method-functions
     ((lambda-list method-args next-methods &rest lmf-options) 
      &body body)
-  `(locally
+  `(let ((,method-args ,method-args)
+	 (,next-methods ,next-methods))
      (declare (ignorable ,method-args ,next-methods))
      (bind-simple-lexical-method-macros (,method-args ,next-methods)
        (bind-lexical-method-functions (,@lmf-options)
-- 
GitLab