From 949c77f8b76a2d943ca4c2cb03496fefb65ebc48 Mon Sep 17 00:00:00 2001 From: dan <unknown> Date: Tue, 6 May 2003 08:23:27 -0400 Subject: [PATCH] sb-thread conditionals darcs-hash:20030506122327-2591e-b9d2d1bf1e783288f68309fc2ed9ed946d07d89e.gz --- dependent.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/dependent.lisp b/dependent.lisp index 00af390..6ba493b 100644 --- a/dependent.lisp +++ b/dependent.lisp @@ -1085,7 +1085,7 @@ ;;; Caller guarantees that PROCESS-WAKEUP will be called after the predicate's ;;; value changes. -#-(or lispm excl lcl3.0 Minima sbcl (and cmu mp)) +#-(or lispm excl lcl3.0 Minima (and sb-thread sbcl) (and cmu mp)) (defun process-block (whostate predicate &rest predicate-args) (declare (ignore whostate)) (or (apply predicate predicate-args) @@ -1133,10 +1133,10 @@ (mp:process-wait whostate #'(lambda () (apply predicate predicate-args)))) -#+sbcl +#+(and sbcl sb-thread) (defvar *process-conditions* (make-hash-table)) -#+sbcl +#+(and sbcl sb-thread) (defun process-block (whostate predicate &rest predicate-args) (declare (type function predicate)) (let* ((pid (sb-thread:current-thread-id)) @@ -1160,9 +1160,9 @@ ;;; PROCESS-WAKEUP: Check some other process' wait function. -;;; (declaim (inline process-wakeup)) +(declaim (inline process-wakeup)) -#-(or excl Genera Minima (and cmu mp)) +#-(or excl Genera Minima (and sbcl sb-thread) (and cmu mp)) (defun process-wakeup (process) (declare (ignore process)) nil) @@ -1192,7 +1192,7 @@ (declare (ignore process)) (mp:process-yield)) -#+sbcl +#+(and sb-thread sbcl) (defun process-wakeup (process) (destructuring-bind (lock . queue) (gethash (sb-thread:current-thread-id) *process-conditions* -- GitLab