Changeset 473

Timestamp:

Feb 6, 2004, 11:27:59 AM (21 years ago)

Author:

Gary Byers

Message:

Do handshaking with initial thread before shutting down for SAVE-APPLICATION.

File:

• trunk/ccl/lib/dumplisp.lisp (modified) (1 diff)

trunk/ccl/lib/dumplisp.lisp

@@ -69 +69 @@
                                          rest)))))
       (unless (eq cp ip)
+        (when (try-lock *quit-acknowledge-lock*)
+          (let-globally ((*quit-acknowledge* (make-semaphore)))
+                        (unless 
+                            (timed-wait-on-semaphore *quit-acknowledge* 1)
+                          (dbg "no quit ack"))))
         (process-kill cp)))))