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

[Luke Gorrie]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(toggle-trace-method) (toggle-trace-fdefinition-wherein):
Conditionalized for CMU19.

Date: Sat Feb 26 11:39:22 2005
Author: lgorrie

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.138 slime/swank-cmucl.lisp:1.139
--- slime/swank-cmucl.lisp:1.138	Fri Feb 18 17:03:59 2005
+++ slime/swank-cmucl.lisp	Sat Feb 26 11:39:22 2005
@@ -2212,9 +2212,11 @@
 (defimplementation toggle-trace-function (spec)
   (toggle-trace spec))
 
+#+cmu19
 (defimplementation toggle-trace-method (spec)
   (toggle-trace `(pcl:fast-method ,@(rest (process-fspec spec)))))
 
+#+cmu19
 (defimplementation toggle-trace-fdefinition-wherein (name wherein)
   (toggle-trace name :wherein (process-fspec wherein)))