X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=control-logic.lsp;h=bdf291d858cae4fe80cad182a4e709473d6db2d2;hb=0046dee0ba7a31f1c7f3f98ee1615b683f6038b4;hp=d75a9133a629e0fe46a2d24b9f0c8fe8baa52311;hpb=f74fef02b362f72f28621e6d5d099f5523587666;p=rrq%2Fhourglass.git

diff --git a/control-logic.lsp b/control-logic.lsp
index d75a913..bdf291d 100644
--- a/control-logic.lsp
+++ b/control-logic.lsp
@@ -27,6 +27,8 @@
  DAY (list YEAR MONTH DATE)
  HM (list HOUR MINUTE)
  TOTAL '()
+ GAP SITE:control.activity.gap
+ CLIP SITE:control.activity.clip
  )
 
 # Load CONTROL.DAT
@@ -40,11 +42,6 @@
          (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!!"))