; Procedures to get the EntitiesDescriptor attributes ; - the metadata about the metadata ; *TOP* -> EntitiesDescriptor -> @ -> ... (define meta-meta (sxpath '(EntitiesDescriptor @))) (define meta-meta/validUntil (cadar-of (sxpath '(validUntil)))) (define idp-entites ;(sxpath '("EntitiesDescriptor/EntityDescriptor[IDPSSODescriptor]"))) (sxpath '(EntitiesDescriptor (EntityDescriptor(IDPSSODescriptor)))))