;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Sep 2003
;;;;
-;;;; $Id: package.lisp 7814 2003-09-10 12:56:02Z kevin $
+;;;; $Id$
;;;;
;;;; *************************************************************************
(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)