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

external-process: use locks only when threads are enabled

Browse source
This commit is contained in:
Daniel Kochmanski 2017-10-09 09:38:26 +02:00
parent 3d7f68445b
commit b00b15b078
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lsp/process.lsp
View file

@ -8,8 +8,8 @@
(in-package "EXT")
(defmacro with-process-lock ((process) &body body)
`(mp:with-lock ((external-process-%lock process))
,@body))
#+threads `(mp:with-lock ((external-process-%lock process)) ,@body)
#-threads `(progn ,@body))
(defstruct (external-process (:constructor make-external-process ()))
pid
@ -18,7 +18,7 @@
error-stream
(%status :running)
(%code nil)
(%lock (mp:make-lock))
#+threads (%lock (mp:make-lock))
#+threads (%pipe (mp:make-process)))
(defun external-process-status (external-process)