[已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了??

請各位大大幫我看一下程式碼哪裡出錯了~~~

目前小弟剛學LISP，
在練習的時候寫了一個程式一直找不到BUG和解決方法  

程式功能為:
一個可以輸入不限定數量的點(pt-list) 然後由內建的LINE指令連接所有點，如下面程式碼


於CAD輸入:  (createPP2 (list '(0 0 0) '(10 0 0) '(10 10 0)))
於CAD顯示: nil  
然後就沒有東西了    



程式碼

代碼:


;program2
(defun createPP2(pt-list / pt)

  (command "._line")
  (command

    (foreach pt pt-list
       '(pt)

     )
    )
  )


也許你要的是

代碼:

(defun createPP2 (pt-list / pt)
  (command "._line")
  (foreach pt pt-list
    (command pt)
    )
  )

謝謝樓上大大~
這就是我要的