anchor.diff:  (defmethod template-truename ((generator file-system-generator) (name pathname))
     (dolist (root (root-directories generator))
       (when-bind truename (probe-file (merge-pathnames name root))
  -       (return-from template-truename truename)))
  +      (return-from template-truename truename)))
     (return-from template-truename nil))
   
   (defmethod load-tal ((generator file-system-generator) (name string))
  
positive.code: 	    (name)
  	    "No template named ~S found." name)
      (unless (gethash file-name *tal-templates*)
        (setf (gethash file-name *tal-templates*) (make-tal-template :last-load-time 0
  								   :function nil
  								   :file-name file-name)))
      (lambda (environment generator)
        (let ((template (gethash file-name *tal-templates*))
  	    (file-write-date (file-write-date file-name)))
          (when (or (not (cachep generator))
                    (< (tal-template.last-load-time template) file-write-date))
            (setf
             (tal-template.function template) (compile nil (preprocess-tal generator file-name))
             (tal-template.last-load-time template) file-write-date))
  	(funcall (tal-template.function template) environment generator)))))
  
  (defmethod preprocess-tal ((generator file-system-generator) (file-name string))
  
negative.code: ;;  - Neither the name of Edward Marco Baringer, nor BESE, nor the names
  ;;    of its contributors may be used to endorse or promote products
  ;;    derived from this software without specific prior written permission.
  ;;
  ;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  ;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  ;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  