From 9661c5874de787c03f352c84102a0bfbbf78e222 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Sat, 23 Jun 2018 00:50:35 +0200 Subject: [PATCH] Fix previous patch. It's easy to avoid having the warning about unused lexical variable with the proper declaration, that I failed to install before because of a syntax error when I tried. Let's fix it now that I realise what was wrong. --- src/utils/state.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/utils/state.lisp b/src/utils/state.lisp index d454a2e..f1bd9ca 100644 --- a/src/utils/state.lisp +++ b/src/utils/state.lisp @@ -86,16 +86,14 @@ :direction :output :if-exists :rename :if-does-not-exist nil) - ;; avoid a warning about DATA being some unused lexical variable - (pathname data))) + (declare (ignore data)))) (when (probe-file logs-pathname) (with-open-file (logs logs-pathname :direction :output :if-exists :rename :if-does-not-exist nil) - ;; avoid a warning about LOGS being some unused lexical variable - (pathname logs))) + (declare (ignore logs)))) ;; set the properties to the right pathnames (setf (pgtable-reject-data table) data-pathname