X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=804248bcb09ff262a94145124a828c2e16cd1df5;hp=7e69d6e3c51b84b30f60fdd36de15ffe3fe72f6f;hb=1c5166f0e106b086a5f50a7ce5af2f50d6c6b58e;hpb=89465a80557c2b03b9701b4239a34ded292eb018

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 7e69d6e..804248b 100644
--- 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)))