anchor.diff:      :name name))
   
   (defmethod draw-datum ((datum register-location) stream)
  -  (format stream "   ~a [fillcolor = yellow, label = \"~a\"]~%"
  +  (format stream "   ~a [fillcolor = red, label = \"~a\"]~%"
   	  (gethash datum *datum-table*)
   	  (name datum)))
   
  
positive.code:     :storage storage))
  
  (defmethod draw-datum ((datum special-location) stream)
    (format stream "   ~a [fillcolor = cyan, label = \"~a\"]~%"
  	  (gethash datum *datum-table*)
  	  (name datum)))
  
  
negative.code: 	  (gethash (code instruction) *instruction-table*)
  	  (unique-id instruction)))
  
  (defmethod clone-instruction :around ((instruction enclose-instruction))
    (let ((new (call-next-method)))
      (setf (code new) (code instruction))
      new))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Instruction GET-ARGCOUNT-INSTRUCTION.
  