Changeset 7926


Ignore:
Timestamp:
Dec 21, 2007, 4:26:49 PM (12 years ago)
Author:
gz
Message:

split off housekeeping-loop so the gui can use it

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-application.lisp

    r7487 r7926  
    283283             :class 'tty-listener
    284284             :process initial-listener-process))))
    285   (%set-toplevel #'(lambda ()
    286                      (with-standard-abort-handling nil
    287                        (loop
    288                          (%nanosleep *periodic-task-seconds* *periodic-task-nanoseconds*)
    289                          (housekeeping)))))
     285  (%set-toplevel #'housekeeping-loop)
    290286  (toplevel))
    291287
    292 
     288(defun housekeeping-loop ()
     289  (with-standard-abort-handling nil
     290    (loop
     291      (%nanosleep *periodic-task-seconds* *periodic-task-nanoseconds*)
     292      (housekeeping))))
     293 
    293294
    294295(defmethod application-init-file ((app lisp-development-system))
Note: See TracChangeset for help on using the changeset viewer.