(read-line)可以读一个字符串 但是必须要遇到换行符才停止。
有没有类似于read那种遇到空格就停 但是是读字符串的函数？

(defun 遇到空格就停 (&optional input-stream eof-error-p eof-value recursive-p)
“与read-line用法一样，但是功能不同，遇到空格就停嘛，呵呵。”
(let ((b (Read-line input-stream eof-error-p eof-value recursive-p)))
(subseq b 0 (position #\space b))))