Получить/заменить определённый символ в строке

(defparameter *my-string* (string "Groucho Marx"))
; *MY-STRING*
(char *my-string* 11)
; #\x
(char *my-string* 7)
; #\Space
(char *my-string* 6)
; #\o
(setf (char *my-string* 6) #\y)
; #\y
*my-string*
; "Grouchy Marx"