X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fsyntax.lisp;fp=sql%2Fsyntax.lisp;h=6d771da016dad928c3db849a92f7f637e60f4c84;hp=7a619f0c05b3b9ed848c2b977f8efdd51ed3ee82;hb=692ff4990d0cd04685531f524801b16d21cfbb49;hpb=7cf55152a361b4cc7666ccc4514afd00eae43007

diff --git a/sql/syntax.lisp b/sql/syntax.lisp
index 7a619f0..6d771da 100644
--- a/sql/syntax.lisp
+++ b/sql/syntax.lisp
@@ -86,6 +86,8 @@ syntax is disabled."
   (let ((sqllist (read-delimited-list #\] stream t)))
     (cond ((string= (write-to-string (car sqllist)) "||")
            (cons (sql-operator 'concat) (cdr sqllist)))
+          ((and (= (length sqllist) 1) (eql (car sqllist) '*))
+           (apply #'generate-sql-reference sqllist))
           ((sql-operator (car sqllist))
            (cons (sql-operator (car sqllist)) (cdr sqllist)))
           (t (apply #'generate-sql-reference sqllist)))))