anchor.diff:                    (cdr args))))                            
   
   (defmethod translate-named-item ((backend common-lisp-backend) (item (eql 'closure-template.parser:template)) args)
  -  (let* ((*template-variables* nil)         
  +  (let* ((*template-variables* nil)
            (body (let ((*autoescape* (if (find :autoescape (cdar args))
                                          (getf (cdar args) :autoescape)
                                          *autoescape*)))
  -                 `(with-template-output 
  -                    ,(translate-item backend
  -                                     (cdr args)))))
  +                 (translate-item backend
  +                                 (cdr args))))
            (binds (iter (for var in *template-variables*)
                         (collect (list (find-symbol (symbol-name var) *package*)
                                        `(getf $data$ ,var))))))
       `(defun ,(intern (string-upcase (caar args))) (,@(unless binds '(&optional)) $data$)
  -       (let ((*loops-vars* nil) ,@binds)
  +       (declare (optimize (debug 0) (speed 3)))
  +       (let ((*loops-vars* nil)
  +             ,@binds)
            (macrolet ((random-int (arg) `(random ,arg))
                       (has-data () '(not (null $data$)))
                       (index (s) `(second (assoc ',s *loops-vars*)))
  
positive.code:                                    `(let ((,var (assoc ',s *loops-vars*)))
                                        (= (second ,var)
                                           (third ,var))))))
             ,body)))))
  
  (defmethod translate-named-item ((backend common-lisp-backend) (item (eql 'closure-template.parser:foreach)) args)
    (let* ((loop-var (intern (string-upcase (second (first (first args))))))
  
negative.code:        (let ((*autoescape* nil))
           (,fun-name data)))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; translate and compile template methods
  