anchor.diff:                 (progn
                   (compile-template :common-lisp-backend
                                     "{template calculate}{not hasData() ? round(3.141592653589793) : round(2.7182817, $num)}{/template}")
  -                (list (funcall (find-symbol "CALCULATE" :closute-template.test.templates)
  +                (list (funcall (find-symbol "CALCULATE" *default-translate-package*)
                                  nil)
  -                      (funcall (find-symbol "CALCULATE" :closute-template.test.templates)
  +                      (funcall (find-symbol "CALCULATE" *default-translate-package*)
                                  '(:num 2))
  -                      (funcall (find-symbol "CALCULATE" :closute-template.test.templates)
  +                      (funcall (find-symbol "CALCULATE" *default-translate-package*)
                                  '(:num 4))))))
  +
  +(addtest (common-lisp-backend-test)
  +  calculate-8
  +  (ensure-same '("1" "16" "9" "36")
  +               (progn
  +                 (compile-template :common-lisp-backend
  +                                   "{template calculate}{$array[$index]}{/template}")
  +                 (list (funcall (find-symbol "CALCULATE" *default-translate-package*)
  +                                '(:array (0 1 4 9 16 25 36) :index 1))
  +                       (funcall (find-symbol "CALCULATE" *default-translate-package*)
  +                                '(:array (0 1 4 9 16 25 36) :index 4))
  +                       (funcall (find-symbol "CALCULATE" *default-translate-package*)
  +                                '(:array (0 1 4 9 16 25 36) :index 3))
  +                       (funcall (find-symbol "CALCULATE" *default-translate-package*)
  +                                '(:array (0 1 4 9 16 25 36) :index 6))))))
   
   ;;;; substitions
   
  
positive.code:                (progn
                  (compile-template :common-lisp-backend
                                    "{template test}{foreach $opernand in $opernands} {$opernand}{ifempty}Hello world{/foreach}{/template}")
                  (list (funcall (find-symbol "TEST" :closute-template.test.templates)
                                 '(:opernands ("alpha" "beta" "gamma")))
                        (funcall (find-symbol "TEST" :closute-template.test.templates)
                                 nil)))))
  
  (addtest (common-lisp-backend-test)
  
negative.code:                (progn
                  (compile-template :common-lisp-backend
                                    "{template test}{foreach $opernand in $opernands} {$opernand}{/foreach}{/template}")
                  (funcall (find-symbol "TEST" *default-translate-package*)
                           '(:opernands ("alpha" "beta" "gamma"))))))
  
  (addtest (common-lisp-backend-test)
  