Do not print command's short description if it's not set

dnaeon · Jul 14, 2023 · d064028 · d064028
1 parent e771def
commit d064028
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/command.lisp b/src/command.lisp
@@ -1028,7 +1028,7 @@ _~~A() {
 (defmethod print-usage ((command command) stream &key (wrap-at 70))
   (initialize-command command)
   (format stream "NAME:~%")
-  (format stream "  ~A - ~A~2%" (command-full-name command) (command-description command))
+  (format stream "  ~A~@[ - ~A~]~2%" (command-full-name command) (command-description command))
 
   (format stream "USAGE:~%")
   (format stream "  ~A~2%" (command-usage-string command))