[slime-cvs] CVS slime

[CVS User mevenson]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv19612

Modified Files:
	ChangeLog swank-abcl.lisp 
Log Message:
abcl: Differntiate fboundp symbol descriptions.


--- /project/slime/cvsroot/slime/ChangeLog	2011/09/13 22:20:41	1.2215
+++ /project/slime/cvsroot/slime/ChangeLog	2011/09/27 06:06:28	1.2216
@@ -1,3 +1,9 @@
+2011-09-27  Mark Evenson  <evenson at panix.com>
+
+	* swank-abcl.lisp (describe-symbol-for-emacs): Differentiate
+	between function, generic function, special forms, and macros by
+	copying SBCL implementation.
+
 2011-09-13  Christophe Rhodes  <csr21 at cantab.net>
 
 	* slime.el (slime-simple-complete-symbol): only display "Complete
--- /project/slime/cvsroot/slime/swank-abcl.lisp	2011/08/26 11:10:47	1.86
+++ /project/slime/cvsroot/slime/swank-abcl.lisp	2011/09/27 06:06:28	1.87
@@ -239,9 +239,14 @@
       (maybe-push
        :variable (when (boundp symbol)
                    (doc 'variable)))
-      (maybe-push
-       :function (if (fboundp symbol)
-                     (doc 'function)))
+      (when (fboundp symbol)
+        (maybe-push
+         (cond ((macro-function symbol)     :macro)
+	       ((special-operator-p symbol) :special-operator)
+	       ((typep (fdefinition symbol) 'generic-function)
+                :generic-function)
+	       (t :function))
+         (doc 'function)))
       (maybe-push
        :class (if (find-class symbol nil)
                   (doc 'class)))