(getopt '("--a=10") '(("along" :optional) ("aboot" :optional))))
(test-mv '(("a") nil nil)
(getopt '("a") '(("a" :none))))
+ (test-mv '(("a") (("foo") ("bar")) nil)
+ (getopt '("a" "--foo" "--bar") '(("foo" :none) ("bar" :none))))
+ (test-mv '(("a") (("foo") ("bar")) nil)
+ (getopt '("a" "--f" "--bar") '(("foo" :none) ("bar" :none))))
))
t)