From b00b15b07843a12707c3340db5b3cecc6822e5cb Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Mon, 9 Oct 2017 09:38:26 +0200 Subject: [PATCH] external-process: use locks only when threads are enabled --- src/lsp/process.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp index 24b256de7..42e4e7dd7 100644 --- a/src/lsp/process.lsp +++ b/src/lsp/process.lsp @@ -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)