anchor.diff:                                          (format nil "~A" ,g-str)))
                  (,g-str (format nil "~A" ,g-str)))
                *template-output*))))
  -
  -;; (defmacro write-template-string (str)
  -;;   (let ((g-str (gensym)))
  -;;     `(let ((,g-str ,str))
  -;;        (cond
  -;;          ((typep ,g-str 'float) (let ((*read-default-float-format* (type-of ,g-str)))
  -;;                                   (format *template-output* "~A" ,g-str)))
  -;;          (,g-str (format *template-output* "~A" ,g-str))))))
  -
  -;; (defmacro with-template-output (&body body)
  -;;   `(cond
  -;;      (*template-output* ,@body)
  -;;      (t (with-output-to-string (*template-output*)
  -;;           ,@body))))
  -       
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; implementataion
  
positive.code: (in-package #:closure-template)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Helper
  ;; string tree
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defmacro with-template-output (&body body)
  
negative.code:                             'function
                              symbol))))
      (translate-item backend
                    (cdr args))))
  
  (defun has-data-used-p (body)
    (cond
      ((and (consp body)
            (eql (car body) 'has-data)) t)
      ((consp body) (iter (for item in (cdr body))
                          (finding t such-that  (has-data-used-p item))))
      (t nil)))
  
  (defmethod translate-named-item ((backend common-lisp-backend) (item (eql 'closure-template.parser:template)) args)
    (let* ((*template-variables* nil)
  