From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sun, 28 Apr 2013 13:42:11 +0000 (+0300)
Subject: silence a couple of unused-variable warnings
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3f64cc7f880385e76a660ad64fe4a2bd67f9c0c5;p=jscl.git

silence a couple of unused-variable warnings
---

diff --git a/src/boot.lisp b/src/boot.lisp
index 3a9ce45..d89b6bd 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -636,7 +636,7 @@
     ((null (cddr pairs))
      (let ((place (ls-macroexpand-1 (first pairs)))
            (value (second pairs)))
-       (multiple-value-bind (vars vals store-vars writer-form reader-form)
+       (multiple-value-bind (vars vals store-vars writer-form)
            (get-setf-expansion place)
          ;; TODO: Optimize the expansion a little bit to avoid let*
          ;; or multiple-value-bind when unnecesary.
diff --git a/src/compiler.lisp b/src/compiler.lisp
index a6c451b..6613d8c 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -183,6 +183,7 @@
 (defvar *variable-counter* 0)
 
 (defun gvarname (symbol)
+  (declare (ignore symbol))
   (code "v" (incf *variable-counter*)))
 
 (defun translate-variable (symbol)