From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Wed, 9 Apr 2003 13:46:16 +0000 (+0000)
Subject: contrib/sb-aclrepl/inspect.lisp: [0.pre8.52]
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7fa07ff23507b77125017e0b1197098fd9443820;p=sbcl.git

contrib/sb-aclrepl/inspect.lisp: [0.pre8.52]
  Fix bug that prevented navigating in children
  Improve display of root parent in ":i tree"
---

diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp
index e1cb509..852e1b3 100644
--- a/contrib/sb-aclrepl/inspect.lisp
+++ b/contrib/sb-aclrepl/inspect.lisp
@@ -69,7 +69,8 @@ The commands are:
   (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 @@ The commands are:
 		  (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 @@ The commands are:
       ;; 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))
       )))
diff --git a/version.lisp-expr b/version.lisp-expr
index adeac00..c89f1db 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre8.51"
+"0.pre8.52"