anchor.diff:    components."))
   
   
  +(defgeneric update-component (simulator object object-id)
  +  (:documentation "TODO"))
  +
  +
   (defgeneric assign-path (object simulator)
     (:documentation "TODO"))
   
  
positive.code: 				     :args (list in obj))))))))
  
  
  (defmethod components-list ((sim simulator))
    (error "specialize me!"))
  
  
  (defmethod assign-path ((obj object) (sim simulator))
  
negative.code: 
  
  (defclass simulator (actor)
    ((components
      :initform (make-hash-table)
      :reader components-of
      :type hash-table)))
  
  
  (defclass port (with-id)
  