Update of /cvsroot/sbcl/sbcl/contrib/sb-aclrepl
In directory sc8-pr-cvs1:/tmp/cvs-serv5399/contrib/sb-aclrepl
Modified Files:
inspect.lisp
Log Message:
contrib/sb-aclrepl/inspect.lisp: [0.pre8.52]
Fix bug that prevented navigating in children
Improve display of root parent in ":i tree"
Index: inspect.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-aclrepl/inspect.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- inspect.lisp 8 Apr 2003 19:39:48 -0000 1.4
+++ inspect.lisp 9 Apr 2003 13:46:17 -0000 1.5
@@ -69,7 +69,8 @@
(new-break :inspect *current-inspect*)
(reset-stack)
(setf (inspect-object-stack *current-inspect*) (list object))
- (setf (inspect-parent-stack *current-inspect*) (list "(inspect ...)"))
+ (setf (inspect-parent-stack *current-inspect*)
+ (list (format nil "(inspect ~S)" object)))
(%inspect output-stream))
@@ -234,7 +235,7 @@
(cond ((eq value *inspect-unbound-object-marker*)
(format output-stream "That slot is unbound~%"))
(t
- (push value stack)
+ (push value (inspect-object-stack *current-inspect*))
(push option-read (inspect-parent-stack *current-inspect*))
(%inspect output-stream)))))
((null elements)
@@ -255,8 +256,10 @@
;; Default is to select eval'd form
(t
(reset-stack)
- (setf (inspect-object-stack *current-inspect*) (list (eval option-read)))
- (setf (inspect-parent-stack *current-inspect*) (list ":i <form>"))
+ (let ((object (eval option-read)))
+ (setf (inspect-object-stack *current-inspect*) (list object))
+ (setf (inspect-parent-stack *current-inspect*)
+ (list (format nil ":i ~S" object))))
(set-break-inspect *current-inspect*)
(%inspect output-stream))
)))
|