関数 define-category

(define-category ?a "foo")
  error--> Category `a' is already defined