(defun ucon-parents (con &optional sab)
(ucon-ancestors con sab t))
(defun ucon-ancestors (ucon &optional sab single-level)
"Returns a list of ancestor lists for a concept"
(let* ((parent-rels (filter-urels-by-rel (s#rel ucon) "par"))
(defun ucon-parents (con &optional sab)
(ucon-ancestors con sab t))
(defun ucon-ancestors (ucon &optional sab single-level)
"Returns a list of ancestor lists for a concept"
(let* ((parent-rels (filter-urels-by-rel (s#rel ucon) "par"))