anchor.diff:    (:documentation "TODO"))
   
   
  +(defgeneric add-event (actor event)
  +  (:documentation "TODO"))
  +
   (defgeneric path (object)
     (:documentation "TODO"))
   
  
positive.code: 	 (owner-path-of ev)))
  
  
  ;; TODO fixme
  (defmethod schedule ((events list) delay (fn function) (act actor)
  		     &rest args)
    (if (< delay 0)
        (error 'error-invalid)
  
negative.code: 			       (if (null args)
  				   nil
  				   (list :args args))))))
  	(values (the list (sort-events (cons ev all-events)))
  		(the actor (add-event act ev))
  		(the event ev)))))
  
  
  (defmethod add-event ((act actor) (ev event))
    (setf (events-of act)
  	(sort-events (cons ev (events-of act)))))
  
  
  (defmethod evolve ((act actor) (evs list))
  