From: Kevin M. Rosenberg Date: Wed, 11 May 2005 16:42:10 +0000 (+0000) Subject: r10530: fix argument list X-Git-Tag: v0.13~14 X-Git-Url: http://git.kpe.io/?p=cl-photo.git;a=commitdiff_plain;h=b95675fd79eb1c5a791267cdc4fc0584c4f14b3b r10530: fix argument list --- diff --git a/fov.lisp b/fov.lisp index a66d551..fba5ce9 100644 --- a/fov.lisp +++ b/fov.lisp @@ -208,10 +208,8 @@ Returns: focal-length object-distance image-distance magnification bellows-facto "Returns the bellows factor, the ratio of effective aperature to actual aperture." (1+ (magnification :focal-length focal-length :object-distance object-distance))) -(defun extension-tube (focal-length &key original-object-distance new-object-distance original-image-distance - original-magnification - new-object-distance new-image-distance new-magnification - extension-length (units :feet)) +(defun extension-tube (focal-length &key original-object-distance original-image-distance original-magnification + new-object-distance new-image-distance new-magnification extension-length (units :feet)) "Computes the parameters for using extension tubes. Requires: 1. original-object-distance, original-image-distance, or original-magnification 2. new-object-distance, new-image-distance, new-magnification, or extension-length