anchor.diff:      :documentation "Unique id")))
   
   
  -(let ((id-counter 0))
  -
  -  (defmethod initialize-instance :after ((obj identifiable) &key)
  -    (setf (id-of obj)
  -	  (incf id-counter))))
  -
  -
  -
  -
   (defclass event (identifiable)
     ((time
       :initarg :time
  
positive.code:     :initform (error ":action missing")
      :accessor action-of
      :type function)))
  
  
  
  
negative.code:     :type list)))
  
  
  (let ((id-counter 0))
  
      (defmethod initialize-instance :after ((obj object) &key)
        (setf (id-of obj)
  	    (incf id-counter))
        (dolist (ss (subscribable-states obj))
  	(setf (gethash ss (subscriptions-of obj))
  	      (list)))))
  
  
  (defmethod imminent-event-time ((obj object))
  