diff options
-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))) |