Permalink
Browse files

fixed the latest commit.

  • Loading branch information...
1 parent f7e4e7c commit dd0ea86546e12e435246bb617e1c0a38cb9fd5bb @fukamachi committed Mar 1, 2012
Showing with 1 addition and 2 deletions.
  1. +1 −2 src/driver.lisp
View
@@ -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)))))

0 comments on commit dd0ea86

Please sign in to comment.