Commit fc896e29 authored by Zach Beane's avatar Zach Beane
Browse files

Add more (ignored) keywords to WITH-LOCKED-STRUCTURE.

parent 9d2b885e
...@@ -191,7 +191,8 @@ values otherwise." ...@@ -191,7 +191,8 @@ values otherwise."
(with-lock-held ((synchronizing-structure-lock struct)) (with-lock-held ((synchronizing-structure-lock struct))
(funcall fun))) (funcall fun)))
(defmacro excl:with-locked-structure ((struct) &body body) (defmacro excl:with-locked-structure ((struct &key block non-smp) &body body)
(declare (ignore block non-smp))
`(call-with-locked-structure ,struct (lambda () ,@body))) `(call-with-locked-structure ,struct (lambda () ,@body)))
(defmacro excl:incf-atomic (place &optional (delta 1)) (defmacro excl:incf-atomic (place &optional (delta 1))
......
Supports Markdown
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