[slime-devel] SBCL-specific function inspection

[Ariel Badichi]

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*