anchor.diff:        (assemble o x)
         (let bytes (get-stream-string o)
           (when (length bytes)
  -          (assemble-dump-line pc bytes *assembler-current-line*.)
  +          (assemble-dump-line pc bytes)
             (princ bytes out))))))
   
   (defun assemble-parsed-expressions (out x)
  
positive.code:       'expression   (assemble-toplevel-expression out x)
        (assembler-error "Unexpected parsed expression ~A." x))))
  
  (defun assemble-dump-line (pc bytes line)
    (let o *assembler-dump-stream*
      (fresh-line o)
      (print-hexword pc o)
  
negative.code:                       (< *pass* 3))
                     nil
                (format t "Pass ~A…~%" *pass*)
                (format dump ";~%; Pass ~A~%;~%" *pass*)
                (= *label-changed?* nil)
                (assemble-pass-to-file out-name parsed)
                (++! *pass*)))))))
  