From b95675fd79eb1c5a791267cdc4fc0584c4f14b3b Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 11 May 2005 16:42:10 +0000 Subject: [PATCH] r10530: fix argument list --- fov.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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 -- 2.34.1