Merge pull request #12 from 40ants/fix-help-message

Removed unnecessary text "Here is a list of all supported commands" from the help message of a command having subcommands.

qlfile.lock

@@ -1,8 +1,8 @@
 ("quicklisp" .
  (:class qlot/source/dist:source-dist
-  :initargs (:distribution "http://beta.quicklisp.org/dist/quicklisp.txt" :%version :latest)
+  :initargs (:distribution "https://beta.quicklisp.org/dist/quicklisp.txt" :%version :latest)
   :version "2023-10-21"))
 ("ultralisp" .
  (:class qlot/source/dist:source-dist
-  :initargs (:distribution "http://dist.ultralisp.org/" :%version :latest)
-  :version "20240306233000"))
+  :initargs (:distribution "https://dist.ultralisp.org/" :%version :latest)
+  :version "20240429121001"))

src/changelog.lisp

@@ -20,16 +20,18 @@
                               "40ANTS-DOC"
                               "40ANTS-CI"
                               "ASDF:MAKE"))
-  (0.13.0 ;; 2021-09-04
+  (0.13.1 2024-04-29
+   "* Removed unnecessary text \"Here is a list of all supported commands\" from the help message of a command having subcommands.")
+  (0.13.0 2021-09-04
    "* Moved to a new documentation rendering engine.")
-  (0.12.1 ;; (2021-08-24)
+  (0.12.1 2021-08-24
    "* Added `(declare (ignorable %pop-argument))` to suppress a compiler NOTE under SBCL.
 
       Thanks to Alessio Stalla!")
-  (0.12.0 ;; (2021-06-05)
+  (0.12.0 2021-06-05
    "* Added LispWorks support.
     * Program name now evaluated at runtime instead of a compile-time.")
-  (0.11.0 ;; (2021-05-08)
+  (0.11.0 2021-05-08
    "Backward incompatible change!
     -----------------------------
 
@@ -44,16 +46,16 @@
     * Fixed subcommands for the case when a program was
       compiled using ASDF:MAKE.
     * Added more examples and improved documentation!")
-  (0.10.0 ;; (2021-04-25)
+  (0.10.0 2021-04-25
    "* Moved documentation from reStructured readme to 40ANTS-DOC
       documentation builder.
     * Added github actions for building docs, linting and testing.
       Using [40ANTS-CI](https://40ants.com/ci/) generator.")
-  (0.9.1 ;; (2021-01-27)
+  (0.9.1 2021-01-27
    "* Fixed work under ABCL and probably CMUCL.
     * Help commands now exit with 0 status code.
     * Fixed annoying banner about missing CC env variable.")
-  (0.9.0 ;; (2018-12-07)
+  (0.9.0 2018-12-07
    "* Added support for programs, built with ASDF:MAKE.
 
       Previously, only [roswell](https://github.com/roswell/roswell) was supported, but now
@@ -74,31 +76,31 @@
       ```bash
       qlot exec ros run -L sbcl -e '(asdf:make :work-hours)'
       ```")
-  (0.8.0 ;; (2018-10-15)
+  (0.8.0 2018-10-15
    "* Added support for positional arguments.
     * Fixed issue of catching signals not inherited  `error` and
       handling them as errors by printing traceback and quitting.")
-  (0.7.2 ;; (2018-07-14)
+  (0.7.2 2018-07-14
    "* Added `Ctrl-C` handling. However seems it does not work for CCL :(")
-  (0.7.1 ;; (2018-06-15)
+  (0.7.1 2018-06-15
    "Error `Undeclared free variable DEFMAIN/DEFMAIN:HELP-COMMANDS` was
     fixed for cases where there is no DEFMAIN:DEFCOMMAND calls beside DEFMAIN:DEFMAIN.")
-  (0.7.0 ;; (2018-06-13)
+  (0.7.0 2018-06-13
    "Defmain macro now restores temporary pathnames inside of `cl-fad` and
     `uiop` packages by setting `logical-pathname-translations` for
     `\"TEMPORARY-FILES\"` and by calling
     `(uiop:setup-temporary-directory)`.
 
     This solves issues in programs which use `(uiop:run-program ...)` or
     `(cl-fad:with-output-to-temporary-file ...)` for example.")
-  (0.6.1 ;; (2018-06-08)
+  (0.6.1 2018-06-08
    "* Now function DEFMAIN:GET-SUBCOMMAND-NAME is available in the main function
       if your specified &SUBCOMMAND as it's argument.")
-  (0.6.0 ;; (2018-06-07)
+  (0.6.0 2018-06-07
    "* Added support for nested commands defined with DEFMAIN:DEFCOMMAND macro.")
-  (0.5.0 ;; (2018-06-02)
+  (0.5.0 2018-06-02
    "* System was made a `package-inferred` and now uses Rove for tests.")
-  (0.4.0 ;; (2018-05-18)
+  (0.4.0 2018-05-18
    "* Now DEFMAIN:DEFMAIN handles all unhandled conditions, prints a backtrace
       and program exists with error code `1`.
 
@@ -126,15 +128,15 @@
                               :short \"V\"))
         ...)
       ```")
-  (0.3.0 ;; (2018-05-12)
+  (0.3.0 2018-05-12
    "* Fixed a way how `--help` option is processed. Now, this argument
       can be redefined by user, for example, to give this option another
       description.
     * Now, if `:default \"some string\"` is given for option, then it will
       be parsed as string. Previously, `lispobj` type was used to parse
       value, and there were problems when you tried to pass as a value
       string with a colon, like some URL.")
-  (0.2.0 ;; (2018-02-09)
+  (0.2.0 2018-02-09
    "* Added function DEFMAIN:PRINT-HELP.
     * Fixed handling of existing `help` option. Now you can redefine it
       to give another description.")

src/defmain.lisp

@@ -533,7 +533,6 @@ Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING
           (format *error-output* "Command \"~A\" was not found.~%"
                   (string-downcase command-name))
           (format *error-output* "Please, specify a command.~%"))
-      (format *error-output* "~2&Here is a list of all supported commands:~2%")
 
       (%print-commands-help parent :stream *error-output*)
       (uiop:quit 1))