(let ((sqllist (read-delimited-list #\] stream t)))
(cond ((string= (write-to-string (car sqllist)) "||")
(cons (sql-operator 'concat) (cdr sqllist)))
(let ((sqllist (read-delimited-list #\] stream t)))
(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)))))
((sql-operator (car sqllist))
(cons (sql-operator (car sqllist)) (cdr sqllist)))
(t (apply #'generate-sql-reference sqllist)))))