anchor.diff:      (when in
         (multiple-value-bind (dest in-unlock-event)
   	  (access-port sim in)
  +	(remove-child sim obj)
   	(list out-unlock-event in-unlock-event
   	      (make-instance 'event
   			     :owner dest
   			     :time (clock-of sim)
   			     :fn #'handle-input
  -			     :args (list in obj))))
  +			     :args (list in obj)))))))
   
   
   (defmethod add-child ((sim simulator) (obj object))
  
positive.code: ;; OF THE POSSIBILITY OF SUCH DAMAGE.
  
  
  (declaim (optimize debug safety (speed 0)))
  ;(declaim (optimize (debug 0) (safety 0) speed))
  
  
  ;; OVERVIEW
  
negative.code:   (apply (fn-of ev)
  	 (append (list (synchronize sim (time-of ev)))
  		 (when (slot-boundp ev 'args)
  		   (args-of ev)))))
  
  
  (defmethod evolving ((sce scenario))
  