From 0da7d27347ff3544cfa1c80b7343521520a4a65b Mon Sep 17 00:00:00 2001 From: garland <garland> Date: Tue, 16 Nov 1993 11:42:35 +0000 Subject: [PATCH] Added an optional STYLE arg to the graphical inspector to make the function consistent with its doc string (as well as the old inspector). --- interface/inspect.lisp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/interface/inspect.lisp b/interface/inspect.lisp index 54cb2c857..11838a4b8 100644 --- a/interface/inspect.lisp +++ b/interface/inspect.lisp @@ -558,14 +558,15 @@ ;;; INSPECT -- Public. ;;; -(defun inspect (object) +(defun inspect (object &optional (style interface:*interface-style*)) "This function allows the user to interactively examine Lisp objects. - INTERFACE indicates whether this should run with a :graphics interface + STYLE indicates whether this should run with a :graphics interface or a :command-line oriented one; when running without X, there is no choice. Supplying :window, :windows, :graphics, :graphical, and :x gets a windowing interface, and supplying :command-line or :tty gets the other style." - (if (use-graphics-interface) - (start-motif-inspector object) - (inspect::tty-inspect object))) + (let ((interface:*interface-style* style)) + (if (use-graphics-interface) + (start-motif-inspector object) + (inspect::tty-inspect object)))) -- GitLab