anchor.diff:    nil)
   
   
  +(defclass in-port (with-id)
  +  nil)
  +
  +
  +(defclass out-port (with-id)
  +  nil)
  +
  +
   (defclass actor (object)
  -  ((events
  -    :initform (list)
  +  ((in-ports
  +    :initarg :in-ports
  +    :initform (list)
  +    :accessor in-ports-of
  +    :type list)
  +   (out-ports
  +    :initarg :out-ports
  +    :initform (list)
  +    :accessor out-ports-of
  +    :type list)
  +   (events
       :accessor events-of
  +    :initform (list)
       :type list)))
   
   
  
positive.code: 
  (defparameter *out->in* (make-hash-table))
  
  (defparameter *in->obj* (make-hash-table))
  
  
  
  
negative.code: 
  
  (deftype time-type ()
    '(integer 0))
  
  
  
  