autocad - Autocad でポイントとして使用される autolisp リスト

Question

私はautocadのLISPが初めてです。以下に示すコードは、傾斜した線で (半径 1 の) 円を描画します。私が理解していないのは、「a」の値が1ずつ増加しないことです.autocadで描かれた円の中心は、(1,1)、(1.7071,1.7071)、(3,3)、(3.7071 ,3.7071) , (5,5) ... 誰かお願いします。理由を説明？

(defun c:wwq ()
    (setq a 0)
    (while (< a 10)
        (setq a (+ 1 a))   
        (setq pt1 (list a a ) ) 
        (command "circle" pt1 1 )    
    )
)