#! /usr/local/bin/runlisp
-;;; -*-lisp-*-
;; (format t "Startup!~%")
(asdf:operate 'asdf:load-op 'mdw :verbose nil)
-(use-package '#:mdw.optparse)
+(use-package '#:optparse)
(defvar opt-bool nil)
(defvar opt-int nil)
("Set a keyword from a fixed set."))))
(defun test (args)
- (let ((op (make-option-parser (cdr args) options)))
+ (let ((op (make-option-parser :args (cdr args) :options options)))
(unless (option-parse-try
(loop
(multiple-value-bind (opt arg) (option-parse-next op)