使用拆分序列库

拆分序列库提供了一个函数 split-sequence，它允许拆分序列的元素

(split-sequence:split-sequence #\Space "John Doe II")
;; => ("John" "Doe" "II")