anchor.diff:  ;;;; Author: Moskvitin Andrey <archimag@gmail.com>
   
   (in-package #:closure-template)
  +
  +(defvar *template-variables* nil)
  +
  +(defvar *local-variables* nil)
   
   (defun write-template-string (str)
     (write-string str *template-output*))
  
positive.code:                               upname
                                "CLOSURE-TEMPLATE.SHARE")
                 (:use #:cl)
                 (:import-from #:closure-template #:write-template-string)))))
  
  
  (defvar *template-data*)
  
  (defparameter *default-translate-package*
    (make-template-package))
  
negative.code:            (symbolp (car expr)))
        (let ((key (car expr)))
          (case key
            (:variable (let ((varkey (intern (string-upcase (second expr)) :keyword)))
                         (when (not (or (find varkey *local-variables*)
                                        (find varkey *template-variables*)))
                           (push varkey *template-variables*))
                         (intern (string-upcase (second expr)))))
            (otherwise (cons (symbol-from-key (car expr))
                             (iter (for item in (cdr expr))
                                   (collect (translate-expression backend item)))))))
  