r9246: return list of lists for :target-slot

[clsql.git] / tests / test-oodml.lisp

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 7e69d6e3c51b84b30f60fdd36de15ffe3fe72f6f..804248bcb09ff262a94145124a828c2e16cd1df5 100644 (file)
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -85,9 +85,9 @@
     (mapcar #'(lambda (pair)
                (list
                 (typep (car pair) 'address)
-                (typep (cdr pair) 'employee-address)
+                (typep (second pair) 'employee-address)
                 (slot-value (car pair) 'addressid)
-                (slot-value (cdr pair) 'addressid)))
+                (slot-value (second pair) 'addressid)))
      (employee-addresses employee1))
   ((t t 1 1) (t t 2 2)))
 
@@ -95,9 +95,9 @@
     (mapcar #'(lambda (pair)
                (list
                 (typep (car pair) 'address)
-                (typep (cdr pair) 'employee-address)
+                (typep (second pair) 'employee-address)
                 (slot-value (car pair) 'addressid)
-                (slot-value (cdr pair) 'addressid)))
+                (slot-value (second pair) 'addressid)))
      (employee-addresses employee2))
   ((t t 2 2)))