anchor.diff:    ":SHOW-FILE tags compile into a function that return the html-escaped contents of
   the file pointed to by the template-path `PATH'"
     (let ((string
  -         (case argument
  -           (:openblock "{%")
  -           (:closeblock "%}")
  -           (:openvariable "{{")
  -           (:closevariable "}}")
  -           (:openbrace "{")
  -           (:closebrace "}")
  -           (:opencomment "{#")
  -           (:closecomment "#}")
  -           (:opentranslationvariable "{_")
  -           (:closetranslationvariable "_}")
  -           (otherwise
  -            (template-error-string "Unknown templatetag ~A. known template tags are: openblock, closeblock, openvariable, closevariable, openbrace, closebrace, opencomment, closecomment" argument)))))
  +          (case argument
  +            (:openblock "{%")
  +            (:closeblock "%}")
  +            (:openvariable "{{")
  +            (:closevariable "}}")
  +            (:openbrace "{")
  +            (:closebrace "}")
  +            (:opencomment "{#")
  +            (:closecomment "#}")
  +            (:opentranslationvariable "{_")
  +            (:closetranslationvariable "_}")
  +            (otherwise
  +             (template-error-string "Unknown templatetag ~A. known template tags are: openblock, closeblock, openvariable, closevariable, openbrace, closebrace, opencomment, closecomment" argument)))))
       (lambda (stream)
         (princ string stream))))
   
  
positive.code:                                                     (t (resolve-variable-phrase (parse-variable-phrase (string value))))))
                                            (string value)
                                            (number value)))
                              *template-arguments*)))
                 (funcall template stream)))))
      (cond
        ((stringp path)
  
negative.code:   (flet ((template-with-parameters (template)
             (lambda (stream)
               (let ((*template-arguments*
                       (append (loop
                                 :for (var value) :on parameters :by #'cddr
                                 :collect var
                                 :collect (etypecase value
  