anchor.diff:          (window-clear stream))
         (if-let ((final-translator (and destination-presentation
                                         (find-dest-translator destination-presentation
  +                                                            last-event
                                                               (event-sheet last-event)
                                                               (pointer-event-x last-event)
                                                               (pointer-event-y last-event)))))
  
positive.code:          (initial-y y)
           (last-presentation nil)
           (last-event nil))
      (flet ((find-dest-translator (presentation window x y)
               (loop for translator in translators
                  when (and (presentation-subtypep (presentation-type presentation)
                                                   (destination-type translator))
                            (test-presentation-translator translator
                                                          presentation
                                                          context-type
                                                          frame
                                                          window x y))
                  do (return-from find-dest-translator translator))
               nil)
             (erase-old ()
  
negative.code:    (feedback :reader feedback :initarg :feedback)
     (highlighting :reader highlighting :initarg :highlighting)
     (finish-on-release :reader finish-on-release :initarg :finish-on-release)
     (destination-tester :reader destination-tester :initarg :destination-tester)
     (destination-translator :reader destination-translator :initarg :destination-translator))
    (:default-initargs :finish-on-release *finish-on-release*
                       :destination-tester 'default-translator-tester))
  
  (defmethod initialize-instance :after ((obj drag-n-drop-translator)
                                         &key documentation
  