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

[Marco Baringer]

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

Modified Files:
	swank.lisp ChangeLog 
Log Message:
2004-09-13  Marco Baringer  <mb at bese.it>

	* swank.lisp (inspected-parts): Deal with unfinalized classes in
	standard-class inspector. (Patch from Thomas Schilling)

Date: Mon Sep 13 02:14:48 2004
Author: mbaringer

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.229 slime/swank.lisp:1.230
--- slime/swank.lisp:1.229	Mon Sep 13 01:56:39 2004
+++ slime/swank.lisp	Mon Sep 13 02:14:47 2004
@@ -2690,9 +2690,12 @@
                                                         `(:value ,slot ,(princ-to-string
                                                                          (swank-mop:slot-definition-name slot)))))
             (:newline)
-            "Effective Slots: " ,@(common-seperated-spec (swank-mop:class-slots class)
-                                                        (lambda (slot)
-                                                          `(:value ,slot ,(princ-to-string (swank-mop:slot-definition-name slot)))))
+            "Effective Slots: " ,@(if (swank-mop:class-finalized-p class)
+                                      (common-seperated-spec (swank-mop:class-slots class)
+                                                             (lambda (slot)
+                                                               `(:value ,slot ,(princ-to-string
+                                                                                (swank-mop:slot-definition-name slot)))))
+                                      '("N/A (class not finalized)"))
             (:newline)
             "Documentation:" (:newline)
             ,@(when (documentation class t)
@@ -2701,11 +2704,15 @@
                                                      (lambda (sub)
                                                        `(:value ,sub ,(princ-to-string (class-name sub)))))
             (:newline)
-            "Precedence List: " ,@(common-seperated-spec (swank-mop:class-precedence-list class)
-                                                         (lambda (class)
-                                                           `(:value ,class ,(princ-to-string (class-name class)))))
+            "Precedence List: " ,@(if (swank-mop:class-finalized-p class)
+                                      (common-seperated-spec (swank-mop:class-precedence-list class)
+                                                             (lambda (class)
+                                                               `(:value ,class ,(princ-to-string (class-name class)))))
+                                      '("N/A (class not finalized)"))
             (:newline)
-            "Prototype: " (:value ,(swank-mop:class-prototype class)))))
+            "Prototype: " ,(if (swank-mop:class-finalized-p class)
+                               `(:value ,(swank-mop:class-prototype class))
+                               '"N/A (class not finalized)"))))
 
 (defmethod inspected-parts ((slot swank-mop:standard-slot-definition))
   (values (format nil "The slot ~S." slot)


Index: slime/ChangeLog
diff -u slime/ChangeLog:1.518 slime/ChangeLog:1.519
--- slime/ChangeLog:1.518	Mon Sep 13 01:56:39 2004
+++ slime/ChangeLog	Mon Sep 13 02:14:47 2004
@@ -1,5 +1,10 @@
 2004-09-13  Marco Baringer  <mb at bese.it>
 
+	* swank.lisp (inspected-parts): Deal with unfinalized classes in
+	standard-class inspector. (Patch from Thomas Schilling)
+
+2004-09-13  Marco Baringer  <mb at bese.it>
+
 	* swank.lisp: New inspector protocol. The lisp side now returns a
 	specially formated list of "things" to format which are then
 	passed to emacs and rendered in the inspector buffer. Things can
@@ -37,6 +42,7 @@
 
 	* swank-openmcl.lisp (swank-mop, function-name): Implement.
 	(arglist): Implement for function objects.
+
 2004-09-12  Helmut Eller  <e9626484 at stud3.tuwien.ac.at>
 
 	* swank.lisp (compile-file-for-emacs): Use with-buffer-syntax so