找错：一个画圈标注的lisp

以下是我编写的一个小程序，可不知道哪里出错了，各位帮忙看一下。

(defun c:qa(/ gd st zh) ;圈标注
(print " ")(princ "默认文字高度为")(princ g1)(princ " ")
(if (= g1 nil) (setq g1 100))
(setq gd (getreal "请输入标注文字高度："))
(if (= gd nil ) (setq gd g1))
(setq g1 gd)
(if (= s1 "") (setq s1 "1"))
(setq st (getstring "\n请输入标注文字:"))
(if (= st "") (setq st s1))
(atoi s1) (setq s1 (+ s1 1)) (itoa s1)
(setq zh (getpoint "\n请确定标注圆圈中心点："))
(command "circle" zh (* 0.8 gd))
(command "text" "j" "mc" zh gd 0 st)
(prin1)
)


运行后就出现 错误：参数类型错误： numberp: "1" 的提示。
我想，应该是 (atoi s1) (setq s1 (+ s1 1)) (itoa s1) 这行有问题。可不知道应该怎么改进。谢谢赐教啦~~~