X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Finspect.lisp;h=071411adbc0f23028304fd390318bee17e893c7d;hb=8bc3c6490d56d4cfcdc72fd14b0d11764cf9f54d;hp=dcec0420ce8664bb52356c4dd005c7e0059dafb5;hpb=01af9d7ee59a7427f9cc5c6f9fea41fe87851367;p=sbcl.git diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp index dcec042..071411a 100644 --- a/contrib/sb-aclrepl/inspect.lisp +++ b/contrib/sb-aclrepl/inspect.lisp @@ -10,23 +10,24 @@ (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 + 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") + "current inspect") (defparameter *inspect-raw* nil "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") + "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. @@ -37,6 +38,7 @@ The commands are: :i ? display this help :i * inspect the current * value :i +