Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector In directory clnet:/tmp/cvs-serv25884

Modified Files: inspector.lisp Log Message: * Cosmetic improvement to hash table display

* Added horrible hack to fix bug with display of generic functions. I have no idea why this is even necessary, and I find myself QUITE UNNERVED that I'm even writing it. It shouldn't break anything, though! Probably!

--- /project/mcclim/cvsroot/mcclim/Apps/Inspector/inspector.lisp 2007/02/08 05:12:33 1.34 +++ /project/mcclim/cvsroot/mcclim/Apps/Inspector/inspector.lisp 2007/02/08 05:47:46 1.35 @@ -447,7 +447,7 @@ (show-hash-table-status object pane :message "Hash table"))) (defmethod inspect-object ((object hash-table) pane) (inspector-table (object pane) - (progn (format pane "~A (test: ~A)" 'hash-table (hash-table-test object)) + (progn (format pane "~A (test: ~A) " 'hash-table (hash-table-test object)) (show-hash-table-status object pane)) (loop for key being the hash-keys of object do (formatting-row (pane) @@ -879,4 +879,10 @@ (fboundp object) (tracedp object)))) (object) - (list object)) \ No newline at end of file + (list object)) + +;; FIXME: This is a horrible hack to gloss over issues that I don't +;; properly understand. See +;; http://common-lisp.net/pipermail/mcclim-devel/2005-February/003700.html +(defmethod clim:presentation-type-of ((object standard-generic-function)) + 'clim:expression) \ No newline at end of file