Commit 5640d189 authored by Zach Beane's avatar Zach Beane
Browse files

Implement mp:process-lock with bordeaux-threads.

parent 721c2446
......@@ -7,10 +7,10 @@
(defmacro mp:with-process-lock (lock-form &body body)
(declare (ignorable lock-form))
`(progn ,@body))
`(with-lock-held (,lock-form) ,@body))
(defun mp:make-process-lock (&key name)
(cons :mp-lock name))
(make-lock name))
(defmacro mp:without-scheduling (&body body)
`(progn ,@body))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment