Get a struct's field names

I want to use a struct's field names for metaprogramming.

For example:

(struct pt [x y])
(struct-fields pt) ;; -> '(x y)