anchor.diff:  (set-processor 'no-global-inputs 'replace-global-inputs)
   
   (add-dependencies 'no-global-inputs
  -		  '())
  +		  '(instruction-graph))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: 			sum (if (member inst loop-instructions :test #'eq)
  				10
  				1))
  		  (sicl-graph-coloring:degree location conflicts))))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: (defmethod (setf basic-block) (new (instruction sicl-mir:instruction))
    (setf (basic-block (find-instruction-info instruction))
  	new))
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Creating an INSTRUCTION-INFO instance for each instruction in the
  