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