anchor.diff:      (format stream "~A" (template-file compiled-template))))
   
   (defmethod compile-template-file ((compiled-template compiled-template))
  -    ;; Set the template file write date
  +  ;; Set the template file write date
     (setf (template-file-write-date compiled-template)
           (file-write-date (template-file compiled-template)))
   
  
positive.code:                                       (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)))))
  
  (defun compile-string (string)
    (let ((fs (mapcar #'compile-token (process-tokens (parse-template-string string)))))
  
negative.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*))))
  
  