* Ariel Badichi [2008-03-03 05:17+0100] writes:

The following patch is a work-around (excuse the pun) to have the fancy-inspector use the SBCL-specific method for function inspection.

Ariel

diff -u -r1.193 swank-sbcl.lisp --- swank-sbcl.lisp 28 Feb 2008 19:44:14 -0000 1.193 +++ swank-sbcl.lisp 3 Mar 2008 04:09:39 -0000 @@ -1041,7 +1041,7 @@ (loop for value in parts for i from 0 append (label-value-line i value))))))))

-(defmethod emacs-inspect ((o function)) +(defmethod emacs-inspect :around ((o function)) (let ((header (sb-kernel:widetag-of o))) (cond ((= header sb-vm:simple-fun-header-widetag) (label-value-line*

My CLOS skills are pretty much not existent, perhaps somebody could help me out on this. Would it be bad style to do the following in the fancy-inspector?

(unless (find-method #'emacs-inspect nil '(function) nil) (defmethod emacs-inspect ((f function)) ...))

I.e. define the method only if the backend didn't provide one. Or can ADD-METHOD be used for this purpose?

Helmut.