[slime-cvs] CVS update: slime/swank-cmucl.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv28931

Modified Files:
	swank-cmucl.lisp 
Log Message:
Be more carefully when tracing methods: try both (METHOD ...) and
(PCL:FAST-METHOD ...).

Date: Fri Apr 29 01:30:25 2005
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.144 slime/swank-cmucl.lisp:1.145
--- slime/swank-cmucl.lisp:1.144	Wed Apr 27 16:47:22 2005
+++ slime/swank-cmucl.lisp	Fri Apr 29 01:30:25 2005
@@ -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)