0. #lang racket/base
1.  
2. (require (for-syntax racket/base syntax/parse racket/syntax))
3.  
4. (define-syntax (define-datum-literal-set stx)
5.   (syntax-parse stx
6.    [(_ cls-name:id (lit*:id ...))
7.     #:with set-name (format-id stx "~a-set" (syntax-e #'cls-name))
8.     #'(begin-for-syntax
9.       (define-literal-set set-name
10.         #:datum-literals (lit* ...)
11.         ())
12.       (define-syntax-class cls-name
13.         #:literal-sets ([set-name])
14.         (pattern (~or lit* ...)))) ]))
15.  
16. (define-datum-literal-set var-type
17.   (string timer float int32 uint64 boolean symbol point vector quat bound-frame))
18.  
19. (define-syntax (test stx)
20.   (syntax-parse stx
21.    [(_ a:var-type)
22.     #''a]))
23.  
24. (test string)

=>