From 6afec9101d5ea87e3df4bda2239ffd05f8154fa6 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 6 Oct 2019 22:24:58 +0100 Subject: [PATCH] doc/list-exports: Use `documentation' to find more categories. --- doc/list-exports | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/doc/list-exports b/doc/list-exports index 9fc38bb..1d9b0c4 100755 --- a/doc/list-exports +++ b/doc/list-exports @@ -358,9 +358,9 @@ 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)) - (when (fboundp symbol) + (when (or (fboundp symbol) (documentation symbol 'function)) (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))) - (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) -- 2.11.0