[slime-cvs] CVS update: slime/swank.lisp slime/ChangeLog
Marco Baringer
mbaringer at common-lisp.net
Mon Sep 13 00:14:48 UTC 2004
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
More information about the slime-cvs
mailing list