DAY (list YEAR MONTH DATE)
HM (list HOUR MINUTE)
TOTAL '()
+ GAP SITE:control.activity.gap
+ CLIP SITE:control.activity.clip
)
# Load CONTROL.DAT
(list DOW (6 30) 120 (20 0)))
)
-(setf
- GAP (or (lookup 'gap CONTROL) 15)
- CLIP (or (lookup 'clip CONTROL) 1000)
- )
-
# Load the configured control mechanism
(if (lookup 'control CONTROL) (load $it)
(die "** Unknown control mechanism. Exiting!!"))