[求助]怎样转换成字符串？

zxmmelly

把类型是 SYM 或者是 LIST 的数据转换成 STRING 数据，Lisp可以完成这样的转换吗？

例如：

acad   -->  "acad"

(acad)  -->   "(acad)"

byghbcx

 1、SYM数据转换成 STRING 数据用vl-symbol-name,返回包含某符号名的字符串
(vl-symbol-name  symbol)

2、LIST 的数据转换成 STRING 数据,不知道怎么求,不过是否可以编一个函数求.

if

(vl-symbol-name 'acad)->"acad";;;只适合符号

(defun tt (lst / f s)
(setq f (open "x" "w"))
(princ lst f)
(close f)
(setq f (open "x" "r")
      s (read-line f)
)
(close f)
s
)

(tt 'acad)->"acad"        适合任何对象
(tt '(acad))->"(acad)"

zxmmelly

我是要从文件里读取数据，对数据进行操作，再写回文件里的，读出的数据经过操作后就变成了 SYM 和 LIST 了，我一直想用 WRITE-LINE 写回去的，忘记了 PRINC 也可以写文件，呵呵，多谢 if 的解答。