Trošku som to spojazdnil, len neviem získať hodnotu vyberu "vybrate_ukoncenia_schodnice". Vracia mi hodnotu "l".

Namiesto a, b, c, d e, dám presné názvy. Písal som to kôli zjednodušeniu:

(defun C:schody (/)

...

(setq ID_vyber_ukoncenia_schodnice (list "Schodnica nad stupnom" "Schodnica v urovni stupna"))(start_list "ID_vyber_ukoncenia_schodnice" 3) ;;; neviem na čo služi to číslo 3 asi to neoznačuje počet argumentov v liste...
(mapcar 'add_list ID_vyber_ukoncenia_schodnice)
(end_list)

...

)

(defun vypocitaj (/)

...

(setq vybrate_ukoncenia_schodnice (get_tile "ID_vyber_ukoncenia_schodnice"))

...

)

DCL panel:

schody : dialog { 

...

: popup_list {
key = "ID_vyber_ukoncenia_schodnice";
label = "Vyber ukoncenie schodnice";
fixed_width_font = true; //false;
  width = 10;
value = "";
}

...

}