anchor.diff:            (let ((path (resolve-variable-phrase (parse-variable-phrase (string path)))))
               (aif (and path (find-template* path))
                    (let ((compiled-template
  -                        (handler-case
  -                            (compile-template* path)
  -                          (error ()
  -                            (template-error "There was an error including the template ~A" it)))))
  +                         (handler-case
  +                             (compile-template* path)
  +                           (error ()
  +                             (template-error "There was an error including the template ~A" it)))))
                      (funcall compiled-template stream))
                    ;; else
                    (template-error "Cannot include the template ~A because it does not exist." path))))))
  
positive.code:   ":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)))))
      (lambda (stream)
        (princ string stream))))
  
  
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
  