[mcclim-cvs] CVS update: mcclim/Apps/Inspector/inspector.lisp

[Peter Scott]

Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector
In directory common-lisp.net:/tmp/cvs-serv999

Modified Files:
	inspector.lisp 
Log Message:
Fixed PRIN1 bugs that I introduced with the last "bugfix"
commit. Thanks to Vincent Arkesteijn for pointing them out.

I thought I tested that code! Really!

Date: Sat Mar  5 16:48:18 2005
Author: pscott

Index: mcclim/Apps/Inspector/inspector.lisp
diff -u mcclim/Apps/Inspector/inspector.lisp:1.23 mcclim/Apps/Inspector/inspector.lisp:1.24
--- mcclim/Apps/Inspector/inspector.lisp:1.23	Fri Mar  4 22:32:08 2005
+++ mcclim/Apps/Inspector/inspector.lisp	Sat Mar  5 16:48:18 2005
@@ -429,27 +429,15 @@
         (formatting-cell (pane)
           (princ ")" pane))))))
 
-;; For some strange reason, objects that are displayed with PRINT are
-;; slightly wider than those displayed with PRIN1. Generally, PRIN1 is
-;; what you want, and to prevent strings and numbers from getting
-;; slightly wider when they're toggled to full inspection, the
-;; INSPECT-OBJECT methods for them call the INSPECT-OBJECT-BRIEFLY
-;; methods which do the right thing.
 (defmethod inspect-object-briefly ((object string) pane)
   (with-output-as-presentation
       (pane object (presentation-type-of object))
     (prin1 object)))
 
-(defmethod inspect-object ((object string) pane)
-  (inspect-object-briefly object pane))
-
 (defmethod inspect-object-briefly ((object number) pane)
   (with-output-as-presentation
       (pane object (presentation-type-of object))
     (prin1 object)))
-
-(defmethod inspect-object ((object number) pane)
-  (inspect-object-briefly object pane))
 
 (defun inspect-complex (object pane)
   "Inspect a complex number. Since complex numbers should be inspected