新手求助，下拉选单提取字符串问题

骑着蜗牛去把妹

高手们帮忙看下这个LISP，提取字符串出错了，能不能指点下我jdtl:dialog{label="机电图例";
           :boxed_row{:popup_list{label="第一列";key=jd1;edit_width=20;list="防溅水插座\n排风、烟机插座";}}
           :boxed_row{:popup_list{label="第二列";key=jd2;edit_width=20;list="防溅水插座\n排风、烟机插座";}}
           spacer_1;
           :row{fixed_width=true; alignment=centered;
           :button{label="插入";key="jd_ok";width=8;}
           :spacer{width=2;}
           cancel_button;}}
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
(defun c:jdtl()
  (setq feng_id (load_dialog "feng"))
  (new_dialog "jdtl" feng_id)
  (action_tile "jd1" "(setq jd1 $value)")
  (action_tile "jd2" "(setq jd2 $value)")
  (action_tile "jd_ok" "(done_dialog 1)")
  (setq dd (start_dialog))
  (cond (= dd 1)(dtl1))
  (prin1))
(defun jdtl1()
  (setq pa (getpoint "\npa:"))
  (setq pb (polar pa (* pi 1.5) 15))
  (setq pc (polar pb (* pi 1.5) 8))
  (command "insert" "*机电图例" pa "1" "" "0")
  (command "insert" jd1 pb "1" "" "0")
  (command "insert" jd2 pc "1" "" "0")
  (prin1))