Проверка введеного пользователем значения в edit_box

(defun metrico ( / on_RB dx dy dcl_id what_next rad_val Rbutton error bool )
(setq dcl_id (load_dialog "start.dcl"))                 ;Загрузка диалога
(if (not (new_dialog "start" dcl_id))(exit))            ;Инициализация диалога
(setq dx (dimx_tile "pic") dy (dimy_tile "pic"))        ;Определение границ фрейма под слайд
(start_image "pic")                                     ;Загрузка слайда в фрейм
(slide_image 0 0 dx dy "slide1" )
(end_image)
  (setq rad_val (list "k1" on_RB))                      ;формирование списка значений радио батонов
  (set_tile "k1" "1")                                   ;определение переменной в которой будет содержаться
  (setq on_RB "k1")                                     ;лог. единица отвечающая за отображение радио батона
  (setq what_next 8)                                    ;Для создания цикла присвоено число больше 2
  (setq error "Ошибка ввода!!")
                                                        ;Метка начала не отлаженого кода
(while (> what_next 2)
                                                        ;Название вида
(while (= bool nil)
    (setq bool (wcmatch (get_tile "e1") "[1-3]"))
    (action_tile "e1" "(if (= bool T) (setq vid $value) (alert error))")
    (action_tile "RB1" "(setq on_RB $key)")
    (action_tile "RB2" "(setq on_RB $key)")
    (action_tile "RB3" "(setq on_RB $key)")
    (action_tile "RB4" "(setq on_RB $key)")
    (action_tile "podtv"  "(done_dialog 1)")
    (action_tile "otmena" (strcat "(done_dialog 1)" "(setq bool T)" ))
    (setq what_next (start_dialog))
))
(unload_dialog dcl_id)
(princ)                                                 ;Мягкий выход из программы
)
Проблема состоит в том что wcmatch (get_tile "e1") "[1-3]" как мне кажеться не проверяет. Как оно должно быть?