anchor.diff:                   :x x
                    :y y)
           (values nil nil)))))
  +
  +(defun test-drag-and-drop
  +    (translator presentation context-type frame event window x y)
  +  (let ((function (destination-tester translator)))
  +    (or (null function)
  +        (funcall function *dragged-object*
  +                 :presentation *dragged-presentation*
  +                 :destination-object (presentation-object presentation)
  +                 :destination-presentation presentation
  +                 :context-type context-type
  +                 :frame frame :event event :window window :x x :y y))))
   
   (defun document-drag-n-drop
       (translator presentation context-type frame event window x y)
  
positive.code:                                                ,name-string
                                                 ,drag-string)
                                             stream))))))
      (with-keywords-removed (args (:feedback :highlighting))
        (with-gensyms (object)
          `(define-presentation-translator ,name
               (,from-type ,to-type ,command-table
  
negative.code:                          :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))
  