anchor.diff:                                                   (>= (sourceblock-size a)
                                                        (sourceblock-size b))))))
   
  -(defun assemble-parsed-files (out-name dump-name x)
  +(defun assemble-parsed-files-0 (out-name dump-name x &key (unassigned-segment-blocks nil))
     (clear-labels)
     (= *pass* 0)
     (while (| *label-changed?*
  
positive.code:      (assembler-error "SEGMENT expects a size."))
    (when *assign-blocks-to-segments?*
      (alet (assemble-expression ..x. :ensure? t)
        (format t "Filling up segment of size ~a…~%" !)
        (assign-segment-block out !))))
  
  
negative.code: (defun assemble-parsed-expressions (out x)
    (adolist x
      (with-temporary *assembler-current-line* !
        (| *assign-blocks-to-segments?*
           (let-when b (car *sourceblock-stack*)
             (enqueue (sourceblock-exprs b) !)))
        (adolist (.!)
          (? *disabled?*
             (? (& (cons? !)
                   (eq !. 'directive)
                   (eq .!. 'end))
                (assemble-end nil))
             (assemble-and-dump out !))))))
  
  