Changeset 535

Timestamp:

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

Author:

Gary Byers

Message:

No more "quit acknowledgement".

File:

• trunk/ccl/level-1/l1-readloop.lisp (modified) (3 diffs)

trunk/ccl/level-1/l1-readloop.lisp

@@ -156 +156 @@
 |#
 
-(defglobal *quit-acknowledge* nil)
-(defglobal *quit-acknowledge-lock* (make-lock))
 
 (defun quit (&optional (exit-status 0))
@@ -169 +167 @@
                                        (#_exit exit-status)))))
       (unless (eq cp ip)
-        (when (try-lock *quit-acknowledge-lock*)
-          (let-globally ((*quit-acknowledge* (make-semaphore)))
-                        (timed-wait-on-semaphore *quit-acknowledge* 1)))
         (process-kill cp)))))
 
@@ -183 +178 @@
 
 (defun prepare-to-quit (&optional part)
-  (when *quit-acknowledge* (signal-semaphore *quit-acknowledge*))
   (let-globally ((*quitting* t))
     (when (or (null part) (eql 0 part))