anchor.diff:    (adolist handlers
   	(log-events "Calling handler for ~A event/module `~A'.~%" evt.type (module.get-name))
       (!.callback evt this)
  -	(awhen evt._stop
  +	(when evt._stop
         (log-events "Event stopped.~%")
  -      (return !))))
  +      (return))))
   
   (defmethod event-manager _find-handlers (evt module elm)
     (_find-handlers-of-element (_find-handlers-of-type module._handlers evt.type) elm))
  
positive.code: 	(evt._reset-flags)
      (unless (| !._killed? (member ! (queue-list stopped-modules) :test #'eq))
        (_call-handlers evt ! (_find-handlers evt ! elm))
        (!? evt._stop
            (return !))
  	  (when evt._stop-bubbling
  		(enqueue stopped-modules !)))))
  
  
negative.code: 	  (loop
          (when (evt.element)._hooked?
            (_handle-modules evt (evt.element) modules stopped-modules))
          (& (| evt._stop
                (not (evt.bubble)))
              (return)))
        (unless evt._stop
          (= evt._element init-elm)
          (_handle-modules evt nil modules stopped-modules)))))
  