Changeset 5545

Timestamp:

Nov 9, 2006, 3:26:12 PM (18 years ago)

Author:

Gary Byers

Message:

QUIT uses #quit.

PREPARE-TO-QUIT kill stragglers without waiting as long.

File:

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

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

@@ -118 +118 @@
                              (process-exit-application *current-process*
                                                        #'(lambda ()
-                                                           (#_exit exit-status)))))
+                                                           (%set-toplevel nil)
+                                                           (#__exit exit-status)))))
       (unless (eq cp ip)
         (process-kill cp)))))
@@ -149 +150 @@
         (unless (process-wait-with-timeout
                  "deathwatch"
-                 (* 5 *ticks-per-second*)
+                 10
                  #'(lambda () (process-exhausted-p p)))
           (maybe-finish-process-kill p :kill))))