[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	ChangeLog swank-openmcl.lisp swank-sbcl.lisp 
Log Message:
Fix thinko. DOCUMENTATION does not support :CLASS.


--- /project/slime/cvsroot/slime/ChangeLog	2009/04/29 22:20:25	1.1732
+++ /project/slime/cvsroot/slime/ChangeLog	2009/04/29 22:29:18	1.1733
@@ -5,11 +5,9 @@
 
 	* swank-openmcl.lisp ([eql 'optimize] declaration-arglist):
 	Implement it for CCL.
-	(describe-symbol-for-emacs): Add :CLASS and :TYPE.
+	(describe-symbol-for-emacs): Add :TYPE.
 	(describe-definition): Add :TYPE.
 
-	* swank-sbcl.lisp (describe-symbol-for-emacs): Add :CLASS.
-
 	Adapted from patch by Stas Boukarev.
 
 2009-04-29  Tobias C. Rittweiler  <tcr at freebits.de>
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/04/29 22:20:25	1.161
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/04/29 22:29:18	1.162
@@ -878,9 +878,6 @@
                (when (fboundp setf-function-name)
                  (doc 'function setf-function-name))))
       (maybe-push
-       :class (when (find-class symbol nil)
-                (doc 'class)))
-      (maybe-push
        :type (when (ccl:type-specifier-p symbol)
                (doc 'type)))
       result)))
@@ -896,7 +893,7 @@
     (:class
      (describe (find-class symbol)))
     (:type
-     (describe symbol))))
+     (describe (or (find-class symbol nil) symbol)))))
 
 (defimplementation toggle-trace (spec)
   "We currently ignore just about everything."
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/04/29 22:21:31	1.239
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/04/29 22:29:18	1.240
@@ -761,9 +761,6 @@
 		     (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)))