From: Russ Tyndall <russ@acceleration.net>
Date: Fri, 17 Jun 2011 16:29:26 +0000 (-0400)
Subject: fixed broken listify (it used to make (nil) when passed nil)
X-Git-Tag: v5.4.0~11
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=f5cec2ab2ddaf094f58bdfd613f8b10eab127373

fixed broken listify (it used to make (nil) when passed nil)
---

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index d09b154..c7236a4 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -801,9 +801,9 @@ uninclusive, and the args from that keyword to the end."
 
 (declaim (inline listify))
 (defun listify (x)
-  (if (atom x)
-      (list x)
-      x))
+  (if (listp x)
+      x
+      (list x)))
 
 (defmethod output-sql ((stmt sql-create-table) database)
   (flet ((output-column (column-spec)