Phrase reversals: Difference between revisions
m
→{{header|Common Lisp}}
Line 578:
<lang lisp>
(defun split-string (str)
"Split a string into space separated words including spaces"
(do* ((lst nil)
(i (position-if #'alphanumericp str) (position-if #'alphanumericp str :start j))
| |||