怎样将字符转化为符号

sandy2002

比如我有一个字符串 "acad-var" ，要怎样才能把它转化成一符号并给它赋值呢？

(set "acad-var" 1)将出错

yshf

(set (read "acad-var") 1)

;Command: (set (read "acad-var") 1)
;1

;Command: !acad-var
;1

sandy2002

非常感谢，帮了我一个大忙