anchor.diff:  (defvar *t-symbol-name*   "T")
   
   (defun compile-section? (section processed-sections)
  -  (| (member section (transpiler-sections-to-update *transpiler*))
  +  (| (member section (sections-to-update))
        (not (assoc section processed-sections))))
   
   (defun accumulated-toplevel? (section)
  
positive.code: 
  (defun map-section (x fun sections cached-sections)
    (with-cons section data x
      (with-temporaries ((transpiler-current-section *transpiler*)       section
                         (transpiler-current-section-data *transpiler*)  data)
        (. section (? (compile-section? section cached-sections)
                      (funcall fun section data)
                      (assoc-value section cached-sections))))))
  
negative.code: (defun generic-compile-2 (sections)
    (alet (map-sections #'codegen-section
                        sections
                        (compiled-files))
      (= (compiled-files) !)
      (cdrlist !)))
  
  (defun generic-load (path)
  