/[cmucl]/src/interface/inspect.lisp
ViewVC logotype

Diff of /src/interface/inspect.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by ram, Thu Jul 22 20:54:14 1993 UTC revision 1.8 by garland, Tue Nov 16 11:42:35 1993 UTC
# Line 558  Line 558 
558    
559  ;;; INSPECT -- Public.  ;;; INSPECT -- Public.
560  ;;;  ;;;
561  (defun inspect (object)  (defun inspect (object &optional (style interface:*interface-style*))
562    "This function allows the user to interactively examine Lisp objects.    "This function allows the user to interactively examine Lisp objects.
563     INTERFACE indicates whether this should run with a :graphics interface     STYLE indicates whether this should run with a :graphics interface
564     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
565     choice.  Supplying :window, :windows, :graphics, :graphical, and :x gets     choice.  Supplying :window, :windows, :graphics, :graphical, and :x gets
566     a windowing interface, and supplying :command-line or :tty gets the     a windowing interface, and supplying :command-line or :tty gets the
567     other style."     other style."
568    
569    (if (use-graphics-interface)    (let ((interface:*interface-style* style))
570        (start-motif-inspector object)      (if (use-graphics-interface)
571        (inspect::tty-inspect object)))          (start-motif-inspector object)
572            (inspect::tty-inspect object))))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5