X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fsyntax.lisp;h=7a619f0c05b3b9ed848c2b977f8efdd51ed3ee82;hp=5a713d0f20d6a4c6e75b41dbfafae8212e1abe5f;hb=aad71482a312cf287e2f6e3e926cf671cd382ec7;hpb=8a8ee2d7d791b7a3efaed06420802a925d16fca3

diff --git a/sql/syntax.lisp b/sql/syntax.lisp
index 5a713d0..7a619f0 100644
--- a/sql/syntax.lisp
+++ b/sql/syntax.lisp
@@ -84,9 +84,11 @@ syntax is disabled."
 (defun sql-reader-open (stream char)
   (declare (ignore char))
   (let ((sqllist (read-delimited-list #\] stream t)))
-    (if (sql-operator (car sqllist))
-	(cons (sql-operator (car sqllist)) (cdr sqllist))
-      (apply #'generate-sql-reference sqllist))))
+    (cond ((string= (write-to-string (car sqllist)) "||")
+           (cons (sql-operator 'concat) (cdr sqllist)))
+          ((sql-operator (car sqllist))
+           (cons (sql-operator (car sqllist)) (cdr sqllist)))
+          (t (apply #'generate-sql-reference sqllist)))))
 
 ;; Internal function that disables the close syntax when leaving sql context.
 (defun disable-sql-close-syntax ()