diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-27 13:38:18 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-27 13:39:57 -0700 |
| commit | 09571a2d4b67bf4322104589c03c1784142a485e (patch) | |
| tree | 30852e8ab13b527a8d0c8df8247aa20df52e0b2a | |
| parent | 04a74f001710244b31ee23b028d18693be76378c (diff) | |
| download | consfigurator-09571a2d4b67bf4322104589c03c1784142a485e.tar.gz | |
note about WITH-UMASK and threads
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/connection/local.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/connection/local.lisp b/src/connection/local.lisp index 613a827..4de70c1 100644 --- a/src/connection/local.lisp +++ b/src/connection/local.lisp @@ -46,6 +46,7 @@ root Lisp is running on, as the root Lisp's uid.")) (defcfun "umask" :int (mode :int)) +;; TODO this is not safe if there are multiple threads (defmacro with-umask ((umask) &body forms) (with-gensyms (old) `(let ((,old (umask ,umask))) |