Add support for properly aligning options with and without short and long names in...

Instead of having

-f --foo
--bar

Now we have

-f --foo
   --bar

when bar specifies #\Space as the short option designator.

diff --git a/parse-command-line-arguments.lisp b/parse-command-line-arguments.lisp
index f7508c5..3a59c3a 100644 (file)
--- a/parse-command-line-arguments.lisp
+++ b/parse-command-line-arguments.lisp
@@ -241,6 +241,7 @@ or what's currently left of them as they are processed")
 
 (defun option-name (option-designator)
   (etypecase option-designator
+    ((eql #\Space) "  ") ; the same number of spaces just without the #\-
     (character (format nil "-~A" option-designator))
     (string    (format nil "--~A" option-designator))))