anchor.diff:    (:documentation "Connect src to dest."))
   
   
  -(defgeneric i/o-connected-p (src dst)
  -  (:documentation "Return t if src is connected to dst, nil
  -  otherwise."))
  -
  -
  -(defgeneric i/o-disconnect (src dst)
  -  (:documentation "Reverse the effect of i/o-connect."))
  +(defgeneric i/o-connected (src)
  +  (:documentation "Return values: connected object and connected-p
  +  boolean."))
  +
  +
  +(defgeneric i/o-disconnect (src)
  +  (:documentation "Disconnect src."))
   
   
   
  
positive.code:     :type list)))
  
  
  
  ;; PARAMETERS
  
  
negative.code: (defparameter *clock* 0)
  
  (defparameter *out->in* (make-hash-table))
  
  
  
  