X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fthreads.pure.lisp;h=752d230d8ca60dd57e5137252e014ef32d2ffc41;hb=f42877dcb11f1db580c76c37ae86541b901ac281;hp=bc2b94cc152d2323749d208b2b478a0b5d577183;hpb=c6346430e15ab44471e8740ffd7e5e581f933f36;p=sbcl.git

diff --git a/tests/threads.pure.lisp b/tests/threads.pure.lisp
index bc2b94c..752d230 100644
--- a/tests/threads.pure.lisp
+++ b/tests/threads.pure.lisp
@@ -157,6 +157,18 @@
              (sb-ext:timeout ()
                :timeout)))))))
 
+;;;; Printing waitqueues
+
+#+sb-thread
+(with-test (:name :waitqueue-circle-print)
+  (let* ((*print-circle* nil)
+         (lock (sb-thread:make-mutex))
+         (wq (sb-thread:make-waitqueue)))
+    (sb-thread:with-recursive-lock (lock)
+      (sb-thread:condition-notify wq))
+    ;; Used to blow stack due to recursive structure.
+    (assert (princ-to-string wq))))
+
 ;;;; SYMBOL-VALUE-IN-THREAD
 
 (with-test (:name symbol-value-in-thread.1)