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

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(kill-thread): Implemented.
Date: Mon Mar  1 04:02:23 2004
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.69 slime/swank-sbcl.lisp:1.70
--- slime/swank-sbcl.lisp:1.69	Thu Feb 26 02:15:51 2004
+++ slime/swank-sbcl.lisp	Mon Mar  1 04:02:23 2004
@@ -206,6 +206,7 @@
 
 (defvar *buffer-name* nil)
 (defvar *buffer-offset*)
+(defvar *buffer-substring* nil)
 
 (defvar *previous-compiler-condition* nil
   "Used to detect duplicates.")
@@ -333,7 +334,8 @@
   (with-compilation-hooks ()
     (let ((*package* *buffer-package*)
           (*buffer-name* buffer)
-          (*buffer-offset* position))
+          (*buffer-offset* position)
+          (*buffer-substring* string))
       (eval (from-string
              (format nil "(funcall (compile nil '(lambda () ~A)))"
                      string))))))
@@ -767,7 +769,10 @@
   (defimplementation interrupt-thread (thread fn)
     (sb-thread:interrupt-thread thread fn))
 
-  ;; XXX there is some deadlock / race condition here
+  (defimplementation kill-thread (thread)
+    (sb-thread:terminate-thread thread))
+
+  ;; XXX there is some deadlock / race condition here (with old 2.4 kernels)
 
   (defvar *mailbox-lock* (sb-thread:make-mutex :name "mailbox lock"))
   (defvar *mailboxes* (list))
@@ -806,7 +811,3 @@
                                               mutex))))))))
 
   )
-
-;;; Local Variables:
-;;; eval: (font-lock-add-keywords 'lisp-mode '(("(\\(defslimefun\\)\\s +\\(\\(\\w\\|\\s_\\)+\\)"  (1 font-lock-keyword-face) (2 font-lock-function-name-face))))
-;;; End: