anchor.diff:  (defgeneric gadget-client (gadget))
   
   ;;;
  -
   (defgeneric text-style-mapping (port text-style &optional character-set))
   
   (defgeneric (setf text-style-mapping)
  
positive.code: considered a single gesture. These accept result objects have no
  standardised form."))
  
  ;;; 27.3 Command Menus
  
  (defgeneric display-command-table-menu (command-table stream &key max-width
                                                        max-height n-rows n-columns x-spacing
                                                        y-spacing initial-spacing row-wise
                                                        cell-align-x cell-align-y move-cursor)
    (:documentation "Display a menu of the commands accessible in
  `command-table' to `stream'.
  
  
negative.code: (defgeneric invoke-with-local-coordinates (medium continuation x y))
  
  (defgeneric invoke-with-first-quadrant-coordinates (medium continuation x y))
  
  
  ;;; 11.1.1 Text Style Protocol and Text Style Suboptions
  
  