anchor.diff:                                 (presentation-translators table))))
             (flet ((get-translators (super)
                      (loop
  -                      for translator in (gethash (type-name super) translator-map)
  -                      if (stupid-subtypep (to-type translator) to-type)
  -                      do (vector-push-extend (cons translator table-counter)
  -                                             translator-vector))))
  +                     for translator in (gethash (type-name super) translator-map)
  +                     if (stupid-subtypep (to-type translator) to-type)
  +                       do (vector-push-extend (cons translator table-counter)
  +                                              translator-vector))))
               (map-over-ptype-superclasses #'get-translators from-name)))
           (incf table-counter))
         (let ((from-super-names nil))
  
positive.code:            (or (eq gesture t)
                 for-menu
                 (loop
                    with modifiers = (if event
                                         (event-modifier-state event)
                                         modifier-state)
                    for g in gesture
                    thereis (and (eql modifiers (caddr g))
                                 (or (and button (eql button (cadr g)))
                                     (and (null button)
                                          (or (null event)
                                              (eql (pointer-event-button
                                                    event)
                                                   (cadr g))))))))))
      (and (match-gesture (gesture translator) event modifier-state)
           (or (null (decode-parameters from-type))
               (presentation-typep (presentation-object presentation) from-type))
  
negative.code:                                          window
                                           x y
                                           &key (stream *standard-output*)
                                             (documentation-type :normal))
    (funcall (if (eq documentation-type :normal)
                 (translator-documentation translator)
                 (pointer-documentation translator))
  