diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 10:40:41 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 10:40:41 -0700 |
commit | 46aab8a6d7448fdaa1773cf50e7f284938a6bd38 (patch) | |
tree | 8fe92c460f0f13ff6e985046865fb382eee0cece /src/connection/chroot.lisp | |
parent | 2c7e2d4920245c4c2b926fc88ca535838761e6ea (diff) | |
download | consfigurator-46aab8a6d7448fdaa1773cf50e7f284938a6bd38.tar.gz |
fix check for other threads on SBCL
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/chroot.lisp')
-rw-r--r-- | src/connection/chroot.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/connection/chroot.lisp b/src/connection/chroot.lisp index b597333..92d6de6 100644 --- a/src/connection/chroot.lisp +++ b/src/connection/chroot.lisp @@ -30,7 +30,7 @@ circumstances in which it is known that we cannot fork, not that we are sure we can fork -- a thread might be only partly initialised at the time we check, for example, such that we don't see it." (and - #+sbcl (not (sb-thread:list-all-threads)))) + #+sbcl (> 2 (length (sb-thread:list-all-threads))))) (defmethod establish-connection ((type (eql :chroot)) remaining &key into) (establish-connection (if (and (lisp-connection-p) |