anchor.diff:                :menu t
                 :documentation "Show Class Subclasses"
                 :pointer-documentation "Show Class Subclasses")
  -  (presentation)
  -  (list (presentation-object presentation)))
  +  (object)
  +  (list object))
   
   
   (define-presentation-to-command-translator com-show-class-superclasses-translator
     (class-name com-show-class-superclasses lisp-commands
                 :menu t
  -              :tester ((presentation)
  -                       (not (eq t (presentation-object presentation))))
  +              :tester ((object) (not (eq t object)))
                 :documentation "Show Class Superclasses"
                 :pointer-documentation "Show Class Superclasses")
  -  (presentation)
  -  (list (presentation-object presentation)))
  +  (object)
  +  (list object))
   
   
   (define-presentation-to-command-translator com-show-class-generic-functions-translator
  
positive.code:               :menu t
                :documentation "Show Class Slots"
                :pointer-documentation "Show Class Slots")
    (presentation)
    (list (presentation-object presentation)))
  
  
  ;;; CLOS introspection commands
  
negative.code:               :menu t
                :documentation "Show Class Generic Functions"
                :pointer-documentation "Show Class Generic Functions")
    (object)
    (list object))
  
  
  (define-presentation-to-command-translator com-show-class-slots-translator
  