anchor.diff:  (defun assemble-toplevel-expression (out x)
     (alet (assemble-expression x)
       (?
  -      (cons? !)    (assemble-list out (list (. nil !)))
  +      (cons? !)    (assemble-parsed-expressions out (list (. nil !)))
         (string? !)  (assemble-string out !)
         (assemble-byte out !))))
   
  
positive.code:   (= *pc* 0)
    (= *acycles* 0)
    (rewind-labels)
    (assemble-list out x))
  
  (defun assemble-pass-to-file (name i)
    (with-output-file out name
      (assemble-pass out i)))
  
  (defun assemble-files (out-name &rest in-names)
    (let parsed (parse-files in-names)
      (clear-labels)
      (= *pass* 0)
  
negative.code:                nil
            (princ " "))
          (princ line)
          (princ bytes out)))))
  
  (defun assemble-parsed-expressions (out x)
    (adolist x
      (let line !.
        (adolist (.!)
  