projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9228: add tests for result-types for map-query and do-query, ignore incorrect select...
[clsql.git]
/
base
/
loop-extension.lisp
diff --git
a/base/loop-extension.lisp
b/base/loop-extension.lisp
index a78086baf5adce1e12476b1959512ad61284251f..39a6dfd366461e74d5e3549fd2ffef031c25b81d 100644
(file)
--- 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
(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-))
((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
(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)
(error "Object query not yet supported."))
((consp iter-var)