与从字符串读取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))