r9233: fix loop

[clsql.git] / base / loop-extension.lisp

diff --git a/base/loop-extension.lisp b/base/loop-extension.lisp
index 526bafd863c6684af279afa42f9294b052b7c7eb..4fc421bb56452ecf71af888c32997faed4e64472 100644 (file)
--- 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-))