X-Git-Url: http://git.kpe.io/?p=cl-photo.git;a=blobdiff_plain;f=tables.lisp;h=228a0ed831e7a7e98972a63fdfef028b3b086870;hp=0b256a514bd23f4e48424a862c0bf0be370b605c;hb=431903301170bffaea3a481813a210dc407d0455;hpb=fc8a886945d4cbd4c6bc40d8f5c33b653cc64c07

diff --git a/tables.lisp b/tables.lisp
index 0b256a5..228a0ed 100644
--- 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 "~%")))