/[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.5 by garland, Mon Jun 7 14:01:11 1993 UTC revision 1.6 by ram, Thu Jul 22 13:25:08 1993 UTC
# Line 135  Line 135 
135  ;;;  ;;;
136  (defmethod inspector-pane-title (object)  (defmethod inspector-pane-title (object)
137    (typecase object    (typecase object
138      (pcl::std-instance      (standard-object
139       (format nil "Instance ~a of Class ~a"       (format nil "Instance ~a of Class ~a"
140               object (pcl::class-name (pcl::class-of object))))               object (pcl::class-name (pcl::class-of object))))
141      (function (format nil "~a" object))      (function (format nil "~a" object))
# Line 235  Line 235 
235  ;;;  ;;;
236  (defmethod display-inspector-pane (object)  (defmethod display-inspector-pane (object)
237    (typecase object    (typecase object
238      (pcl::std-instance (display-clos-pane object))      (standard-object (display-clos-pane object))
239      (function (display-function-pane object))      (function (display-function-pane object))
240      (structure-object (display-structure-pane object))      (structure-object (display-structure-pane object))
241      (t      (t

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5