Attached is an inspector patch which allows toggling the display of cons cells between the current graph view and a list view.
It also makes the brief display of a character print the character.
On Tue, 1 Feb 2005 17:10:07 -0800, Peter Wilson pabw00@gmail.com wrote:
Attached is an inspector patch which allows toggling the display of cons cells between the current graph view and a list view.
It's a little hard to use (toggling is difficult when you have to hit those tiny little parentheses, and I'm not entirely sure how to get back from the graphical view), but it looks like something that should be included in some form or another. I've merged it into my updated inspector.lisp, so when I get CVS access it'll be put in CVS.
It also makes the brief display of a character print the character.
I wrote the exact same code yesterday, just indented a little differently. Neat, huh? Of course, it's only three lines of code.
-Peter
On Wed, 2 Feb 2005 14:46:53 -0700, Peter Scott sketerpot@gmail.com wrote:
It's a little hard to use (toggling is difficult when you have to hit those tiny little parentheses, and I'm not entirely sure how to get back from the graphical view),
True. I forgot to make the graphical view use the cons presentation. (Although if there were some way to make (presentation-type-of) of a cons return something more informative than (SEQUENCE T), it might work automatically.)
--- inspector.lisp 2005-02-02 15:22:39.000000000 -0800 +++ inspector.lisp 2005-02-02 15:26:09.000000000 -0800 @@ -138,7 +138,7 @@ (formatting-column (pane) (formatting-cell (pane) (with-output-as-presentation - (pane object (presentation-type-of object)) + (pane object 'cons) (draw-rectangle* pane 0 0 20 10 :filled nil)) (draw-line* pane 10 0 10 10) (draw-arrow* pane 5 5 5 30) @@ -152,7 +152,7 @@ (formatting-column (pane) (formatting-cell (pane) (with-output-as-presentation - (pane object (presentation-type-of object)) + (pane object 'cons) (draw-rectangle* pane 0 0 20 10 :filled nil)) (draw-line* pane 10 0 10 10) (draw-arrow* pane 5 5 5 30)
-
Peter Scott -
Peter Wilson