;; in DEFCLASS MY-CLASS, the slot specification (MY-LOCAL-SLOT-MACRO
;; MY-SLOT) is invalid; the probable intended meaning may be achieved by specifiying
;; (MY-LOCAL-SLOT-MACRO :INITFORM MY-SLOT) instead.
(macrolet ((my-local-slot-macro (name)
             `(,name :initarg ,name
                     :accessor ,(intern
                                 (format nil "MY-CLASS-~A" (symbol-name name))))))
  (defclass my-class ()
    ((my-local-slot-macro my-slot))))