1씩증가(원)

안녕하세요.

궁금한게 있어 올립니다

(defun c:111()
(setq x 1)
(setq y 1)
(repeat 10)
(command “circle”(list x y)”1”)
(setq x(1+x))
(setq y(1+y))
)
(princ))

이리습은 원의크기를1로하고 1씩증가하는 리습인데요.
해보니 원이 제자리에서만 계속생기고 옮기면서 원이 생기지 않더라고요.
무엇이 문제인지 확인좀 부탁드릴께여.