X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Finspect.lisp;h=2a7f83ff7f3e28d4cc02d3e86d148bd5d3dd3bc4;hb=c3699db2053ff3b5ac6a98d4431c3789496002d8;hp=13e4949b6ca764c501c30e082cf2418a793eff05;hpb=c117d67f59ebda806f168f31fb2c6b0962d997e6;p=sbcl.git diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp index 13e4949..2a7f83f 100644 --- a/contrib/sb-aclrepl/inspect.lisp +++ b/contrib/sb-aclrepl/inspect.lisp @@ -7,24 +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) + +(eval-when (:compile-toplevel :load-toplevel :execute) + (defconstant +default-inspect-length+ 20)) (defstruct inspect ;; stack of parents of inspected object object-stack ;; a stack of indices of parent object components - parent-stack - ;; number of components to display - (length 10)) + 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.") +(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 @@ -32,6 +37,7 @@ The commands are: :i ? display this help :i * inspect the current * value :i +