;;; Insert Block in the emission order after the block After.
(defun add-to-emit-order (block after)
(declare (type block-annotation block after))
;;; Insert Block in the emission order after the block After.
(defun add-to-emit-order (block after)
(declare (type block-annotation block after))