X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fsyntax.lisp;fp=sql%2Fsyntax.lisp;h=68fa8aad7462b2e5ccacffc82d7271537a7d81b1;hp=4ec07f5f2ce4ae193fe682754882f2343ea98c01;hb=534a26be238d2e54737488acfa96456905e57646;hpb=7c5e205e6323991c72e19e910c1a68bb3acc0fc5

diff --git a/sql/syntax.lisp b/sql/syntax.lisp
index 4ec07f5..68fa8aa 100644
--- a/sql/syntax.lisp
+++ b/sql/syntax.lisp
@@ -110,9 +110,17 @@ reader syntax is disabled."
 
 (defun generate-sql-reference (&rest arglist)
   (cond ((= (length arglist) 1) ; string, table or attribute
-         (if (stringp (car arglist))
-             (sql-expression :string (car arglist))
-             (sql-expression :attribute (car arglist))))
+         (let ((arg (first arglist)))
+           (typecase arg
+             (string (sql-expression :string arg))
+             (symbol ;; handle . separated names
+              (let* ((sn (symbol-name arg))
+                     (idx (position #\. sn)))
+                (cond
+                  (idx (sql-expression :table (intern (subseq sn 0 idx))
+                                       :attribute (intern (subseq sn (+ idx 1))) ))
+                  (T (sql-expression :attribute arg))))
+              ))))
         ((<= 2 (length arglist))
          (let ((sqltype (when (keywordp (caddr arglist)) (caddr arglist) nil)))
            (cond