- (let ((done-p nil))
- (loop while (not done-p)
- do
- (setq done-p t)
- ;; what if I type interrupt-thread at the debugger?
- (handler-case
- (sb!thread:interrupt-thread (sb!thread::foreground-thread)
- #'break-it)
- (sb!thread:interrupt-thread-error ()
- (setq done-p nil)))))))