+ (cond
+ (deferred-joins
+ (mapcar
+ #'(lambda (slotdef)
+ ;; FIXME: Rather than simply reading the values for each
+ ;; object, to meet CommonSQL spec need to generate a single
+ ;; query to read values for all objects, up to max-len count
+ (mapcar
+ #'(lambda (object)
+ (slot-value object (slot-definition-name slotdef)))
+ objects))
+ deferred-joins))
+ (t
+ (warn "Class ~A does not have any deferred join slots." class-name)))
+ )))