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