fixed the latest commit.

fukamachi · Mar 1, 2012 · dd0ea86 · dd0ea86
1 parent f7e4e7c
commit dd0ea86
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/driver.lisp b/src/driver.lisp
@@ -170,12 +170,11 @@ For example, in case of MySQL and PostgreSQL, backslashes must be escaped by dou
         (if params
             (with-output-to-string (out)
               (loop for part in sql-parts
-                    for param = (pop params)
                     do
                  (let ((param (pop params)))
                    (write-sequence
                     (if param
-                        (concatenate 'string part "'" param "'")
+                        (concatenate 'string part (param-to-sql param))
                         part)
                     out))))
             sql)))))