Skip to content
Snippets Groups Projects
Commit afdb6bdc authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

1.708: declare ignore to remove one more warning.

parent da8b51ef
No related branches found
Tags 1.708
No related merge requests found
......@@ -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))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment