X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Finspect.lisp;h=ce7031d4ce5482b09d1b5530917d7ac2a01540d7;hb=3eedd5a020356291b2c1c2e426ef9fc7dd5928d9;hp=cef37b10c0f4baf267aa37ce09b8a8dddc6ea1ac;hpb=0b50ec4bd716d2bf3aecb0931c4ced8255c3d542;p=sbcl.git diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp index cef37b1..ce7031d 100644 --- a/contrib/sb-aclrepl/inspect.lisp +++ b/contrib/sb-aclrepl/inspect.lisp @@ -1,4 +1,4 @@ -;;;; Inspector for sb-aclrepl +/nick;;;; Inspector for sb-aclrepl ;;;; ;;;; The documentation, which may or may not apply in its entirety at ;;;; any given time, for this functionality is on the ACL website: @@ -7,10 +7,10 @@ ;;;; 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 ;; stack of parents of inspected object @@ -25,8 +25,8 @@ "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. @@ -37,6 +37,7 @@ The commands are: :i ? display this help :i * inspect the current * value :i +