(let ((generic-name (intern (concatenate 'string
"SLOT-" (string x) "-USING-CLASS"))))
`(defmethod ,generic-name
((class virtual-slots-class) (object virtual-slots-object)
(slotd effective-virtual-slot-definition))
(let ((generic-name (intern (concatenate 'string
"SLOT-" (string x) "-USING-CLASS"))))
`(defmethod ,generic-name
((class virtual-slots-class) (object virtual-slots-object)
(slotd effective-virtual-slot-definition))