optparse: Various enhancements.

[lisp] / optparse-test

diff --git a/optparse-test b/optparse-test
index cd38066b3997b105cf86fe225b1ae44a9d9293d4..2677caa22db3c77b6a724603db158b6dc914eb96 100755 (executable)
--- a/optparse-test
+++ b/optparse-test
@@ -1,9 +1,8 @@
 #! /usr/local/bin/runlisp
 #! /usr/local/bin/runlisp

-;;; -*-lisp-*-

 
 ;; (format t "Startup!~%")
 (asdf:operate 'asdf:load-op 'mdw :verbose nil)
 
 ;; (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)
 
 (defvar opt-bool nil)
 (defvar opt-int nil)


@@ -56,7 +55,7 @@
        ("Set a keyword from a fixed set."))))
 
 (defun test (args)
        ("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)
     (unless (option-parse-try
              (loop
                 (multiple-value-bind (opt arg) (option-parse-next op)