anchor.diff:        (error "Unexpected parser expression ~A." x))))
   
   (defun assemble-list (out x)
  -  (print x)
     (adolist x
       (let line !.
       (adolist (.!)
  
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: (defun assemble-toplevel-expression (out x)
    (alet (assemble-expression x)
      (? (cons? !)
         (assemble-list out (list (. nil !)))
         (assemble-byte out !))))
  
  (defun assemble-fill (out x)
  