+(defun generate-immediate-joins-list (vclass)
+ "Returns list of pairs of join slots and their class for a class."
+ (let ((sels nil))
+ (dolist (slotdef (ordered-class-slots vclass))
+ (when (and (eq :join (view-class-slot-db-kind slotdef))
+ (eq :immediate (gethash :retrieval (view-class-slot-db-info slotdef))))
+ (push slotdef sels)))
+ (cons vclass (list sels))))