X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=base%2Floop-extension.lisp;h=4fc421bb56452ecf71af888c32997faed4e64472;hp=526bafd863c6684af279afa42f9294b052b7c7eb;hb=a91ef336e5401ba5acbe0cf66447eeae7d4cad50;hpb=550cc94ed84c6cfc61830c25fac2b39e92393b06

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-))