From 926e669f7dc4e38c69b116db24d1a3150d2ee6ab Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Sat, 5 Apr 2003 20:49:44 +0000 Subject: [PATCH] Add hook for external inspector --- src/code/inspect.lisp | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/src/code/inspect.lisp b/src/code/inspect.lisp index f143295fd..ed2b1759c 100644 --- a/src/code/inspect.lisp +++ b/src/code/inspect.lisp @@ -17,15 +17,22 @@ ;;; indicates that that a slot is unbound. (defvar *inspect-unbound-object-marker* (gensym "INSPECT-UNBOUND-OBJECT-")) -(defun inspect (object) +(defun inspector (object input-stream output-stream) + (declare (ignore input-stream)) (catch 'quit-inspect - (%inspect object *standard-output*)) + (%inspect object output-stream)) (values)) +(defvar *inspect-fun* #'inspector + "a function of three arguments OBJECT, INPUT, and OUTPUT which starts an interactive inspector.") + (defvar *inspected*) (setf (documentation '*inspected* 'variable) "the value currently being inspected in CL:INSPECT") +(defun inspect (object) + (funcall *inspect-fun* object *standard-input* *standard-output*)) + (defvar *help-for-inspect* " help for INSPECT: -- 2.11.4.GIT