anchor.diff:      (when escapes
         ;; Emit the jump-table.
         ;; TODO: Prune local labels out.
  -      (emit-trailer (jump-table nil)
  +      (emit-trailer (nil nil)
  +        (emit `(:align 8))
  +        (emit jump-table)
           (dolist (i thunk-labels)
             (emit `(:d64/le (- ,i ,jump-table)))))
         ;; And the all the thunks.
  
positive.code: (defvar *gc-info-fixups* nil)
  (defvar *active-nl-exits* nil)
  (defvar *literal-pool*)
  
  (defun emit (&rest instructions)
    (dolist (i instructions)
      (push i *code-accum*)))
  
  (defun comment (&rest stuff)
    (emit `(:comment ,@stuff)))
  
  (defmacro emit-trailer ((&optional name (default-gc-info t)) &body body)
    `(push (let ((*code-accum* '())
                 (*last-gc-info* ,(if default-gc-info `'() `*last-gc-info*)))
             ,(when name
                    `(emit ,name))
             ,@(when default-gc-info
                     (list '(emit-gc-info)))
             (progn ,@body)
             (nreverse *code-accum*))
           *trailers*))
  
  (defun fixnum-to-raw (integer)
    (check-type integer (signed-byte 63))
  
negative.code:     (let* ((final-code (nconc (generate-entry-code lambda)
                                (nreverse *code-accum*)
                                (apply #'nconc *trailers*)
                                (list* '(:align 8)
                                       'arm-literal-pool
                                       (loop
                                          for val across *literal-pool*
                                          collect `(:d64/le ,val)))))
  