Ignore:
Timestamp:
Jan 17, 2008, 3:01:09 PM (12 years ago)
Author:
gb
Message:

HOUSEKEEPING-LOOP split off (change from trunk.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2/devel/source/level-1/l1-application.lisp

    r7487 r8165  
    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.