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

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