X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Finspect.lisp;h=f8077760118ea3c1a705f714fe5c96ef1510882f;hb=8a8a8922802460741d6f8f6c11d71b1f414cf3a7;hp=e1cb5095acad31ed3d30dad5960c77898b797a8f;hpb=1318df2c3359471005ba38e80f9e2386939d9ff7;p=sbcl.git diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp index e1cb509..f807776 100644 --- a/contrib/sb-aclrepl/inspect.lisp +++ b/contrib/sb-aclrepl/inspect.lisp @@ -7,16 +7,17 @@ ;;;; A summary of inspector navigation is contained in the below *INSPECT-HELP* ;;;; variable. -(cl:in-package :sb-aclrepl) +(cl:in-package #:sb-aclrepl) (eval-when (:compile-toplevel :load-toplevel :execute) - (defconstant +default-inspect-length+ 10)) + (defconstant +default-inspect-length+ 20)) -(defstruct inspect +(defstruct (%inspect (:constructor make-inspect) + (:conc-name inspect-)) ;; stack of parents of inspected object object-stack ;; a stack of indices of parent object components - parent-stack) + select-stack) ;; FIXME - raw mode isn't currently used in object display (defparameter *current-inspect* nil @@ -25,11 +26,11 @@ "Raw mode for object display.") (defparameter *inspect-length* +default-inspect-length+ "maximum number of components to print") -(defparameter *inspect-skip* 0 - "number of initial components to skip when displaying an object") +(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 @@ -37,6 +38,7 @@ The commands are: :i ? display this help :i * inspect the current * value :i +