From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 5 May 2004 00:26:02 +0000 (+0000)
Subject: r9233: fix loop
X-Git-Tag: v3.8.6~526
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=a91ef336e5401ba5acbe0cf66447eeae7d4cad50

r9233: fix loop
---

diff --git a/TODO b/TODO
index 4a25b42..e7885ad 100644
--- a/TODO
+++ b/TODO
@@ -1,9 +1,3 @@
-GENERAL 
-
-* port Oracle backend to UFFI.
-* consider adding large object support to mysql and odbc
-* add support for prepared statements. 
-
 TESTS TO ADD
 
 * CACHE-TABLE-QUERIES
@@ -13,6 +7,12 @@ TESTS TO ADD
 * Test bigint type
 * :db-constraint tests
 
+POSSIBLE EXTENSIONS
+
+* port Oracle backend to UFFI
+* large object support 
+* add support for prepared statements
+
 COMMONSQL SPEC
 
 * Missing: 
diff --git a/base/loop-extension.lisp b/base/loop-extension.lisp
index 526bafd..4fc421b 100644
--- a/base/loop-extension.lisp
+++ b/base/loop-extension.lisp
@@ -55,10 +55,10 @@
 
     (cond
       ;; Object query resulting in a list of returned object instances
-      ((and (consp (first in-phrase))
-	    (string-equal "select" (symbol-name (caar in-phrase)))
-	    (eq 'quote (first (second (first in-phrase))))
-	    (symbolp (second (second (first in-phrase)))))
+     ((and (consp (first in-phrase))
+	   (consp (second (first in-phrase)))
+	   (eq 'quote (first (second (first in-phrase))))
+	   (symbolp (second (second (first in-phrase)))))
 
        (let ((result-var (ansi-loop::loop-gentemp
 			      'loop-record-result-))
diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 7e875b2..d6cd8fe 100644
--- 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"))
 
 ))