anchor.diff:      :type voice-in-port)
      (voice-out
       :accessor voice-out-of
  -    :type voice-out-port)))
  +    :type voice-out-port)
  +   (reply-timeout
  +    :accessor reply-timeout-of
  +    :type event)))
   
   
   (defclass can (simulator)
  
positive.code: 				 phrases))))
  
  
  (defmethod start-talking ((p person))
    (make-instance 'event
  		 :owner p
  		 :time (clock-of p)
  		 :fn #'output
  		 :args (list (voice-out-of p)
  			     (random-phrase))))
  
  
  (defmethod port-ready ((p person) (voice-out voice-out-port))
    (list (make-instance 'event
  		       :owner p
  		       :time (clock-of p)
  		       :fn #'start-talking)))
  
  
  (defmethod handle-input ((p person) (in voice-in-port)
  			 (vo voice))
    (call-next-method)
    (remove-child p vo)
    nil)
  
  
  
negative.code: 
  (defmethod lock-port ((p person) (voice-out voice-out-port)
  		      (vo voice))
    (list (make-instance 'event
  		       :owner p
  		       :time (+ (clock-of p)
  