From fbddcaa7b8b57404073e61d98570098c951def18 Mon Sep 17 00:00:00 2001
From: leetwinski <leetwinski@gmail.com>
Date: Wed, 27 Oct 2021 00:02:51 +0300
Subject: [PATCH] append `*default-special-bindings*` possibly set from
 elsewhere

---
 src/thread-util.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/thread-util.lisp b/src/thread-util.lisp
index f0ceab5..6dfb1cf 100644
--- a/src/thread-util.lisp
+++ b/src/thread-util.lisp
@@ -157,7 +157,7 @@
   `(progn ,@body))
 
 (defmacro with-thread ((&key bindings name) &body body)
-  `(let ((*default-special-bindings* ,bindings))
+  `(let ((*default-special-bindings* (append ,bindings *default-special-bindings*)))
      (make-thread (lambda ()
                     (with-abort-restart
                       ,@body))