-(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"))
- (anc nil))
- (when sab
- (setq parent-rels (delete-if-not
- (lambda (rel) (string-equal sab (sab rel)))
- parent-rels)))
- (dolist (rel parent-rels (nreverse anc))
- (let ((parent (find-ucon-cui (cui2 rel))))
- (push
- (if single-level
- (list parent)
- (list* parent (car (ucon-ancestors parent (sab rel) nil))))
- anc)))))
-