From 353557fa17d24f282b9880fa342fa87912a9a8f8 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 13 Jul 2009 01:04:02 +0200 Subject: [PATCH] Fixes for Clisp HEAD. Remove DISTROY-THREAD, since Clisp no longer has MT:THREAD-KILL. --- src/clisp.lisp | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/src/clisp.lisp b/src/clisp.lisp index f20ce43..bfaffe6 100644 --- a/src/clisp.lisp +++ b/src/clisp.lisp @@ -35,7 +35,7 @@ Distributed under the MIT license (see LICENSE file) (mt:mutex-unlock lock)) (defmacro with-lock-held ((place) &body body) - `(mt:with-lock (,place) ,@body)) + `(mt:with-mutex-lock (,place) ,@body)) (defun make-recursive-lock (&optional name) (mt:make-mutex :name name :recursive-p t)) @@ -46,7 +46,7 @@ Distributed under the MIT license (see LICENSE file) ;;; balanced (defmacro with-recursive-lock-held ((place) &body body) - `(mt:with-lock (,place) ,@body)) + `(mt:with-mutex-lock (,place) ,@body)) ;;; Resource contention: condition variables @@ -74,11 +74,7 @@ Distributed under the MIT license (see LICENSE file) (mt:list-threads)) (defun interrupt-thread (thread function) - (mt:thread-interrupt thread function)) - -(defun destroy-thread (thread) - (signal-error-if-current-thread thread) - (mt:thread-kill thread)) + (mt:thread-interrupt thread :function function)) (defun thread-alive-p (thread) (mt:thread-active-p thread)) -- 2.11.4.GIT