From dbe178b0fbf1badf0064fae671706f0fbbd7187b Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Fri, 12 Jul 2013 23:01:24 +0200 Subject: [PATCH] Declare unused variables as ignorable --- src/grovel/asdf.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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))) -- 2.11.4.GIT