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

[Luke Gorrie]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
(toggle-trace): Fix from Antonio Menezes Leitao.

Date: Sat Mar 12 03:44:28 2005
Author: lgorrie

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.71 slime/swank-allegro.lisp:1.72
--- slime/swank-allegro.lisp:1.71	Sat Mar  5 00:44:17 2005
+++ slime/swank-allegro.lisp	Sat Mar 12 03:44:27 2005
@@ -690,11 +690,13 @@
 ;; <name> can be a normal name or a (setf name)
 
 (defimplementation toggle-trace (spec)
-  (ecase (car spec) 
+  (ecase (car spec)
+    ((setf) 
+     (toggle-trace-aux spec))
     (:defgeneric (toggle-trace-generic-function-methods (second spec)))
     ((setf :defmethod :labels :flet) 
      (toggle-trace-aux (process-fspec-for-allegro spec)))
-    (:call 
+    (:call
      (destructuring-bind (caller callee) (cdr spec)
        (toggle-trace-aux callee 
                          :inside (list (process-fspec-for-allegro caller)))))))
@@ -718,7 +720,7 @@
            (dolist (method methods (format nil "~S is now untraced." name))
              (excl:funtrace (mop:method-function method))))
           (t
-           (eval `(trace ,name))
+           (eval `(trace (,name)))
            (dolist (method methods (format nil "~S is now traced." name))
              (excl:ftrace (mop:method-function method)))))))