From afdb6bdce4fd839fd4cd16239ef3bdf41ad73d81 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Wed, 28 Apr 2010 18:31:05 -0400 Subject: [PATCH] 1.708: declare ignore to remove one more warning. --- asdf.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/asdf.lisp b/asdf.lisp index 9f5e1694..eecc3880 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -63,7 +63,7 @@ (remove "asdf" excl::*autoload-package-name-alist* :test 'equalp :key 'car)) (let* ((asdf-version ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace - (subseq "VERSION:1.707" (1+ (length "VERSION")))) + (subseq "VERSION:1.708" (1+ (length "VERSION")))) (existing-asdf (find-package :asdf)) (versym '#:*asdf-version*) (existing-version (and existing-asdf @@ -855,6 +855,7 @@ actually-existing directory." (when (find-class 'module nil) (defmethod update-instance-for-redefined-class :after ((m module) added deleted plist &key) + (declare (ignore deleted plist)) (when (member 'components-by-name added) (compute-module-components-by-name m)))) -- GitLab