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