anchor.diff:  	  (loop
           (when (evt.element)._hooked?
             (_handle-modules evt (evt.element) modules stopped-modules))
  -        (!? (| evt._stop
  -               (not (evt.bubble)))
  -            (return !)))
  +        (& (| evt._stop
  +              (not (evt.bubble)))
  +            (return)))
         (unless evt._stop
           (= evt._element init-elm)
           (_handle-modules evt nil modules stopped-modules)))))
  
positive.code: 
  (defmethod event-manager _mousedown (evt)
    (= _last-click-shift-down? (shift-down?))
    (when (== 0 evt.button)
  	(_dnd-mousedown evt))
    (_mousebutton evt "down"))
  
  (defmethod event-manager _mouseup (evt)
    (when (== 0 evt.button)
  	(_dnd-mouseup evt))
    (_mousebutton evt "up"))
  
  (finalize-class event-manager)
  
negative.code:   (adolist handlers
  	(log-events "Calling handler for ~A event/module `~A'.~%" evt.type (module.get-name))
      (!.callback evt this)
  	(when evt._stop
        (log-events "Event stopped.~%")
        (return))))
  
  (defmethod event-manager _find-handlers (evt module elm)
    (_find-handlers-of-element (_find-handlers-of-type module._handlers evt.type) elm))
  