anchor.diff:                        :accessor compiled-template
                         :documentation "The compiled template (a closure)")
      (linked-templates :initarg :linked-templates
  -                 :accessor linked-templates
  -                 :initform '()
  -                 :documentation "Extends for Include files.")
  +                     :accessor linked-templates
  +                     :initform '()
  +                     :documentation "Extends for Include files.")
      (template-file :initarg :template-file
                     :accessor template-file
                     :initform (error "Provide the template file")
  
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:                                       (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)))))
  