- (let* ((thread (sb-thread:make-thread (lambda () (let ((*x* t)) (sleep 2)))))
- (timer (sb-impl::make-timer (lambda () (assert *x*)) :thread thread)))
- (sb-impl::schedule-timer timer 0.1)))
+ (let* ((thread (sb-thread:make-thread (lambda () (sleep 2))))
+ (timer (make-timer (lambda ()
+ (assert (eq thread sb-thread:*current-thread*)))
+ :thread thread)))
+ (schedule-timer timer 0.1)))