projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
78da483
)
fixed broken listify (it used to make (nil) when passed nil)
author
Russ Tyndall
<russ@acceleration.net>
Fri, 17 Jun 2011 16:29:26 +0000
(12:29 -0400)
committer
Nathan Bird
<nathan@acceleration.net>
Mon, 20 Jun 2011 20:06:18 +0000
(16:06 -0400)
sql/expressions.lisp
patch
|
blob
|
history
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)