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

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 "~%")))