Changeset 511

Timestamp:

Feb 9, 2004, 8:22:14 AM (21 years ago)

Author:

Gary Byers

Message:

WITH-STANDARD-ABORT-HANDLING around the idle loop.

File:

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

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

@@ -448 +448 @@
      nil))
   (%set-toplevel #'(lambda ()
-                     (loop
+                     (with-standard-abort-handling nil 
+                       (loop
                          (%nanosleep *periodic-task-seconds* *periodic-task-nanoseconds*)
-                         (housekeeping))))
+                         (housekeeping)))))
   (toplevel))