Exported *documentation-text* instead of set-documentation-text.

Pascal J. Bourguignon [2012-03-13 19:30]
Exported *documentation-text* instead of set-documentation-text.
Filename
common-lisp/unix/option.lisp
diff --git a/common-lisp/unix/option.lisp b/common-lisp/unix/option.lisp
index f864906..49d81ab 100644
--- a/common-lisp/unix/option.lisp
+++ b/common-lisp/unix/option.lisp
@@ -38,8 +38,8 @@
   (:export "PNAME" "*PROGRAM-NAME*" "*DEBUG*"
            "REDIRECTING-STDOUT-TO-STDERR"
            "DEFINE-OPTION"
-           "CALL-OPTION-FUNCTION"
-           "SET-DOCUMENTATION-TEXT"
+           "CALL-OPTION-FUNCTION"
+           "*DOCUMENTATION-TEXT*"
            "*BASH-COMPLETION-HOOK*"
            "PARSE-OPTIONS" "PARSE-OPTIONS-FINISH"
            ;; Exit codes:
@@ -390,9 +390,6 @@ RETURN:     The lisp-name of the option (this is a symbol
 (defvar *documentation-text* "")


-(defun set-documentation-text (text)
-  (setf *documentation-text* text))
-

 (defun option-list ()
   (let ((options '()))
ViewGit