edit_box 를 통해 리스트에 입력된 값을 추가하고 싶습니다

dcl 창을 실행시켜 edit_box 에 원하는 값을 입력하고 추가 버튼을 누르면 lisp파일 에서 hpnumber 변수
상에는 값이 추가가되는데 dcl창이 그냥 꺼져버리네요 .. 
추가해야할 항목이 많을것 같은데.. 도움 부탁드려 봅니다 .. ^^;   

(혹시몰라 dcl 파일은 첨부해 뒀습니다.)
(아 그리고 이 리습은 dcl창에 있는 리스트 중에 하나를 선택하여 확인을 누르면 도면에 한점을 선택해
TEXT로 나타내 주는 용도로 만들었습니다.. 기존 리스트에 있는것들은 TEXT로 그려지는데
리스트 항목에 추가를 못하겠네요 ,ㅜㅜ)

(defun c:hp()
  (setq hpnumber (list “01044445555”
         “01055556666”
         “01066667777”
         “01077778888”
         “01088889999”))
  (setq dcl_id (load_dialog “C:/Users/z1401671/Desktop/listadd.dcl”))
  (if (not (new_dialog “datalist” dcl_id))
    (progn
      (alert “nononono”)(exit))
    )
  (start_list “hpnumber” 3)
  (mapcar ‘add_list hpnumber)
  (end_list)

  (action_tile “accept” “(setq ddiag 2)(saveVars)(done_dialog)”)
  (action_tile “cancel” “(setq ddiag 1)(done_dialog)”)
  (action_tile “add” “(setq ddiag 3)(saveVars1)(done_dialog)”)
  (start_dialog)
  (unload_dialog dcl_id)

  (if (= ddiag 3)
    (progn
      (setq hpnumber (cons number hpnumber))
      ))

 (if (= ddiag 2)
   (progn
     (setq point (getpoint “한 점 선택”))
     (command “text” point 100 0 list2)
     ))
  (if (= ddiag 1)
    (princ “n hbb작도 취소”)
    )
  (princ)
 
  )

  (defun saveVars()
   
    (setq step (atoi (get_tile “hpnumber”)))
   
    (setq list2 (nth step hpnumber))
    )

   (defun saveVars1()
     (setq number (get_tile “hpadd”))
)