Конвертирование строкового значения в логическое
(defun ru-conv-str-to-bool (s)
;; строка в логическое (ru-conv-str-to-bool "0")
(not (null (member (strcase s)
'("1" "Y" "" "YES" "ДА" "Д" "T" "TRUE" ".T.")
) ;_ end of member
))
) ;_ end of defun