anchor.diff:  
   ; API
   
  -(defun compile-template (template-root-folder relative-path
  +(defun compile-template (path
   			 &key (return-format :string) ;or :OCTETS
   			      ffc)
  -  (compile-template-string template-root-folder
  -			   (cl-ffc:slurp-utf-8-file (merge-pathnames relative-path template-root-folder))
  -			   :return-format return-format
  -			   :ffc ffc
  -			   :relative-path relative-path))
  +  (let ((*current-template-path* (template-path path)))
  +    (compile-template-string (cl-ffc:slurp-utf-8-file *current-template-path*)
  +          :return-format return-format
  +          :ffc ffc)))
   
   (defun .compile-template-string (string &key return-bytes)
     (if return-bytes
  
positive.code: 
  ; template paths
  
  (defun .template-path (path)
    (let ((string (namestring path)))
      (ecase (mismatch "/" string :test 'string=)
        ((nil) *current-template-root-folder*)
        ((0) (merge-pathnames string (directory-namestring *current-template-path*)))
        ((1) (merge-pathnames (subseq string 1) *current-template-root-folder*)))))
  
  (defun template-path (path &key dont-check)
    (if dont-check
        #1=(.template-path path)
        (cl-fad:file-exists-p #1#)))
  
  ; error
  
  
negative.code: 				      (first _)
  				      _))
  			      template-kwd-args)
  		      (list nil)))))))
  