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:          (let ((result (funcall transform (parser-combinators::context-peek inp))))
             (if result
                 (let ((closure-value
                        (make-instance 'parser-combinators::parser-possibility
                                       :tree result :suffix (parser-combinators::context-next inp))))
                   #'(lambda ()
                       (when closure-value
                         (prog1
  
negative.code:                                       (cons :last (= length 1))
                                        (cons :parentloop (get-variable :forloop))))
                         (*template-arguments*
                           ;; NIL is a placeholder for the value of the loop variable.
                           (if (consp var)
                               (list* (car var) nil (cdr var) nil :forloop loopfor *template-arguments*)
                               (list* var nil :forloop loopfor *template-arguments*))))
                    (dolist (x (if reversed (reverse list) list))
                      ;; Update the value of the loop variable.
                      (if (consp var)
  