X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ffdml.lisp;h=dc725f41e03623a0999363b758f7d5ca30fa1f98;hp=34062620389844cb3bf61ba93650db782b6b2db5;hb=5ed1f05543cbd24b3f2bb735f2cfc03ea85e51ec;hpb=e567409d9fff3f7231c2a0bb69b345e19de2b246 diff --git a/sql/fdml.lisp b/sql/fdml.lisp index 3406262..dc725f4 100644 --- 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 + (cond ((and vals (not attrs) (not query) (not av-pairs)) (setf values vals)) ((and vals attrs (not subquery) (not av-pairs))