Here's a patch to more carefully try both (METHOD ...) and (PCL:FAST-METHOD ...) when tracing methods on CMUCL.

Dan Pierson

Index: swank-cmucl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-cmucl.lisp,v retrieving revision 1.143 diff -u -r1.143 swank-cmucl.lisp --- swank-cmucl.lisp 3 Apr 2005 23:27:41 -0000 1.143 +++ swank-cmucl.lisp 28 Apr 2005 15:11:12 -0000 @@ -2136,9 +2136,13 @@ (let ((name (second spec))) (toggle-trace-aux name :methods name))) ((:defmethod) - (toggle-trace-aux `(method ,(cdr spec))) - ;; Man, is this ugly - (toggle-trace-aux `(pcl::fast-method ,(cdr spec)))) + (cond ((fboundp `(method ,@(cdr spec))) + (toggle-trace-aux `(method ,(cdr spec)))) + ;; Man, is this ugly + ((fboundp `(pcl::fast-method ,@(cdr spec))) + (toggle-trace-aux `(pcl::fast-method ,@(cdr spec)))) + (t + (error 'undefined-function :name (cdr spec))))) ((:call) (destructuring-bind (caller callee) (cdr spec) (toggle-trace-aux (process-fspec callee)