循环遍历字符串中的字符,Common Lisp

Ale*_*ura 9 string common-lisp

我如何循环播放Common-lisp中的文本字符串中的字符?

这是我想要做的,但在Ruby中:

string = "bacon"

string.each_char do |c|

    putc c

end
Run Code Online (Sandbox Code Playgroud)

hua*_*uan 24

(map nil #'princ "bacon")
Run Code Online (Sandbox Code Playgroud)

要么

(loop for c across "bacon" do (princ c))
Run Code Online (Sandbox Code Playgroud)