anchor.diff:    (backend (middleend x)))
   
   (defun codegen-section (section data)
  -  (developer-note "Codegen ~A.~%" section)
  +  (developer-note "Generating section ~A…~%" section)
     (apply #'+ (remove-if #'not (codegen data))))
   
   (defun codegen-sections (sections)
  
positive.code: ; tré – Copyright (c) 2008–2015 Sven Michael Klose <pixel@copei.de>
  
  (defun update-section? (section cached-sections)
    (| (member section (sections-to-update))
  
negative.code:      (print-obfuscations))
    ;(warn-unused-functions)
    (tell-number-of-warnings)
    (print-status "~A seconds passed.~%"
                  (integer (/ (- (nanotime) start-time) 1000000000))))
  
  (defun compile-sections (sections &key (transpiler nil))
  