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.
This commit is contained in:
Dimitri Fontaine 2018-06-23 00:50:35 +02:00
parent 8930734bea
commit 9661c5874d

View File

@ -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