[slime-cvs] CVS update: slime/swank-abcl.lisp

[Andras Simon]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
Track mop changes in ABCL
Date: Sun Oct 30 17:57:19 2005
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.27 slime/swank-abcl.lisp:1.28
--- slime/swank-abcl.lisp:1.27	Tue Jul  5 22:30:59 2005
+++ slime/swank-abcl.lisp	Sun Oct 30 17:57:19 2005
@@ -367,17 +367,17 @@
 (defmethod inspect-for-emacs ((slot mop::slot-definition) (inspector abcl-inspector))
   (declare (ignore inspector))
   (values "A slot." 
-          `("Name: " (:value ,(mop::slot-definition-name slot))
+          `("Name: " (:value ,(mop::%slot-definition-name slot))
             (:newline)
             "Documentation:" (:newline)
             ,@(when (slot-definition-documentation slot)
                 `((:value ,(slot-definition-documentation slot)) (:newline)))
             "Initialization:" (:newline)
-            "  Args: " (:value ,(mop::slot-definition-initargs slot)) (:newline)
-            "  Form: "  ,(if (mop::slot-definition-initfunction slot)
-                             `(:value ,(mop::slot-definition-initform slot))
+            "  Args: " (:value ,(mop::%slot-definition-initargs slot)) (:newline)
+            "  Form: "  ,(if (mop::%slot-definition-initfunction slot)
+                             `(:value ,(mop::%slot-definition-initform slot))
                              "#<unspecified>") (:newline)
-            "  Function: " (:value ,(mop::slot-definition-initfunction slot))
+            "  Function: " (:value ,(mop::%slot-definition-initfunction slot))
             (:newline))))
 
 (defmethod inspect-for-emacs ((f function) (inspector abcl-inspector))