anchor.diff:      (setf (slot-value allocator '%ranges) (sort ranges #'< :key #'live-range-start)
             (slot-value allocator '%vreg-ranges) vreg-ranges
             (slot-value allocator '%vreg-hints) vreg-move-hint))
  +  (when (not ir::*shut-up*)
  +    (format t "Live ranges: ~:S~%" (allocator-remaining-ranges allocator)))
     (values))
   
   (defun expire-old-intervals (allocator current-interval)
  
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))
  