anchor.diff:  (defun assemble-toplevel-expression (out x)
     (alet (assemble-expression x)
       (? (cons? !)
  -       (assemble-list out (@ [. nil _] !))
  +       (assemble-list out (list (. nil !)))
          (assemble-byte out !))))
   
   (defun assemble-fill (out x)
  
positive.code:               (adolist ((string-list bytes))
                  (princ " ")
                  (print-hexbyte (char-code !))))
              (while (< (stream-location-column (stream-output-location *standard-output*)) 24)
                     nil
                (princ " "))
              (princ line)
  
negative.code:       (error "Unexpected parser expression ~A." x))))
  
  (defun assemble-list (out x)
    (adolist x
      (let line !.
      (adolist (.!)
  