(getopt '("--a=10") '(("along" :optional))))
(test-mv '(nil nil ("a"))
(getopt '("--a=10") '(("along" :optional) ("aboot" :optional))))
(getopt '("--a=10") '(("along" :optional))))
(test-mv '(nil nil ("a"))
(getopt '("--a=10") '(("along" :optional) ("aboot" :optional))))