读Lisp的一个字符串对象

Question

我熟悉基本的模板从文件中收集Lisp的对象，如：

(with-open-file (stream "filename.lisp") 
    (loop for object = (read stream nil 'eof) 
      until (eq object 'eof) 
      collect object)) 

但我不知道如何翻译成聚集到这个对象一个字符串，例如使用read-from-string。你是否必须跟踪你在字符串中遗漏的索引？另外，如何避免在输入中与eof或任何其他合法的Lisp对象（如nil或t）发生名称冲突？

Answer 1

您可以使用with-input-from-string从字符串读取。

为防止与eof符号发生冲突，可以使用动态创建的未插入符号或其他对象。

(with-input-from-string (stream "this is a (list of 3 things)") 
    (loop with eof-marker = '#:eof 
     for object = (read stream nil eof-marker) 
     until (eq object eof-marker) 
     collect object))