gistfile1.txt

#lang racket

(provide (all-defined-out))

(module sub racket
  (provide key)
  (define key (generate-member-key)))
(require 'sub
         (for-syntax syntax/parse))

(define-syntax (defclss stx)
  (syntax-parse stx
    [(_ name x)
     (define f (gensym))
     #`(begin
         (define-member-name #,f key)
         (define name
           (class object%
             (super-new)
             (define/public (#,f) 5)
             (define/public (x) 6))))]))

(defclss bob f)
(send (new bob) f)
(define-member-name bill key)
(send (new bob) bill)