diff --git a/interface/inspect.lisp b/interface/inspect.lisp index 54cb2c857ee0c85e78f4996ebf95d18d0adceae6..11838a4b8c0c1106e319374d5cc6dc5c6ac9a0bb 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))))