Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fixed the latest commit.

  • Loading branch information...
commit dd0ea86546e12e435246bb617e1c0a38cb9fd5bb 1 parent f7e4e7c
@fukamachi authored
Showing with 1 addition and 2 deletions.
  1. +1 −2  src/driver.lisp
View
3  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)))))
Please sign in to comment.
Something went wrong with that request. Please try again.