Посимвольно обходим строку

(defparameter *my-string* (string "Groucho Marx"))
; *MY-STRING*
(map 'string #'(lambda (c) (print c)) *my-string*)
; #\G 
; #\r 
; #\o 
; #\u 
; #\c 
; #\h 
; #\o 
; #\Space 
; #\M 
; #\a 
; #\r 
; #\x 
; "Groucho Marx"