anchor.diff:  	       :y y)
       (values object (or ptype context-type) options)))
   
  +(defmethod call-presentation-translator
  +    ((translator presentation-action) presentation context-type
  +     frame event window x y)
  +  (funcall (translator-function translator)
  +	   (presentation-object presentation)
  +	   :presentation presentation
  +	   :context-type context-type
  +	   :frame frame
  +	   :event event
  +	   :window window
  +	   :x x
  +	   :y y)
  +  (values nil nil nil))
   
   (defun test-presentation-translator
       (translator presentation context-type frame window x y
  
positive.code:       (push translator
  	    (gethash (from-type translator) simple-type-translators)))))
  
  (defmacro define-presentation-translator
      (name (from-type to-type command-table &key
  	   (gesture :select)
  
negative.code: 		     #'car
  		     (sort translator-vector #'translator-lessp))))))))
  
  (defgeneric call-presentation-translator
      (translator presentation context-type frame event window x y))
  
  (defmethod call-presentation-translator
      ((translator presentation-translator) presentation context-type
       frame event window x y)
    (multiple-value-bind (object ptype options)
        (funcall (translator-function translator)
  	       (presentation-object presentation)
  