From 201bc40da31e959b4c7742977b73cd7ce155d443 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Tue, 23 Nov 2010 05:22:10 -0500
Subject: [PATCH] 2.010.9: unbreak clisp: don't use find-symbol* at read-time,
 declare ignorable arguments.

---
 asdf.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index 5af923e9..d5c1bdcf 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -77,7 +77,7 @@
          ;; "2.345" would be an official release
          ;; "2.345.6" would be a development version in the official upstream
          ;; "2.345.0.7" or "2.345.6.7" would be your local modification of one of the above.
-         (asdf-version "2.010.8")
+         (asdf-version "2.010.9")
          (existing-asdf (fboundp 'find-system))
          (existing-version *asdf-version*)
          (already-there (equal asdf-version existing-version)))
@@ -666,7 +666,7 @@ with given pathname and if it exists return its truename."
    (string (probe-file* (parse-namestring p)))
    (pathname (unless (wild-pathname-p p)
                #.(or #+(or allegro clozure cmu ecl sbcl scl) '(probe-file p)
-               #+clisp (aif (find-symbol* '#:probe-pathname :ext) `(ignore-errors (,it p)))
+               #+clisp (aif (find-symbol (string '#:probe-pathname) :ext) `(ignore-errors (,it p)))
 	       '(ignore-errors (truename p)))))))
 
 (defun* truenamize (p)
@@ -3134,6 +3134,7 @@ effectively disabling the output translation facility."
 ;;;; Compatibility mode for ASDF-Binary-Locations
 
 (defmethod operate :before (operation-class system &rest args &key &allow-other-keys)
+  (declare (ignorable operation-class system args))
   (when (find-symbol* '#:output-files-for-system-and-operation :asdf)
     (error "ASDF 2 is not compatible with ASDF-BINARY-LOCATIONS, which you are using.
 ASDF 2 now achieves the same purpose with its builtin ASDF-OUTPUT-TRANSLATIONS,
-- 
GitLab