anchor.diff:  	  (gethash instruction *instruction-table*)))
   
   (defmethod draw-instruction ((instruction put-arguments-instruction) stream)
  -  (format stream "   ~a [label = \"put-values\"];~%"
  +  (format stream "   ~a [label = \"put-args\"];~%"
   	  (gethash instruction *instruction-table*)))
   
   (defmethod draw-instruction ((instruction put-values-instruction) stream)
  
positive.code: 	  (gethash instruction *instruction-table*)))
  
  (defmethod draw-instruction ((instruction get-arguments-instruction) stream)
    (format stream "   ~a [label = \"get-arguments\"];~%"
  	  (gethash instruction *instruction-table*)))
  
  (defmethod draw-instruction ((instruction get-values-instruction) stream)
  
negative.code: 		   (gethash location *instruction-table*))))
  
  (defmethod draw-instruction ((instruction enclose-instruction) stream)
    (format stream "   ~a [label = \"enclose\"];~%"
  	  (gethash instruction *instruction-table*))
    (draw-instruction (code instruction) stream)
    (format stream "  ~a -> ~a [color = pink, style = dashed];~%"
  