anchor.diff:         ,(translate-item backend (second args)))))
   
   (defmethod translate-named-item ((backend javascript-backend) (item (eql 'closure-template.parser:literal)) args)
  -  (list 'setf *js-print-target*
  -        (list 'ps:+
  -              *js-print-target*
  -              (car args))))
  +  (list (list'ps:@ *js-print-target* 'push)
  +        (car args)))
           
   (defmethod translate-named-item ((backend javascript-backend) (item (eql 'closure-template.parser:foreach)) args)
     (let* ((loop-var (make-symbol (string-upcase (second (first (first args))))))
  
positive.code:                                (/ (round (* ,number factor)) factor))
                               (round ,number))))             
               ,body)
             $template-output$))))
  
  (defmethod translate-named-item ((backend javascript-backend) (item (eql 'closure-template.parser:with)) args)
    (let ((*local-variables* *local-variables*))
  
negative.code:                     call-expr)))
            (iter (for param in params)
                  (let ((slotname `(ps:@ _$data$_ ,(make-symbol (symbol-name (second (second param)))))))
                    (if (third param)
                        (push `(setf ,slotname
                                     ,(translate-expression backend
                                                            (third param)))
                              call-expr)
                        (let ((*js-print-target* slotname))
                          (push `(setf ,slotname (array))
                                call-expr)
                          (push (translate-item backend
                                                (cdddr param))
                                call-expr)
                          (push `(setf ,slotname ((ps:@ ,slotname join) ""))
                                call-expr)
                          ))))
            `(progn ,@(reverse call-expr)
                    ,(list fun-name '_$data$_ *js-print-target*))))))
                    ,(backend-print backend
                                    (list fun-name '_$data$_ )
                                    (list :escape-mode :no-autoescape)))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  