diff --git a/interface/inspect.lisp b/interface/inspect.lisp index 0de1fd4cba72df2c4b5e784321157fa71e2a902f..c0f7e7cdc1c2951eb0da47d11760b0805b0949e7 100644 --- a/interface/inspect.lisp +++ b/interface/inspect.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/interface/inspect.lisp,v 1.10 1994/10/31 04:53:18 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/interface/inspect.lisp,v 1.11 2003/12/03 07:56:09 emarsden Rel $") ;;; ;;; ********************************************************************** ;;; @@ -174,6 +174,9 @@ (format nil "List of length ~a" (length l)) (format nil "Dotted Pair"))) +(defmethod inspector-pane-title ((i integer)) + (format nil "Integer ~D" i)) + ;;;; Methods for displaying object inspection panes