Fix swank:inspect-slot-for-emacs usage.
Wed Jun 3 02:12:24 PDT 2009 levente.meszaros@gmail.com
* Fix swank:inspect-slot-for-emacs usage.
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-computed-class/swank-integration.lisp new-computed-class/swank-integration.lisp
--- old-computed-class/swank-integration.lisp 2014-07-22 08:38:02.000000000 -0700
+++ new-computed-class/swank-integration.lisp 2014-07-22 08:38:02.000000000 -0700
@@ -27,9 +27,9 @@
:computed-class-test 'setup-readtable)
;; when inspecting a computed slot, display the computed-state
-(defmethod inspect-slot-for-emacs ((class computed-class)
- (object computed-object)
- (slot computed-effective-slot-definition))
+(defmethod swank:inspect-slot-for-emacs ((class computed-class)
+ (object computed-object)
+ (slot computed-effective-slot-definition))
;; we skip svuc to avoid recalculation of invalid slots
(let ((value (standard-instance-access-form object slot)))
(cond ((eq value '#.+unbound-slot-value+)
@@ -46,4 +46,3 @@
" "
(:action "[make unbound]" ,(lambda () (slot-makunbound-using-class class object slot)))))
(t (call-next-method)))))
-