anchor.diff:        (unless ir::*shut-up*
           (format t "Pick ~S for ~S~%" (gethash (cons instruction-index vreg) (allocator-instantaneous-allocations allocator)) vreg)))))
   
  +(defun deactivate-interval (allocator interval)
  +  (setf (allocator-active-ranges allocator) (remove interval
  +                                                    (allocator-active-ranges allocator))))
  +
   (defun linear-scan-allocate (allocator)
     (setf (allocator-active-ranges allocator) '()
           (allocator-range-allocations allocator) (make-hash-table :test 'eq :synchronized nil)
  
positive.code:                                                                                                   :key #'live-range-start)))
                                                   real-vreg-ranges)
            (slot-value allocator '%vreg-hints) vreg-move-hint
            (allocator-range-starts allocator) starts))
    (when (not ir::*shut-up*)
      (format t "Live ranges: ~:S~%" (allocator-remaining-ranges allocator)))
    (values))
  
negative.code:         (allocator-spilled-ranges allocator) (make-hash-table :test 'eq :synchronized nil)
          (allocator-instantaneous-allocations allocator) (make-hash-table :test 'equal :synchronized nil))
    (loop
       with arch = (allocator-architecture allocator)
       for inst in (allocator-instruction-ordering allocator)
       for instruction-index from 0
       do
  