From: Kevin R. <kev...@us...> - 2003-04-05 20:49:48
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1:/tmp/cvs-serv12647 Modified Files: inspect.lisp Log Message: Add hook for external inspector Index: inspect.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/inspect.lisp,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- inspect.lisp 7 Feb 2002 23:33:53 -0000 1.16 +++ inspect.lisp 5 Apr 2003 20:49:44 -0000 1.17 @@ -17,14 +17,21 @@ ;;; 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* " |