benchmarks: wait for temp kernel to finish

lmj · Jan 24, 2012 · 166bd77 · 166bd77
1 parent f1bd2ac
commit 166bd77
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bench/bench.lisp b/bench/bench.lisp
@@ -122,7 +122,7 @@ results are riffled for comparison."
 (defun call-with-temp-kernel (worker-count fn)
   (let1 *kernel* (make-kernel worker-count)
     (unwind-protect (funcall fn)
-      (end-kernel))))
+      (end-kernel :wait t))))
 
 (defun run-suite (worker-count reset-fn &rest fns)
   (when fns