projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
fixed broken listify (it used to make (nil) when passed nil)
[clsql.git]
/
sql
/
expressions.lisp
diff --git
a/sql/expressions.lisp
b/sql/expressions.lisp
index d09b154e0ef99907195f6b41f078f420e7c95283..c7236a454f56cb4c4c08a102c4ee61381c162996 100644
(file)
--- 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)