(test-inifinite-error-protection)
#+sb-thread
(let ((thread (sb-thread:make-thread #'test-inifinite-error-protection)))
(loop while (sb-thread:thread-alive-p thread)))
(test-inifinite-error-protection)
#+sb-thread
(let ((thread (sb-thread:make-thread #'test-inifinite-error-protection)))
(loop while (sb-thread:thread-alive-p thread)))