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