Changes regarding standard_conforming_strings in postgres

[clsql.git] / sql / fdml.lisp

diff --git a/sql/fdml.lisp b/sql/fdml.lisp
index 5e248ced0547c0eb66895d820493023b4f032f7b..0a744cb23a83a3b755afc10ebf750a66961870b2 100644 (file)
--- a/sql/fdml.lisp
+++ b/sql/fdml.lisp
@@ -54,8 +54,9 @@
   (values))
 
 (defmethod execute-command ((expr %sql-expression)
-                            &key (database *default-database*))
-  (execute-command (sql-output expr database) :database database)
+                            &key (database *default-database*)
+                            &aux (str-sql (sql-output expr database)))
+  (execute-command str-sql :database database)
   (values))
 
 (defmethod query ((query-expression string) &key (database *default-database*)