projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9538: Cleaned up symbolic SQL syntax.
[clsql.git]
/
sql
/
syntax.lisp
diff --git
a/sql/syntax.lisp
b/sql/syntax.lisp
index e4bf1507324dcbe1c4f73894110a76578803dd54..125bcaae6e154a3baa3df33ea10a5d31cce7b350 100644
(file)
--- a/
sql/syntax.lisp
+++ b/
sql/syntax.lisp
@@
-89,7
+89,7
@@
reader syntax is disabled."
(declare (ignore char))
(let ((sqllist (read-delimited-list #\] stream t)))
(cond ((string= (write-to-string (car sqllist)) "||")
(declare (ignore char))
(let ((sqllist (read-delimited-list #\] stream t)))
(cond ((string= (write-to-string (car sqllist)) "||")
- (cons (sql-operator 'concat) (cdr sqllist)))
+ (cons (sql-operator 'concat
-op
) (cdr sqllist)))
((and (= (length sqllist) 1) (eql (car sqllist) '*))
(apply #'generate-sql-reference sqllist))
((sql-operator (car sqllist))
((and (= (length sqllist) 1) (eql (car sqllist) '*))
(apply #'generate-sql-reference sqllist))
((sql-operator (car sqllist))