r9233: fix loop

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

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 7e875b26d8f182adcee256ca699364e15b79aa48..d6cd8fe9f7cbf6d94fc563fc252219efb467b9ae 100644 (file)
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -289,8 +289,8 @@
 
 (deftest :oodml/iteration/3
     (loop for (e) being the records in 
-          (select 'employee :where [married] :order-by [emplid])
-     collect (slot-value e 'last-name))
+          [select 'employee :where [married] :order-by [emplid]]
+       collect (slot-value e 'last-name))
   ("Lenin" "Stalin" "Trotsky"))
 
 ))