anchor.diff:                    (available-regs (remove-if (lambda (preg)
                                                  (member preg used-pregs))
                                                free-registers)))
  -               #+(or)
  -             (format t "Instants ~S ~S ~S ~S~%"
  -                                 (remove-if-not (lambda (r)
  -                                                  (typep r 'virtual-register))
  -                                                (instruction-inputs inst))
  -
  -                                 (remove-if-not (lambda (r)
  -                                                  (typep r 'virtual-register))
  -                                                (instruction-outputs inst))
  -                                 spilled-vregs available-regs)
  +             (unless *shut-up*
  +               (format t "Instants ~:S ~:S ~:S ~:S~%"
  +                       (remove-if-not (lambda (r)
  +                                        (typep r 'virtual-register))
  +                                      (instruction-inputs inst))
  +
  +                       (remove-if-not (lambda (r)
  +                                        (typep r 'virtual-register))
  +                                      (instruction-outputs inst))
  +                       spilled-vregs available-regs))
                (dolist (vreg spilled-vregs)
                  (cond ((allow-memory-operand-p inst vreg architecture)
                         ;; Do nothing.
  
positive.code: (deftype physical-register ()
    'keyword)
  
  (defun instruction-all-clobbers (inst architecture mv-flow live-in live-out)
    (union
     (union
  
negative.code:                                                     (member (gethash (live-range-vreg spill-interval) registers)
                                                              (live-range-conflicts i)))
                                                    active)))))
                 (unless *shut-up*
                   (format t "active ~S~%" active)
                   (format t "Spill ~S ~S~%" spill (if spill (gethash (live-range-vreg spill) registers) nil)))
                 (cond ((and spill
                             (> (live-range-end spill) (live-range-end i)))
                        (setf (gethash (live-range-vreg i) registers) (gethash (live-range-vreg spill) registers))
  