Extending APROPOS with "(macro/special/class)" descriptions.

[sbcl.git] / src / code / target-package.lisp

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 7a06e73..7e4f244 100644 (file)
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -1554,8 +1554,15 @@ PACKAGE."
   (prin1 symbol)
   (when (boundp symbol)
     (write-string " (bound)"))
-  (when (fboundp symbol)
-    (write-string " (fbound)")))
+  (cond
+    ((special-operator-p symbol)
+     (write-string " (special)"))
+    ((macro-function symbol)
+     (write-string " (macro)"))
+    ((fboundp symbol)
+     (write-string " (fbound)")))
+  (when (find-class symbol NIL)
+    (write-string " (class)")))
 
 (defun apropos-list (string-designator
                      &optional