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:   (print-status "Let me think. Hmm...~F")
    (funcall (middleend-init))
    (with (before-imports    (codegen-sections before-import)
           imports-and-rest  (append (codegen (@ #'list imports))
                                     (codegen-sections after-import)
                                     (codegen-accumulated-toplevels)
                                     (codegen-delayed-exprs)))
      (funcall (postprocessor) (append (!? (funcall (prologue-gen))
                                           (list !))
                                       (dechunk (append (funcall (decl-gen))
  
negative.code:   (& (enabled-pass? :accumulate-toplevel)
       (accumulated-toplevel-expressions)
       (with-temporaries ((sections-to-update) '(accumulated-toplevel))
         (developer-note "Generating top–level expressions…~%")
         (push :accumulate-toplevel (disabled-passes))
         (prog1
           (quick-compile-sections (list (. 'accumulated-toplevel
  