anchor.diff:            `(,(make-presentation-translator-menu-item :translator translator
                                                        :presentation presentation
                                                        :context context)
  -             :documentation ,(with-output-to-string (stream)
  -                               (document-presentation-translator
  -                                translator
  -                                presentation
  -                                input-context
  -                                frame nil window x y
  -                                :stream stream)))
  +            :documentation ,(with-output-to-string (stream)
  +                              (document-presentation-translator
  +                               translator
  +                               presentation
  +                               input-context
  +                               frame nil window x y
  +                               :stream stream)))
             items)))
      presentation input-context frame window x y :for-menu for-menu)
     (unless items
  
positive.code:                                          window
                                           x y
                                           &key (stream *standard-output*)
                                           (documentation-type :normal))
    (funcall (if (eq documentation-type :normal)
                 (translator-documentation translator)
                 (pointer-documentation translator))
  
negative.code: 
  (defmacro define-presentation-action
      (name (from-type to-type command-table &key
                                               (gesture :select)
                                               (tester 'default-translator-tester)
                                               (documentation nil documentationp)
                                               (pointer-documentation nil pointer-documentation-p)
                                               (menu t)
                                               (priority 0))
       arglist
       &body body)
    (let* ((real-from-type (expand-presentation-type-abbreviation from-type))
           (real-to-type (expand-presentation-type-abbreviation to-type)))
      `(add-translator
        (presentation-translators (find-command-table ',command-table))
        (make-instance 'presentation-action
                       :name ',name
                       :from-type ',real-from-type
                       :to-type ',real-to-type
                       :gesture ,(if (eq gesture t)
                                     t
                                     `(gethash ',gesture *gesture-names*))
                       :tester ,(if (symbolp tester)
                                    `',tester
                                    `#',(make-translator-fun (car tester)
                                                             (cdr tester)))
                       :tester-definitive t
                       :documentation #',(make-documentation-fun
                                          (if documentationp
                                              documentation
                                              (command-name-from-symbol name)))
                       ,@(when pointer-documentation-p
                           `(:pointer-documentation
                             #',(make-documentation-fun pointer-documentation)))
                       :menu ',menu
                       :priority ,priority
                       :translator-function #',(make-translator-fun arglist body)))))
  
  (defmacro define-presentation-to-command-translator
      (name (from-type command-name command-table
             &key
               (gesture :select)
               (tester 'default-translator-tester)
               (documentation nil documentationp)
               (pointer-documentation (command-name-from-symbol command-name))
               (menu t)
               (priority 0)
               (echo t))
       arglist
       &body body)
    (let ((command-args (gensym "COMMAND-ARGS")))
  