Извлечение значения заданного по имени атрибута из примитива вставки блока

(defun ru-block-attrib-by-name
       (blk_ent attr_name / attribs_assoc_list lst_attrib)
;;; примитив, имя атрибута
;;;(ru-block-attrib-by-name (entlast)  "ОБОЗНАЧЕНИЕ") > "001-01-ВК"
;;;(ru-block-attrib-by-name (entlast)  "ОБОЗН") > nil
;;;  (ru-block-attrib-by-name (entlast)  "ОБОЗНАЧЕНИЕ") - нет атрибутов >nil
  (if (setq attribs_assoc_list (ru-block-get-attributes blk_ent))
    (if (setq lst_attrib (ru-list-massoc attr_name attribs_assoc_list))
      (car lst_attrib)
      nil
    ) ;_ end of if
    nil
  ) ;_ end of if

) ;_ end of defun