From: Stelian Ionescu <sionescu@cddr.org>
Date: Fri, 12 Jul 2013 21:01:24 +0000 (+0200)
Subject: Declare unused variables as ignorable
X-Git-Tag: v0.8.1~53
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/dbe178b0fbf1badf0064fae671706f0fbbd7187b

Declare unused variables as ignorable
---

diff --git a/src/grovel/asdf.lisp b/src/grovel/asdf.lisp
index 3250624..b16b7df 100644
--- a/src/grovel/asdf.lisp
+++ b/src/grovel/asdf.lisp
@@ -39,7 +39,7 @@
   ((cc-flags :initform nil :accessor cc-flags-of :initarg :cc-flags)))
 
 (defmethod asdf:perform :around ((op asdf:compile-op) (file cc-flags-mixin))
-  (declare (ignore op))
+  (declare (ignorable op))
   (let ((*cc-flags* (append (ensure-list (cc-flags-of file))
                             *cc-flags*)))
     (call-next-method)))
@@ -65,7 +65,7 @@
     PROCESS-OP.")))
 
 (defmethod asdf:output-files ((op process-op) (c process-op-input))
-  (declare (ignore op))
+  (declare (ignorable op))
   (list (make-pathname :type (generated-lisp-file-type c)
                        :defaults (asdf:component-pathname c))))
 
@@ -75,12 +75,12 @@
     ,@(call-next-method)))
 
 (defmethod asdf:component-depends-on ((op asdf:compile-op) (c process-op-input))
-  (declare (ignore op))
+  (declare (ignorable op))
   `((process-op ,(asdf:component-name c))
     ,@(call-next-method)))
 
 (defmethod asdf:component-depends-on ((op asdf:load-source-op) (c process-op-input))
-  (declare (ignore op))
+  (declare (ignorable op))
   `((process-op ,(asdf:component-name c))
     ,@(call-next-method)))