anchor.diff:        (let* ((fs (mapcar 'compile-token (process-tokens (parse-template-string string)))))
   	(f0 (.funcall-and-concatenate fs)))))
   
  -(defun compile-template-string (template-root-folder template-string
  +(defun compile-template-string (string
   				&key (return-format :string) ; or :OCTETS
  -				     ffc
  -				     relative-path)
  -  (let* ((*current-template-root-folder* template-root-folder)
  -	 (*current-template-relative-path* relative-path)
  -	 (%template-path (merge-pathnames relative-path template-root-folder))
  -	 (*current-template-path* %template-path)
  -	 *block-alist*
  +				     ffc)
  +  (let* (*block-alist*
   	 *linked-files*
   	 (*template-ffc* ffc)
  -	 (fn (.compile-template-string template-string
  +	 (fn (.compile-template-string string
   				       :return-bytes (eql return-format :octets))))
       (values (f (&rest *template-arguments* &key &allow-other-keys)
  -	      (let ((*current-template-root-folder* template-root-folder)
  -		    (*current-template-relative-path* relative-path)
  -		    (*current-template-path* %template-path)
  -		    *known-translation-tables*
  +	      (let (*known-translation-tables*
   		    *known-example-tables*
   		    *accumulated-javascript-strings*
   		    (*template-ffc* ffc)
  
positive.code: 
  ; API
  
  (defun compile-template (template-root-folder relative-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))
  
  (defun .compile-template-string (string &key return-bytes)
    (if return-bytes
  
negative.code: 
  ; special
  
  (defvar *current-template-path* nil)
  
  (defvar *template-search-path* nil)
  
  (defvar *template-arguments*)
  
  