Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -558,14 +558,15 @@ ...@@ -558,14 +558,15 @@
;;; INSPECT -- Public. ;;; INSPECT -- Public.
;;; ;;;
(defun inspect (object) (defun inspect (object &optional (style interface:*interface-style*))
"This function allows the user to interactively examine Lisp objects. "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 or a :command-line oriented one; when running without X, there is no
choice. Supplying :window, :windows, :graphics, :graphical, and :x gets choice. Supplying :window, :windows, :graphics, :graphical, and :x gets
a windowing interface, and supplying :command-line or :tty gets the a windowing interface, and supplying :command-line or :tty gets the
other style." other style."
(if (use-graphics-interface) (let ((interface:*interface-style* style))
(start-motif-inspector object) (if (use-graphics-interface)
(inspect::tty-inspect object))) (start-motif-inspector object)
(inspect::tty-inspect object))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment