- (sb-thread:make-thread (lambda ()
- (setq ,values
- (multiple-value-list (progn ,@body)))
- (sb-thread::signal-semaphore ,sem)))
+ (make-join-thread (lambda ()
+ (setq ,values
+ (multiple-value-list (progn ,@body)))
+ (sb-thread::signal-semaphore ,sem)))