Zander671/truth-table
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix type in help output

Browse Source
This commit is contained in:
Alexander Rosenberg
2024-09-03 18:24:08 -07:00
parent 7a80c02bc8
commit 4d71df6d7e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
truth-table.lisp
View File

@ -875,7 +875,7 @@ arguments will be placed in a list at the beginning of the alist."
(defun print-usage (stream spec) (defun print-usage (stream spec)
"Print the command line usage corresponding to SPEC to STREAM." "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 (loop with longest-option
= (apply 'max (mapcar = (apply 'max (mapcar
(lambda (entry) (lambda (entry)