anchor.diff:                                                   (>= (sourceblock-size a)
                                                        (sourceblock-size b))))))
   
  -(defun assemble-parsed-files-0 (out-name dump-name x &key (unassigned-segment-blocks nil))
  +(defun assemble-parsed-files-0 (out-name dump-name x &key (unassigned-segment-blocks nil)
  +                                                          (segments (make-queue)))
     (clear-labels)
     (= *pass* 0)
     (while (| *label-changed?*
  
positive.code:          nil
      (format t "Pass ~A…~%" *pass*)
      (= *label-changed?* nil
         *unassigned-segment-blocks* unassigned-segment-blocks)
      (assemble-pass-to-file out-name dump-name x)
      (++! *pass*))
    (awhen *sourceblock-stack*
  
negative.code:     (format t "Assembling again to assign BLOCKs to SEGMENTS…~%")
      (sort-unassigned-segment-blocks)
      (with-temporary *assign-blocks-to-segments?* t
        (assemble-parsed-files-0 out-name dump-name x :unassigned-segment-blocks !
                                                      :segments *segments*))))
  
  (defun check-on-unassigned-blocks ()
    (awhen *unassigned-segment-blocks*
  