From f5cec2ab2ddaf094f58bdfd613f8b10eab127373 Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Fri, 17 Jun 2011 12:29:26 -0400 Subject: [PATCH] fixed broken listify (it used to make (nil) when passed nil) --- sql/expressions.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.34.1