doc/list-exports: Use `documentation' to find more categories.

diff --git a/doc/list-exports b/doc/list-exports
index 9fc38bbb9bc334fe23162041fabc45f335864600..1d9b0c4a2ad5797853fbadf1bd24dfc877eacc6b 100755 (executable)
--- a/doc/list-exports
+++ b/doc/list-exports
@@ -358,9 +358,9 @@
    categorizing the kinds of definitions that SYMBOL has."
 
   (let ((things nil))
    categorizing the kinds of definitions that SYMBOL has."
 
   (let ((things nil))

-    (when (boundp symbol)
+    (when (or (boundp symbol) (documentation symbol 'variable))

       (push (if (constantp symbol) :constant :variable) things))
       (push (if (constantp symbol) :constant :variable) things))

-    (when (fboundp symbol)
+    (when (or (fboundp symbol) (documentation symbol 'function))

       (push (cond ((macro-function symbol) :macro)
                  ((typep (fdefinition symbol) 'generic-function)
                   :generic)
       (push (cond ((macro-function symbol) :macro)
                  ((typep (fdefinition symbol) 'generic-function)
                   :generic)


@@ -370,8 +370,8 @@
        (generic-function (push :setf-generic things))
        (function (push :setf-function things))
        (null)))
        (generic-function (push :setf-generic things))
        (function (push :setf-function things))
        (null)))

-    (when (find-class symbol nil)
-      (push :class things))
+    (when (or (find-class symbol nil) (documentation symbol 'type))
+      (push (if (find-class symbol nil) :class :type) things))

     (when (specialized-on-p #'sod:expand-c-type-spec 0 symbol)
       (push :c-type-spec things))
     (when (specialized-on-p #'sod:expand-c-type-form 0 symbol)
     (when (specialized-on-p #'sod:expand-c-type-spec 0 symbol)
       (push :c-type-spec things))
     (when (specialized-on-p #'sod:expand-c-type-form 0 symbol)