Don't display NIL if documentation is not set.

fukamachi · Aug 4, 2014 · 96d33ba · 96d33ba
1 parent 2e24ceb
commit 96d33ba
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
diff --git a/src/install.lisp b/src/install.lisp
@@ -322,7 +322,8 @@ Example:
                      (if (eq arglist :not-available)
                          ""
                          arglist)
-                     (split-sequence #\Newline (documentation fn 'function))))
+                     (and (documentation fn 'function)
+                          (split-sequence #\Newline (documentation fn 'function)))))
            (version-message
              (format nil "~&~(~A~) in ~(~A~)~:[~;~:* ~A~]~%Generated by Shelly ~A with ~A ~A at ~A~%"
                      function-name package-name

diff --git a/src/shelly.lisp b/src/shelly.lisp
@@ -45,7 +45,8 @@ If `command' is specified, its usage will be displayed."
                 (if (eq arglist :not-available)
                     ""
                     arglist)
-                (split-sequence #\Newline (documentation parsed-command 'function))))
+                (and (documentation parsed-command 'function)
+                     (split-sequence #\Newline (documentation parsed-command 'function)))))
       (progn
         (format t "~&Built-In Commands:~%")
         (print-package-commands :shelly)
@@ -59,7 +60,8 @@ If `command' is specified, its usage will be displayed."
                         (if (eq arglist :not-available)
                             ""
                             arglist)
-                        (split-sequence #\Newline (documentation symbol 'function)))))))))
+                        (and (documentation symbol 'function)
+                             (split-sequence #\Newline (documentation symbol 'function))))))))))
   (values))
 
 (defun available-versions ()

diff --git a/src/util.lisp b/src/util.lisp
@@ -181,7 +181,8 @@
                 (if (eq arglist :not-available)
                     ""
                     arglist)
-                (split-sequence #\Newline (documentation symbol 'function)))))))
+                (and (documentation symbol 'function)
+                     (split-sequence #\Newline (documentation symbol 'function))))))))
 
 (defun terminate (&optional (status 0) format-string &rest format-arguments)
   (declare (ignorable status))