LispForum

Also works: (defmacro with-words-in-string ((word start end &aux (whites '(#\Space #\Tab #\Newline #\Rubout))) s &body body) `(do ((,end 0 (1+ ,end)) (,start 0) (,word) (len 0)) ((= ,end (1+ (length ,s)))) (if (or (= ,end (length ,s)) (find (aref ,s ,end) ',whites)) (if (> len 0) (progn (set...