anchor.diff:  
   (defun fresh-id ()
     (incf *fresh-id*))
  +
  +
  +(defmethod i/o-connect ((out out-port) (in in-port))
  +  (setf (gethash (id-of out) *out->in*)
  +	in))
  +
  +
  +(defmethod i/o-connect ((in in-port) (act actor))
  +  (setf (gethash (id-of in) *in->act*)
  +	act))
   
   
   (defmethod components-list ((sim simulator))
  
positive.code: 
  (defmethod schedule ((act actor) (fn function)
  		     &key (at 0) (relative-p t) (id 0 id-p))
    (let ((abs-time (+ at (if relative-p
  			    (gettime)
  			    0))))
  
negative.code: 
  (defparameter *out->in* (make-hash-table))
  
  (defparameter *in->act* (make-hash-table))
  
  
  
  