From a99f275949c7e638a1e7fcf2ebfbb21f0a8c448a Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 4 May 2004 22:01:51 +0000 Subject: [PATCH] r9230: fix loop tests --- tests/test-fdml.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp index 71a3a9b..906852b 100644 --- a/tests/test-fdml.lisp +++ b/tests/test-fdml.lisp @@ -337,16 +337,16 @@ "Josef Stalin" "Leon Trotsky" "Boris Yeltsin")) (deftest :fdml/loop/2 - (loop for emplid + (loop for (emplid) being each tuple in [select [emplid] :from [address] :order-by [emplid]] - collect emplid) - ((1) (2))) + collect emplid) + (1 2)) (deftest :fdml/loop/3 (loop for emplid being each tuple in - [select [emplid] :from [address] :order-by [emplid] :flatp t] + [select [emplid] :from [address] :order-by [emplid]] collect emplid) (1 2)) -- 2.34.1