anchor.diff:    (declare (ignore temporal-statements))
     (error "'Repeat' can only be used inside a tlambda*"))
   
  -(defun tprogn (forms &optional rootp)
  +;; (let ,local-vars
  +;;   ,(if expired-test
  +;;        `(if ,expired-test
  +;;             (cfunc:signal-expired)
  +;;             ,code)
  +;;        code))
  +
  +;;{TODO}
  +;; * im going to remove put everything in :code and remove :local-vars
  +
  +(defun tprogn (forms)
     (let* ((processed-forms (mapcar #'%compile-tprogn-form forms))
  -         (let-forms (if rootp
  -                        (mapcar #'t-local-vars processed-forms)
  -                        (remove nil (mapcan #'t-local-vars processed-forms)))))
  +         (let-forms (remove nil (mapcan #'t-local-vars processed-forms))))
       (make-instance
        't-compile-obj
        :code `(progn
  
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)))))
                        (beforep ,deadsym))
                     `(beforep ,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)))))
  