anchor.diff:  (defun find-innermost-presentation-context
       (input-context window x y
        &key (top-record (stream-output-history window))
  -     (frame *application-frame*)
  -     event
  -     (modifier-state (window-modifier-state window))
  -     button)
  +       (frame *application-frame*)
  +       event
  +       (modifier-state (window-modifier-state window))
  +       button)
     (find-innermost-presentation-match input-context
                                        top-record
                                        frame
  
positive.code:           `(,(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)))
            items)))
     presentation input-context frame window x y :for-menu for-menu)
    (unless items
  
negative.code:                                          window
                                           x y
                                           &key (stream *standard-output*)
                                             (documentation-type :normal))
    (funcall (if (eq documentation-type :normal)
                 (translator-documentation translator)
                 (pointer-documentation translator))
  