mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-21 03:51:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

CLX uses recursive locks

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-01-17 23:14:27 +01:00
parent bc13fb41d1
commit e725846659
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clx/dependent.lisp
View file

@ -894,7 +894,7 @@
#+(and ecl threads)
(defun make-process-lock (name)
(mp:make-lock :name name))
(mp:make-lock :name name :recursive t))
;;; HOLDING-LOCK: Execute a body of code with a lock held.