X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=base%2Floop-extension.lisp;h=39a6dfd366461e74d5e3549fd2ffef031c25b81d;hp=a78086baf5adce1e12476b1959512ad61284251f;hb=fd11963eb2f46ffac6da2b18fab3d7ff2a4390cf;hpb=7e20a5285824bbbd2aa6fae61da73465ed2e8557

diff --git a/base/loop-extension.lisp b/base/loop-extension.lisp
index a78086b..39a6dfd 100644
--- a/base/loop-extension.lisp
+++ b/base/loop-extension.lisp
@@ -51,8 +51,9 @@
       (setq from-phrase '(clsql-base:*default-database*)))
     (cond
       ;; Object query resulting in a list of returned object instances
-      ((consp in-phrase)
-       (error "object query not yet supported"))
+      #+ignore
+      ((consp (car in-phrase))
+       (ansi-loop::loop-error "object query not yet supported"))
       
       ((consp variable)
        (let ((query-var (ansi-loop::loop-gentemp 'loop-record-))
@@ -148,7 +149,8 @@
 
     (cond
       ;; Object query resulting in a list of returned object instances
-      ((consp in-phrase)
+      #+ignore
+      ((consp (car in-phrase))
        (error "Object query not yet supported."))
       
       ((consp iter-var)