输入的列表有缺陷 autolisp 错在哪里？

(defun c:lsp_41 ()
(setq old_hh (getvar "textsize"))
(setq str_hh (strcat "\n输入新字高<" (rtos old_hh 2) ">:"))
(setq hh (getdist str_hh))
(if (null hh)
(setq hh old_hh)
)
(setq ss (ssget))
(setq i 0)
(setq nn (sslength ss))
(repeat nn
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (or (= sstyp "TEXT") (= sstyp "MTEXT"))
(progn
(setq old_hh (assoc 40 ssdata))
(setq new_hh (cons 40 hh))
(setq ssdata (subst new_hh old_hh ssdata))
(entmod ssdata)
)
)
(setq i (1+ i))
)
(prin1)
)
;;;最后一个括号不是英文输入法输入的