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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
*start-swank-in-background*, *close-swank-socket-after-setup*,
*use-dedicated-output-stream*: Moved here from swank-cmucl.

(sldb-continue): Don't pass the condition as argument, because that
*doesn't work with Allegro.

(toggle-trace-fdefinition, tracedp): Remove backend specific code with
portable, but ugly, to calls to eval.
Date: Sun Dec 14 02:52:31 2003
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.78 slime/swank.lisp:1.79
--- slime/swank.lisp:1.78	Wed Dec 10 21:20:30 2003
+++ slime/swank.lisp	Sun Dec 14 02:52:31 2003
@@ -50,6 +50,10 @@
 
 ;;;; Setup and Hooks
 
+(defvar *start-swank-in-background* nil)
+(defvar *close-swank-socket-after-setup* nil)
+(defvar *use-dedicated-output-stream* t)
+
 (defun announce-server-port (file)
   (lambda (port)
     (with-open-file (s file
@@ -319,7 +323,7 @@
   (throw 'sldb-loop-catcher nil))
 
 (defslimefun sldb-continue ()
-  (continue *swank-debugger-condition*))
+  (continue))
 
 (defslimefun eval-string-in-frame (string index)
   (to-string (eval-in-frame (from-string string) index)))
@@ -736,6 +740,19 @@
 
 (defslimefun list-all-package-names ()
   (mapcar #'package-name (list-all-packages)))
+
+;; Use eval for the sake of portability... 
+(defun tracedp (fspec)
+  (member fspec (eval '(trace))))
+
+(defslimefun toggle-trace-fdefinition (fname-string)
+  (let ((fname (from-string fname-string)))
+    (cond ((tracedp fname)
+	   (eval `(untrace ,fname))
+	   (format nil "~S is now untraced." fname))
+	  (t
+           (eval `(trace ,fname))
+	   (format nil "~S is now traced." fname)))))
 
 (defslimefun untrace-all ()
   (untrace))