anchor.diff:                                                         (- ,deadsym ,stimesym)))))
                         (beforep ,deadsym))
                      `(beforep ,deadsym))
  -     :end-time `(beforep ,deadsym)
  -     :expired-test deadsym
  +     :end-time deadsym
  +     :expired-test `(afterp ,deadsym)
        :local-vars (when progress `((,progress 0.0))) ;; cant this have the calculation?
        :closed-vars `(,@(when progress `((,stimesym ,current-time-sym)))
                         (,deadsym 0.0)))))
  
positive.code:        :code chained
         :run-test `(< ,counter-sym ,(length forms))
         :expired-test (when (not repeat) `(= ,counter-sym ,(length forms)))
         :closed-vars (cons `(,counter-sym 0) closed-vars))))
  
  ;;------------------
  ;; Time conditional
  
negative.code:                                                        (- ,deadsym ,stimesym)))))
                        (betweenp ,deadsym))
                     `(betweenp ,deadsym))
       :end-time deadsym
       :expired-test `(afterp ,deadsym)
       :local-vars (when progress `((,progress 0.0))) ;; cant this have the calculation?
       :closed-vars `(,@(when progress `((,stimesym ,current-time-sym)))
                        (,deadsym 0.0)))))
  