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) 
