Forward declaration for process-command-line-options. Some bug comments.

diff --git a/README.org b/README.org
index d4c8da3..d33cb2c 100644 (file)
--- a/README.org
+++ b/README.org
@@ -14,3 +14,11 @@
   Or else, build a general tool to display stuff on a terminal
   while respecting terminal width.
   Or output HTML and use lynx -dump or a browser.
+
+ * BUG: Apparently, when there is a missing string argument to a string option
+  as in --string --bar we assign T to string argument --string instead of erroring out.
+
+ * Have an actual test suite. Sigh.
+
+ * Similar bug to fix, keeping a regression test:
+  (process-command-line-options '(("export-model" :type boolean :optional nil)) '("--export-model" "no"))

diff --git a/argv.lisp b/argv.lisp
index 96e571b..75f1c93 100644 (file)
--- a/argv.lisp
+++ b/argv.lisp
@@ -29,6 +29,8 @@
       #-(or sbcl clozure gcl ecl cmu allegro lispworks clisp)
       (error "get-command-line-arguments not supported for your implementation"))))
 
+(declaim (ftype (function (t t) (values t t)) process-command-line-options))
+
 (defun compute-and-process-command-line-options (specification)
   (process-command-line-options specification (get-command-line-arguments)))