anchor.diff:                                           :start (gethash vreg vreg-liveness-start)
                                            :end end
                                            :conflicts (gethash vreg vreg-conflicts))))
  +               (when (not ir::*shut-up*)
  +                 (format t " Add range ~S~%" range))
                  (push range ranges)
                  (push range (gethash vreg vreg-ranges)))))
         (loop
  
positive.code:                   (vregs (virtual-registers-touched-by-instruction inst live-in live-out))
                    (newly-live-vregs (set-difference vregs active-vregs))
                    (newly-dead-vregs (set-difference active-vregs vregs)))
               ;; Process vregs that have just become live.
               (dolist (vreg newly-live-vregs)
                 (setf (gethash vreg vreg-liveness-start) range-start)
  
negative.code:                      (reg (gethash old-range (allocator-range-allocations allocator))))
                  (assert (eql (live-range-start new-range) instruction-index))
                  (unless ir::*shut-up*
                    (format t "Direct move from ~S to ~S using reg ~S~%" old-range new-range reg)
                    (format t "remaining ~:S~%" (allocator-remaining-ranges allocator)))
                  (activate-interval allocator new-range reg))
                ;; Shouldn't be any remaining ranges coming live on this instruction.
                (assert (or (endp (allocator-remaining-ranges allocator))
  