+ (deftest :oodm/retrieval/7
+ (every #'(lambda (ea) (slot-boundp (slot-value ea 'address) 'addressid))
+ (select 'deferred-employee-address :flatp t :caching nil))
+ t)
+
+ (deftest :oodm/retrieval/8
+ (mapcar #'(lambda (ea) (slot-value (slot-value ea 'address) 'street-number))
+ (select 'employee-address :flatp t :order-by [aaddressid] :caching nil))
+ (10 10 nil nil nil))
+
+ (deftest :oodm/retrieval/9
+ (mapcar #'(lambda (ea) (slot-value (slot-value ea 'address) 'street-number))
+ (select 'deferred-employee-address :flatp t :order-by [aaddressid] :caching nil))
+ (10 10 nil nil nil))
+