Вопрос с ответом Нет по умолчанию

(defun ru-no (text / result)
  (setq result (ru-msg-messagebox
                 (strcat (ru-user-long-name)
                         ", прошу ПОДУМАТЬ и ответить"
                 ) ;_ end of strcat
                 (strcat text "?")
                 "YES_NO" "ICONSTOP" 2
               ) ;_ end of ru-msg-messagebox
  ) ;_ end of setq
  (if (null result)
    (progn
      (princ
        "
НЕ МОГУ ПОКАЗАТЬ ДИАЛОГ, ВЫВОЖУ ЗАПРОС В КОМАНДНУЮ СТРОКУ:
"
      ) ;_ end of princ
      (ru-dlg-no-cml text)
    ) ;_ end of progn
    (= result "NO")
  ) ;_ end of if
) ;_ end of defun