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