Changeset 537

Timestamp:

Feb 15, 2004, 8:10:46 AM (21 years ago)

Author:

Gary Byers

Message:

No more quit-acknowledgement.

File:

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

trunk/ccl/lib/dumplisp.lisp

@@ -68 +68 @@
                                          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)))))