anchor.diff:      (| e._send-natively?
          (e._stop-original))
       ,(when *log-events?*
  -       `(format t "~A event ~A sent natively.~%" type (? evt._send-natively? "" "NOT "))))
  +       `(format t "~A event ~Asent natively.~%" type (? evt._send-natively? "" "NOT "))))
     t)
   
   ;;;; DRAG'N DROP EVENT GENERATION
  
positive.code: 
  (defmethod _event-manager _handle-modules (evt elm modules stopped-modules)
    (adolist modules
  	(evt._reset-flags)
      (unless (| !._killed? (member ! (queue-list stopped-modules) :test #'eq))
        (_call-handlers evt ! (_find-handlers evt ! elm))
  
negative.code: 	  (when (_sensible-position? x y)
  	    (_add-moved-distance-to-event evt)
          (= this.x x
             this.y y)))))
  
  ;;;; EVENT DISPATCH
  
  