From 4b47e50df9e30e179ce01f056a827408c40d1245 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Mon, 9 Sep 2013 21:38:00 +0200 Subject: [PATCH] Extending APROPOS with "(macro/special/class)" descriptions. --- src/code/target-package.lisp | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) 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 -- 1.7.10.4