Permalink
Browse files

Merge pull request #10 from snmsts/vanish-nil

It seems nil -> 'NULL' looks not working.
  • Loading branch information...
fukamachi committed Jan 7, 2013
2 parents 56f3400 + b8c0840 commit 63ac16e5cca4f4ef6916099f63fa8c94bbb10774
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/driver.lisp
View
@@ -179,11 +179,11 @@ For example, in case of MySQL and PostgreSQL, backslashes must be escaped by dou
(lambda (&rest params)
(if params
(with-output-to-string (out)
- (loop for part in sql-parts
+ (loop for (part . rest) on sql-parts
do
(let ((param (pop params)))
(write-sequence
- (if param
+ (if rest
(concatenate 'string part (param-to-sql param))
part)
out))))

0 comments on commit 63ac16e

Please sign in to comment.