Browse files

The value `nil` is not treated as I expected in method `prepare-sql.`…

… it looks just disappeared.
  • Loading branch information...
1 parent 56f3400 commit b8c0840123d91cea8a6905d46c676a679d5c8122 @snmsts snmsts committed Dec 30, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/driver.lisp
View
4 src/driver.lisp
@@ -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 b8c0840

Please sign in to comment.