+
+#+sb-thread
+(with-test (:name parallel-find-class)
+ (let* ((oops nil)
+ (threads (loop repeat 10
+ collect (make-thread (lambda ()
+ (handler-case
+ (loop repeat 10000
+ do (find-class (gensym) nil))
+ (serious-condition ()
+ (setf oops t))))))))
+ (mapcar #'sb-thread:join-thread threads)
+ (assert (not oops))))