r10534: remote warnings, add units capability to make-output-format

[cl-photo.git] / tables.lisp

diff --git a/tables.lisp b/tables.lisp
index 0b256a514bd23f4e48424a862c0bf0be370b605c..228a0ed831e7a7e98972a63fdfef028b3b086870 100644 (file)
--- a/tables.lisp
+++ b/tables.lisp
@@ -71,6 +71,7 @@
       (dolist (distance distances)
         (multiple-value-bind (near far dof mag blur) (dof focal-length f-stop distance coc
                                                           :units units)
+         (declare (ignorable dof mag blur))
           (when (minusp far) (setq far "Inf  "))
           (format output "~5F/~5F " near far)))
       (format output "~%")))