[slime-cvs] CVS /slime

[mbaringer]

Update of /project/slime/cvsroot//slime
In directory clnet:/tmp/cvs-serv7631

Modified Files:
	swank-openmcl.lisp 
Log Message:
(toggle-trace): Implemented. Currently only provides 'best effort'
support, :labels and :flet are ignored, :defmethod and :call are
treated like a normal trace of the operator.


--- /project/slime/cvsroot//slime/swank-openmcl.lisp	2006/03/22 16:40:01	1.107
+++ /project/slime/cvsroot//slime/swank-openmcl.lisp	2006/04/20 09:11:11	1.108
@@ -686,6 +686,23 @@
     (:class
      (describe (find-class symbol)))))
 
+(defimplementation toggle-trace (spec)
+  "We currently ignore just about everything."
+  (ecase (car spec)
+    (setf
+     (ccl::%trace spec))
+    (:defmethod
+     (ccl::%trace (second spec)))
+    (:defgeneric
+     (ccl::%trace (second spec)))
+    (:call
+     (toggle-trace (third spec)))
+    ;; mb: FIXME: shouldn't we warn that we're not doing anything for
+    ;; these two?
+    (:labels nil)
+    (:flet nil))
+  t)
+
 ;;; XREF
 
 (defimplementation list-callers (symbol)