[slime-cvs] CVS slime

[CVS User mevenson]

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

Modified Files:
	ChangeLog swank-abcl.lisp 
Log Message:
abcl: fix inspection for classes not using the standard metaclass.

--- /project/slime/cvsroot/slime/ChangeLog	2011/08/18 09:41:15	1.2211
+++ /project/slime/cvsroot/slime/ChangeLog	2011/08/26 11:10:47	1.2212
@@ -1,3 +1,8 @@
+2011-08-26  Mark Evenson  <evenson at panix.com>
+
+	* swank-abcl.lisp (class-slots): Use exported symbol allowing
+	classes with non-standard metaobjects to be inspected.
+
 2011-08-18  Helmut Eller  <heller at common-lisp.net>
 
 	Fix line numbers for compiler notes if is narrowing was in effect.
--- /project/slime/cvsroot/slime/swank-abcl.lisp	2010/10/21 08:07:03	1.85
+++ /project/slime/cvsroot/slime/swank-abcl.lisp	2011/08/26 11:10:47	1.86
@@ -58,7 +58,7 @@
   (mop::%slot-definition-name slot))
 
 (defun class-slots (class)
-  (mop::%class-slots class))
+  (mop:class-slots class))
 
 (defun method-generic-function (method)
   (mop::%method-generic-function method))
@@ -634,7 +634,7 @@
            `((:action "[compute toString()]" ,to-string) (:newline)))
        (loop :for (label . value) :in (sys:inspected-parts o)
           :appending (label-value-line label value)))))
-  
+
 ;;;; Multithreading
 
 (defimplementation spawn (fn &key name)