Allegro: use built-in condition variables

diff --git a/bordeaux-threads.asd b/bordeaux-threads.asd
index 62f4460..bed96f9 100644 (file)
--- a/bordeaux-threads.asd
+++ b/bordeaux-threads.asd
@@ -7,7 +7,7 @@ Distributed under the MIT license (see LICENSE file)
 (in-package :cl-user)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  #+allegro (require :process)
+  #+allegro (require :smputil)
   #+corman  (require :threads))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)

diff --git a/src/impl-allegro.lisp b/src/impl-allegro.lisp
index 144ee98..d9ea53b 100644 (file)
--- a/src/impl-allegro.lisp
+++ b/src/impl-allegro.lisp
@@ -36,17 +36,13 @@ Distributed under the MIT license (see LICENSE file)
 ;;; Resource contention: condition variables
 
 (defun make-condition-variable (&key name)
-  (declare (ignore name))
-  (mp:make-gate nil))
+  (mp:make-condition-variable :name name))
 
 (defun condition-wait (condition-variable lock)
-  (release-lock lock)
-  (mp:process-wait "wait for message" #'mp:gate-open-p condition-variable)
-  (acquire-lock lock)
-  (mp:close-gate condition-variable))
+  (mp:condition-variable-wait condition-variable lock))
 
 (defun condition-notify (condition-variable)
-  (mp:open-gate condition-variable))
+  (mp:condition-variable-signal condition-variable))
 
 (defun thread-yield ()
   (mp:process-allow-schedule))