Plaster

(defun get-sub-members (set-name) (let ((subclasses (closer-mop:class-direct-subclasses (find-class set-name)))) (union (load-set set-name) (let ((cum-list NIL)) (loop for class in subclasses do (setf cum-list (union cum-list (get-sub-members (class-name class)))))))))