- (t2 (sb-thread:make-thread (lambda ()
- (handler-bind ((error (lambda (c)
- (sb-thread:signal-semaphore sem1)
- (sb-thread:wait-on-semaphore sem2)
- (abort c))))
- (make-package :bug-511072))))))
+ (t2 (make-join-thread (lambda ()
+ (handler-bind ((error (lambda (c)
+ (sb-thread:signal-semaphore sem1)
+ (sb-thread:wait-on-semaphore sem2)
+ (abort c))))
+ (make-package :bug-511072))))))