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

[Helmut Eller]

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

Modified Files:
	swank-backend.lisp 
Log Message:
(frame-var-value): New backend function.

Date: Fri Jun 25 01:05:26 2004
Author: heller

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.56 slime/swank-backend.lisp:1.57
--- slime/swank-backend.lisp:1.56	Mon Jun 21 23:24:17 2004
+++ slime/swank-backend.lisp	Fri Jun 25 01:05:25 2004
@@ -347,11 +347,16 @@
 DEFINE-DEBUGGER-HOOK.")
 
 (definterface frame-locals (frame-number)
-   "Return a list of XXX local variable designators define me
+  "Return a list of XXX local variable designators define me
 for a debugger stack frame.  The results are undefined unless
 this is called within the dynamic contour of a function defined
 by DEFINE-DEBUGGER-HOOK.")
 
+(definterface frame-var-value (frame var)
+  "Return the value of VAR in FRAME.  
+FRAME is the number of the frame in the backtrace.
+VAR is the number of the variable in the frame.")
+
 (definterface disassemble-frame (frame-number)
   "Disassemble the code for the FRAME-NUMBER.
 The output should be written to standard output.
@@ -510,12 +515,13 @@
 
 ;;;; Inspector
 
-(defstruct (unbound-slot-filler
-             (:print-object 
-              (lambda (obj stream)
-                (print-unreadable-object (obj stream :type t)))))
+(defstruct (unbound-slot-filler (:print-function print-unbound-slot))
   "The definition of an object which serves as a placeholder in
 an unbound slot for inspection purposes.")
+
+(defun print-unbound-slot (o stream depth)
+  (declare (ignore depth))
+  (print-unreadable-object (o stream :type t)))
 
 (definterface inspected-parts (object)
   "Return a short description and a list of (LABEL . VALUE) pairs."