Commit 0da7d273 authored by garland's avatar garland
Browse files

Added an optional STYLE arg to the graphical inspector to make the

function consistent with its doc string (as well as the old inspector).
parent c97bdf89
......@@ -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))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment