与read-from-string clisp相反

Question

我想定义一个与下面相反的函数to-string。

> (read-from-string "(foo a b)")
(FOO A B) ;

Answer 1

函数write-to-string and prin1-to-string做你想做的事：

> (read-from-string "(foo \"Hi\" 17)")
(FOO "Hi" 17) ;

> (prin1-to-string '(FOO "Hi" 17))
"(FOO \"Hi\" 17)"
> (write-to-string '(FOO "Hi" 17))
"(FOO \"Hi\" 17)"

函数write-to-string还包含允许您调整结果的关键字参数：

> (write-to-string '(FOO "Hi" 17) :case :downcase)
"(foo \"Hi\" 17)"

Answer 2

这似乎有效

(with-output-to-string (s)
  (princ '(1 2 3) s))