anchor.diff:  
   (defmethod draw-instruction ((instruction funcall-instruction) stream)
     (format stream "   ~a [label = \"funcall\"];~%"
  -	  (gethash instruction *instruction-table*)))
  +	  (unique-id instruction)))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: (defmethod draw-instruction
      ((instruction assignment-instruction) stream)
    (format stream "   ~a [label = \"<-\"];~%"
  	  (gethash instruction *instruction-table*)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: 
  (defmethod draw-instruction ((instruction u+-instruction) stream)
    (format stream "   ~a [label = \"u+\"];~%"
  	  (unique-id instruction)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  