X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=main.lisp;h=b6b5070fa5ca15913dce2f11763a90d948a5bb43;hb=eef26086e56d5cc18542dd8a7c10bed4c4341b25;hp=e348f42183e7ef5fa08b9f3a5b6b1ccec742f1c1;hpb=6f02e1d3632a72a98c66def70d68ea2d4020e227;p=getopt.git

diff --git a/main.lisp b/main.lisp
index e348f42..b6b5070 100644
--- a/main.lisp
+++ b/main.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Sep 2003
 ;;;;
-;;;; $Id: package.lisp 7814 2003-09-10 12:56:02Z kevin $
+;;;; $Id$
 ;;;;
 ;;;; *************************************************************************
 
@@ -109,7 +109,7 @@ opts is a list of option lists. The fields of the list are
 	(multiple-value-bind (option-list option-type base-name argument)
 	    (match-option (car pos) options)
 	  (cond
-	    (option-list
+	    ((and option-list (not (eq option-type :arg)))
 	     (cond
 	       (argument
 		(case (second option-list)