Skip to content
Browse files

with-thread needed once-only

  • Loading branch information...
1 parent 92744a4 commit 59cfa0a9fe34f301aa6fc809ccf660de1f6104dc @lmj committed
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/thread-util.lisp
View
2 src/thread-util.lisp
@@ -30,7 +30,7 @@
(in-package #:lparallel.thread-util)
-(defmacro with-thread ((&key bindings name) &body body)
+(defmacro/once with-thread ((&key &once bindings &once name) &body body)
`(let1 *default-special-bindings* ,bindings
(make-thread (lambda () ,@body) :name ,name)))

0 comments on commit 59cfa0a

Please sign in to comment.
Something went wrong with that request. Please try again.