Wait for threads to close properly

2015-12-05 11:44:25 +01:00 · 2015-12-05 11:44:25 +01:00 · 1deb06a92f
commit 1deb06a92f
parent a2806bc83a
1 changed files with 6 additions and 2 deletions
--- a/core/jobs.lisp
+++ b/core/jobs.lisp
@ -146,8 +146,12 @@

 (defun finalize ()
  "Finalize the jobs module."
-  (format t "Finalize Job system~%")
-  (update 0.0)
+  (loop-with-progress "Finalize Job system"
+     while (> (length *thread-list*) 0)
+     do (progn
+          (update 0.0)
+          (sleep 0.1)
+          progress-step))
  (assert (eq (length *thread-list*) 0))
  (loop as job = (dequeue *job-queue*)
     while job