Преобразование набора в список
(defun ru-conv-sset-to-list (sset / temp-ent)
;;;* Аргумент - набор.
;;;* Возвращает список примитивов набора ENAME или NIL.
(if (and sset (setq temp-ent (ssname sset 0)))
(cons temp-ent (ru-conv-sset-to-list (ssdel temp-ent sset)))
) ;_ end of if
) ;_ end of defun