anchor.diff:        'expression   (assemble-toplevel-expression out x)
         (assembler-error "Unexpected parsed expression ~A." x))))
   
  -(defun assemble-dump-line (pc bytes line)
  +(defun assemble-dump-line (pc bytes)
     (let o *assembler-dump-stream*
       (fresh-line o)
       (print-hexword pc o)
  
positive.code:       (assemble o x)
        (let bytes (get-stream-string o)
          (when (length bytes)
            (assemble-dump-line pc bytes *assembler-current-line*.)
            (princ bytes out))))))
  
  (defun assemble-parsed-expressions (out x)
  
negative.code:     (while (< (stream-location-column (stream-output-location o)) 26)
             nil
         (princ " " o))
      (princ *assembler-current-line*.. o)))
  
  (defun assemble-and-dump (out x)
    (= *cycles* nil)
  