X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=contrib%2Fsb-aclrepl%2Finspect.lisp;h=c2378b68b7c25498cecbff99e3196cd9ac4cacf5;hb=11b388bac03fea3220e058eb93466bef7b66af75;hp=a456db93baa44c6687b2f6ad9349a445646ae8bc;hpb=545603e9715ada6be5fbd958c3f1df24ce18c666;p=sbcl.git diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp index a456db9..c2378b6 100644 --- a/contrib/sb-aclrepl/inspect.lisp +++ b/contrib/sb-aclrepl/inspect.lisp @@ -10,9 +10,10 @@ (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 @@ -25,8 +26,6 @@ "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.") @@ -39,6 +38,7 @@ The commands are: :i ? display this help :i * inspect the current * value :i +