X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/861345b43569790e39df152c6b495b14e7dab360..93f0472497372859d9cb9bf7690044bd0e66f0ad:/optparse-test

diff --git a/optparse-test b/optparse-test
index cd38066..2677caa 100755
--- 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)