X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Finspect.lisp;h=b09fc599d0ae328312f1a1d88a8b0652a0120c09;hb=c27ee1dba86042cb431c298699c19ed3fcd70026;hp=96eea04010d252c3b50003d2a933e067e3efa548;hpb=3f222e05452e95e48ad49e9b2e75fe7e16cff813;p=sbcl.git diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp index 96eea04..b09fc59 100644 --- a/contrib/sb-aclrepl/inspect.lisp +++ b/contrib/sb-aclrepl/inspect.lisp @@ -10,7 +10,7 @@ (cl:in-package #:sb-aclrepl) (eval-when (:compile-toplevel :load-toplevel :execute) - (defconstant +default-inspect-length+ 10)) + (defconstant +default-inspect-length+ 20)) (defstruct inspect ;; stack of parents of inspected object @@ -25,8 +25,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 +37,7 @@ The commands are: :i ? display this help :i * inspect the current * value :i +