X-Git-Url: http://git.kpe.io/?p=getopt.git;a=blobdiff_plain;f=main.lisp;fp=main.lisp;h=b6b5070fa5ca15913dce2f11763a90d948a5bb43;hp=885ab096c259c512908f962fda1292503b9b31c9;hb=eef26086e56d5cc18542dd8a7c10bed4c4341b25;hpb=82c782eb6d4fdae0429d2c22e78129910d98dfb0

diff --git a/main.lisp b/main.lisp
index 885ab09..b6b5070 100644
--- a/main.lisp
+++ b/main.lisp
@@ -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)