anchor.diff:                     (insert current-vreg other-vreg)
                      (insert other-vreg current-vreg)))))
              (push range live)))
  +    (let ((size (length result)))
  +      (loop for val across result do
  +           (when (arrayp val)
  +             (incf size (length val))))
  +      (format *log* ",~D,~D"
  +              size (length spilled-ranges))
  +      #+(or)
  +      (format t "Interference graph has ~:D entries for ~:D spilled ranges~%" size (length spilled-ranges)))
       (values result spilled-vregs)))
   
   (defun assign-stack-slots (allocator interference-graph spilled-vregs)
  
positive.code:         (allocator-spilled-ranges allocator) (make-hash-table :test 'eq :synchronized nil)
          (allocator-instantaneous-allocations allocator) (make-hash-table :test 'equal :synchronized nil))
    (loop
       for inst in (allocator-instruction-ordering allocator)
       for instruction-index from 0
       do
  
negative.code:       (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)
  