+ (loop for x in *allobjects*\r
+ if (and (has x :daemon) (provides x 'daemon))\r
+ do (read-property- :execute x 'daemon)\r
+ if (and (has x :timer) (provides x 'time-left) \r
+ (provides x 'time-out))\r
+ do (if (zerop (slot-value x 'time-left))\r
+ (read-property- :execute x 'time-out)\r
+ (decf (slot-value x 'time-left))))\r
+ (loop for x in *outscope*\r