Index: /trunk/ccl/level-1/l1-readloop.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop.lisp	(revision 534)
+++ /trunk/ccl/level-1/l1-readloop.lisp	(revision 535)
@@ -156,6 +156,4 @@
 |#
 
-(defglobal *quit-acknowledge* nil)
-(defglobal *quit-acknowledge-lock* (make-lock))
 
 (defun quit (&optional (exit-status 0))
@@ -169,7 +167,4 @@
 				       (#_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,5 +178,4 @@
 
 (defun prepare-to-quit (&optional part)
-  (when *quit-acknowledge* (signal-semaphore *quit-acknowledge*))
   (let-globally ((*quitting* t))
     (when (or (null part) (eql 0 part))