-;; (format t "Startup!~%")
-(asdf:operate 'asdf:load-op 'mdw :verbose nil)
-(use-package '#:optparse)
+(cl:defpackage #:optparse-test
+ (:use #:common-lisp #:optparse))
+(cl:in-package #:optparse-test)
("Set an arbitrary keyword."))
(#\e "enumeration" (:arg "ENUM")
(keyword opt-enum (list :apple :apple-pie :abacus :banana))
("Set an arbitrary keyword."))
(#\e "enumeration" (:arg "ENUM")
(keyword opt-enum (list :apple :apple-pie :abacus :banana))
(format t "keyword: ~S~%" opt-keyword)
(format t "enum: ~S~%" opt-enum)
(format t "object: ~S~%" opt-object))
(format t "keyword: ~S~%" opt-keyword)
(format t "enum: ~S~%" opt-enum)
(format t "object: ~S~%" opt-object))