anchor.diff:  			sum (if (member inst loop-instructions :test #'eq)
   				10
   				1))
  -		  (sicl-graph-coloring:degree location conflicts))))))))
  +		  (1+ (sicl-graph-coloring:degree location conflicts)))))))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: 			  (or (typep input 'sicl-mir:lexical-location)
  			      (typep input 'sicl-mir:register-location)))
  			(inputs instruction))) 
  		     #'outputs)))
        (map-instructions
         (lambda (instruction)
  	 (loop for output in (outputs instruction)
  	       do (loop for live in (sicl-compiler-liveness:live-after
  				     liveness instruction)
  			do (when (or (typep output 'sicl-mir:lexical-location)
  				     (typep live 'sicl-mir:lexical-location))
  			     (pushnew
  			      (if (typep live 'sicl-mir:register-location)
  				  (cons output live)
  				  (cons live output))
  			      conflicts
  			      :test #'same-conflict-p)))))))
      conflicts))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: (set-processor 'no-global-inputs 'replace-global-inputs)
  
  (add-dependencies 'no-global-inputs
  		  '(instruction-graph))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  