Fix type in help output

2024-09-03 18:24:08 -07:00 · 2024-09-03 18:24:08 -07:00 · 4d71df6d7e
commit 4d71df6d7e
parent 7a80c02bc8
1 changed files with 1 additions and 1 deletions
--- a/truth-table.lisp
+++ b/truth-table.lisp
@ -875,7 +875,7 @@ arguments will be placed in a list at the beginning of the alist."

 (defun print-usage (stream spec)
  "Print the command line usage corresponding to SPEC to STREAM."
-  (format stream "usage: truth-table [options] <proposition>~%~%")
+  (format stream "usage: truth-table [options] <propositions...>~%~%")
  (loop with longest-option
          = (apply 'max (mapcar
                         (lambda (entry)