anchor.diff:                           :highlighting #',highlighting
                            :destination-type ',real-dest-type
                            :destination-translator #',(make-translator-fun arglist body)
  +                         :destination-tester ,(if (symbolp destination-tester)
  +                                                  `',destination-tester
  +                                                  `#',(make-translator-fun (car destination-tester)
  +                                                                           (cdr destination-tester)))
                            :translator-class drag-n-drop-translator)
                (,object presentation context-type frame event window x y)
              (declare (ignore ,object))
  
positive.code:         (window-clear stream))
        (if-let ((final-translator (and destination-presentation
                                        (find-dest-translator destination-presentation
                                                              (event-sheet last-event)
                                                              (pointer-event-x last-event)
                                                              (pointer-event-y last-event)))))
  
negative.code:                                   :highlight nil
                                    :multiple-window t)
            (:presentation (&key presentation window event x y)
              (let ((dest-translator (find-dest-translator presentation event window x y)))
                (erase-old)
                (if dest-translator
                    (setf last-event event
  