base: Reorder a bit.

[lisp] / optparse-test

diff --git a/optparse-test b/optparse-test
index cd38066..2677caa 100755 (executable)
--- a/optparse-test
+++ b/optparse-test
@@ -1,9 +1,8 @@
 #! /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)
@@ -56,7 +55,7 @@
        ("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)