anchor.diff:    (apply (fn-of ev)
   	 (append (list (synchronize sim (time-of ev)))
   		 (when (slot-boundp ev 'args)
  -		   (args-of ev))))))
  +		   (args-of ev)))))
   
   
   (defmethod evolving ((sce scenario))
  
positive.code:     (when in
        (multiple-value-bind (dest in-unlock-event)
  	  (access-port sim in)
  	(list out-unlock-event in-unlock-event
  	      (make-instance 'event
  			     :owner dest
  			     :time (clock-of sim)
  			     :fn #'handle-input
  			     :args (list in obj))))
  
  
  (defmethod add-child ((sim simulator) (obj object))
  
negative.code:   nil)
  
  
  (defmethod unlock-port ((in in-port))
    "TODO"
    nil)
  
  
  (defmethod unlock-port ((out out-port))
    "TODO"
    nil)
  
  