From 3f64cc7f880385e76a660ad64fe4a2bd67f9c0c5 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 28 Apr 2013 16:42:11 +0300 Subject: [PATCH] silence a couple of unused-variable warnings --- src/boot.lisp | 2 +- src/compiler.lisp | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) 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) -- 1.7.10.4