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

[Helmut Eller]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(tracedp, toggle-trace-fdefinition): Moved to swank.lisp.
Date: Sun Dec 14 02:59:37 2003
Author: heller

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.8 slime/swank-lispworks.lisp:1.9
--- slime/swank-lispworks.lisp:1.8	Wed Dec 10 08:26:08 2003
+++ slime/swank-lispworks.lisp	Sun Dec 14 02:59:36 2003
@@ -7,7 +7,7 @@
 ;;; This code has been placed in the Public Domain.  All warranties
 ;;; are disclaimed.
 ;;;
-;;;   $Id: swank-lispworks.lisp,v 1.8 2003/12/10 13:26:08 heller Exp $
+;;;   $Id: swank-lispworks.lisp,v 1.9 2003/12/14 07:59:36 heller Exp $
 ;;;
 
 (in-package :swank)
@@ -261,20 +261,6 @@
 
 (defmethod find-function-locations (fname)
   (dspec-source-locations (from-string fname)))
-
-;;; Tracing
-
-(defun tracedp (symbol)
-  (member symbol (trace) :test #'eq))
-
-(defslimefun toggle-trace-fdefinition (fname-string)
-  (let ((fname (from-string fname-string)))
-    (cond ((tracedp fname)
-           (compiler::ensure-untrace-1 (list fname))
-	   (format nil "~S is now untraced." fname))
-	  (t
-           (compiler::ensure-trace-1 (list fname))
-	   (format nil "~S is now traced." fname)))))
 
 ;;; callers