projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update to debhelper 5
[clsql.git]
/
sql
/
fdml.lisp
diff --git
a/sql/fdml.lisp
b/sql/fdml.lisp
index 34062620389844cb3bf61ba93650db782b6b2db5..dc725f41e03623a0999363b758f7d5ca30fa1f98 100644
(file)
--- a/
sql/fdml.lisp
+++ b/
sql/fdml.lisp
@@
-140,6
+140,7
@@
columns."
(let ((insert (make-instance 'sql-insert :into into)))
(with-slots (attributes values query)
insert
(let ((insert (make-instance 'sql-insert :into into)))
(with-slots (attributes values query)
insert
+
(cond ((and vals (not attrs) (not query) (not av-pairs))
(setf values vals))
((and vals attrs (not subquery) (not av-pairs))
(cond ((and vals (not attrs) (not query) (not av-pairs))
(setf values vals))
((and vals attrs (not subquery) (not av-pairs))