X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-aclrepl%2Finspect.lisp;h=476b9eba405725c2cd98378bb2e26a5fce32c29e;hb=711f965c40c13172cbc4b4dd381e6f638a1d6c34;hp=adc4d0b0b4febff9f943fe73f312a4567bc681f2;hpb=976505f5476932372cae826a7bc5f3c94a09fa98;p=sbcl.git diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp index adc4d0b..476b9eb 100644 --- a/contrib/sb-aclrepl/inspect.lisp +++ b/contrib/sb-aclrepl/inspect.lisp @@ -1,4 +1,4 @@ -;;;; Inspector for sb-aclrepl +/nick;;;; Inspector for sb-aclrepl ;;;; ;;;; The documentation, which may or may not apply in its entirety at ;;;; any given time, for this functionality is on the ACL website: @@ -7,27 +7,29 @@ ;;;; A summary of inspector navigation is contained in the below *INSPECT-HELP* ;;;; variable. -(cl:in-package :sb-aclrepl) +(cl:in-package #:sb-aclrepl) -(defparameter *inspect-stack* nil - "Stack of the hierarchy of an inspected object.") +(eval-when (:compile-toplevel :load-toplevel :execute) + (defconstant +default-inspect-length+ 20)) -(defparameter *parent-select-stack* nil - "a stack of the indices of parent object components that brought us to the current object.") - -(defparameter *inspect-length* 10 - "Number of components to display.") +(defstruct inspect + ;; stack of parents of inspected object + object-stack + ;; a stack of indices of parent object components + select-stack) ;; FIXME - raw mode isn't currently used in object display +(defparameter *current-inspect* nil + "current inspect") (defparameter *inspect-raw* nil "Raw mode for object display.") - -(defvar *inspected*) -(setf (documentation '*inspected* 'variable) - "the value currently being inspected by CL:INSPECT") +(defparameter *inspect-length* +default-inspect-length+ + "maximum number of components to print") +(defparameter *skip-address-display* nil + "Skip displaying addresses of objects.") (defvar *inspect-help* -":istep takes between 0 to 3 arguments. + ":istep takes between 0 to 3 arguments. The commands are: :i redisplay current object :i = redisplay current object @@ -35,6 +37,7 @@ The commands are: :i ? display this help :i * inspect the current * value :i +