lisp程序 不知道为什么不行，有懂的老铁吗？

瑞士卷

defun c:ceshi(/ta tr LL yy th)
(setq ta(getpoint"\n请输入左下角点："))
(setq tr (getint"\n请输入弹簧直径："))
(setq LL (getreal "\n 请输入弹黄自由长度：")(setq yy (getreal"\n请输入弹黄预压量："))
(setq th(-LL yy))  ；程序里有（-LL yy）这句一定load失败，删除就load正常
(princ (type th))
(princ(type ta))
(princ(type tr))
(princ(type LL))
(princ(type yy))
(prin1)