anchor.diff:                                        (trivial-backtrace:print-backtrace e :output nil)
                                         template stream)
                  (error e))))))
  -    (t (error 'simple-error :format-control "~A is not a valid template"
  -	      :format-arguments (list template)))))
  +    (t (error 'simple-error
  +              :format-control "~A is not a valid template"
  +              :format-arguments (list template)))))
   
   (defun compile-string (string)
     (let ((fs (mapcar #'compile-token (process-tokens (parse-template-string string)))))
  
positive.code:   (let ((*block-alist* nil)
          (*linked-templates* nil))
      (let ((compiled-str
             (compile-string (fetch-template* (template-file compiled-template)))))
        (setf (compiled-template compiled-template) compiled-str
              (linked-templates compiled-template) *linked-templates*))))
  
  
negative.code:            (when (or (not (equalp (file-write-date (template-file compiled-template))
                                    template-file-write-date))
                       (loop for linked-template in (linked-templates compiled-template)
                               thereis (template-changed linked-template)))
               (compile-template-file compiled-template)))
           (funcall (compiled-template compiled-template) stream))
         ;; If :djula-prod is enabled, avoid the automatic template file checking and recompilation
  