Hi.
 
I try to set a label slot-value 'text  but I get error
that slot text is missing ?
(setf (slot-value a-label 'text) "a")