Add better documentation
This commit is contained in:
2
web.lisp
2
web.lisp
@ -509,7 +509,7 @@ arguments."
|
||||
(cerror "Ignore the extra arguments." 'command-line-error
|
||||
:message "extra non-option arguments"))
|
||||
(when (option-value 'help opts)
|
||||
(print-usage t *command-line-spec* "truth-table-webserver"
|
||||
(print-usage t *command-line-spec* "truth-table-web-wrapper"
|
||||
:print-astrisk nil)
|
||||
(if cmdline-error
|
||||
(uiop:quit 1)
|
||||
|
Reference in New Issue
Block a user