动态更新对话框列表内容是出现死机现象，求高手指点！

qxjlax

在使用如下代码实现通过列表1（key="gxzl"）内容改变来动态更新列表2（key="gdzl"）时对话框出现死机现象
(action_tile "gxlx" "(gxlxpd $value)  ")
(defun gxlxpd (gxlx)
  (setq gxlx (atoi gxlx))
  (cond
    ((<= gxlx 2)
;;;     (progn (start_list "gdzl")
;;;       (mapcar 'add_list '("检修(窨)井" "\n篦子1"))
;;;       (end_list)
;;;       )
     (progn
     (show_list "gdzl" '("检修(窨)井" "\n篦子1"))
;;;;;;      (mode_tile "gdzl" 0)
     (set_tile "gdzl" 0)
     )
    )
    ((= gxlx 3)
     (progn
     (show_list "gdzl" '("检修(阀门)井" "\n水表井"))
;;;     (mode_tile "gdzl" 0)
       (set_tile "gdzl" 0)
     )
    )
    ((or (= gxlx 4)
         (= gxlx 15))
     (progn
         (show_list "gdzl" '("检修(阀门)井" "\n水表井"))
;;;       (mode_tile "gdzl" 0)
         (set_tile "gdzl" 0)
     )
     )
    )
  )



；；；对话框部分代码

: popup_list {
            label = "管线类型：";           
            key = "gxlx";
            list = "雨水\n污水\n合流\n给水\n燃气\n通讯\n有视\n广播\n通讯长输\n供电\n路灯\n交通信号\n广告电车\n输电长输\n热力\n工业";
            edit_width = 10;
            fixed_width = true;
            height = 0;
        }
        : spacer {
        }
        : spacer {
        }
        : popup_list {
            label = "管点种类：";
            value = "检修（窨）井";
            key = "gdzl";
            list = "检修（窨）井\n篦子\n检修(阀门)井\n水表井\n凝水缸\n人孔\n手孔\n接线箱";
            edit_width = 14;
            width = 0;
            height = 0;
            fixed_height = false;
        }