From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Mon, 9 Sep 2013 19:38:00 +0000 (+0200)
Subject: Extending APROPOS with "(macro/special/class)" descriptions.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2Fapropos-class;p=sbcl.git

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

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 7a06e73..7e4f244 100644
--- 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