X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fsyntax.lisp;fp=sql%2Fsyntax.lisp;h=125bcaae6e154a3baa3df33ea10a5d31cce7b350;hp=e4bf1507324dcbe1c4f73894110a76578803dd54;hb=dea46c447f6688f1519a6fbe7f5998d0eab7474c;hpb=3fe77db54b9abecc35bddf084289e359987a5751

diff --git a/sql/syntax.lisp b/sql/syntax.lisp
index e4bf150..125bcaa 100644
--- 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)) "||")
-           (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))