[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv9639

Modified Files:
	swank-sbcl.lisp 
Log Message:
	* swank-backend.lisp ([default] declaration-arglist): Add
	arglist of DECLARATION declaration.

	* swank-openmcl.lisp ([eql 'optimize] declaration-arglist):
	Implement it for CCL.
	(describe-symbol-for-emacs): Add :CLASS and :TYPE.
	(describe-definition): Add :TYPE.

	* swank-sbcl.lisp (describe-symbol-for-emacs): Add :CLASS.

	Adapted from patch by Stas Boukarev.


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/04/03 21:13:00	1.238
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/04/29 22:21:31	1.239
@@ -761,6 +761,9 @@
 		     (sb-int:info :setf :expander symbol))
 		 (doc 'setf)))
       (maybe-push
+       :class (when (find-class symbol nil)
+                (doc 'class)))
+      (maybe-push
        :type (if (sb-int:info :type :kind symbol)
 		 (doc 'type)))
       result)))