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:   (let ((solution (allocate-registers program)))
      (loop for (lexical . reg) in solution
  	  do (loop for inst in (defining-instructions lexical)
  		   do (setf (outupts inst)
  			    (substitute reg lexical (outputs inst)
  					:test #'eq)))
  	     (loop for inst in (using-instructions lexical)
  
negative.code: (set-processor 'no-constant-inputs 'replace-constant-inputs)
  
  (add-dependencies 'no-constant-inputs
  		  '(instruction-graph))
  
  ;;; Insert a LOAD-EXTERNAL instruction before INSTRUCTION, with
  ;;; IN as its single input and OUT as its single output.
  