Как правильно организовать заполнение popup_list?

Известный книжный код с этими моими данными  (печать которых специально поставлена) не проходит: список не заполняется, а при зкрытии окна появляется сообщение

error: bad argument type: fixnump: nil

Даже один элемент не добавляется к списку. Это при том, что тип fde1 и list_fde -  LIST.
Нужно, чтобы в "p1" записывались 1,2,3, в "p2" - b1,t1 b r3 в "p3" - Ширина...,Глубина..., Диаметр..., в "p4" - 15.0, 12.0, 22.0. Но не проходит даже простое заполнение - всегда эта же ошибка.

> novic
Упс. Так ты не написал код, который выполняется при закрытии окна.

> Александр Ривилис
(itoa )применяется к i.
Код для OK существует и работает, но смысловой нагрузки пока не несет:

(action_tile "accept"
  (strcat
     "(alert\"Hi\")"
     "(done_dialog))"
  );strcat
);action-tile accept
       (start_dialog)
       (unload_dialog dcl_id)

Alert появляется, после нажатия на OK в его окне в командной строке появляется описанная ошибка.
Проблема в том, что цикл выполняется, а popup_list не заполняются. (Start_list "p1") как и "p2" и пр. возвращают nil, а нет "список, который будет редактироваться".

> Н.Н.Полещук
Оставляю счетчики и циклы до лучших времен:

(if (setq fde1 (nth 1 list_param))
       (print fde1)
            (progn
       (start_list "p2")
         (mapcar 'add_list fde1)
         (print start_list)
       (end_list)
        );progn
  );if

И даже это с моими данными не работает. Список не заполняется и не выводится на экран. Ошибка та же.

Command: !list_param
(("1" "2" "3" "4") ("b1" "t1" "r3" "ob")
("Ширина паза" "Глубина паза" "Радиус вала" "Отладочный бессмысленный")
("12.23" "12.0" "22.0" "33.0"))

Command: !fde1
("b1" "t1" "r3" "ob")

Тип

Command: (type fde1)
LIST

Как просмотреть созданный start_list?

И ещё один момент:

(action_tile "accept"
  (strcat
     "(alert\"Hi\")"
     "(done_dialog))"
  );strcat
);action-tile accept
       (start_dialog)
       (unload_dialog dcl_id)

Если не ошибаюсь, в action_tile должно присутствовать единственное lisp-выражение. Как-то так:

(action_tile "accept" "(progn (alert\"Hi\")(done_dialog))")
);

> novic

Command: (print start_list)
#<SUBR @096af8f8 START_LIST> 

Я так понимаю, что цель не в этом? start_list - это имя встроенной функции и смысла в ее печати я не вижу никакого.

> Пастух

> Н.Н.Полещук
Без progn можно обойтись (хотя я бы поставил). Есть нюанс, что если в action_tile несколько скобочных выражений, то они не должны разделяться пробелами (возможно в последних версиях это уже не обязательное условие) - иначе выполнится только первое выражение.

> novic

(start_list "p2")

возвращает

"p2"

- не очень это интересно. Проверить можно c помощью функций печати, например:

(princ (start "p2"))

> Александр Ривилис
Сейчас пробелы в

action_tile

не препятствуют работе.

> Александр Ривилис
Такое тоже было получено и мало обрадовало.
Смысл в том, чтобы просмотреть "возвращаемое значение - список, который будет редактироваться" (с.357), то есть попытка действовать по инструкции (как я ее понимаю).

Пытаюсь изменить содержимое списка popup_list, отредактировав его в edit_box c key "edit" в этом же сеансе с помощью add_list. Не проходит. Кроме того, не понятно, как add_list определяет, нужно добавить элемент (строку) к списку или изменить его. Или нужно изменять список list_param и как-то перечитывать окно? Словом, HELP, если можно.

(action_tile "p2"
   (strcat
 "(set_tile \"edit\" (nth (atoi $value) (nth 1 list_param)))"
   " (add_list "p2" (get_tile \"edit\"))" ); strcat p2
);action_tile "p2"

> Александр Ривилис

(start_list "pop" 1 2)
(add_list "New Value")
(end_list)

произведет замену строки N2 (третья сверху).