r9360: Strings as table identifiers in SELECT.

[clsql.git] / sql / classes.lisp

diff --git a/sql/classes.lisp b/sql/classes.lisp
index a829d3894cbe4aa8e0e4767d247a05071a087a6e..4e697caf0cfb7a51cfd402682d8d35dba733da1e 100644 (file)
--- a/sql/classes.lisp
+++ b/sql/classes.lisp
@@ -579,9 +579,10 @@ uninclusive, and the args from that keyword to the end."
     (output-sql (apply #'vector selections) database)
     (when from
       (write-string " FROM " *sql-stream*)
-      (if (listp from)
-         (output-sql (apply #'vector from) database)
-       (output-sql from database)))
+      (typecase from 
+        (list (output-sql (apply #'vector from) database))
+        (string (write-string from *sql-stream*))
+        (t (output-sql from database))))
     (when inner-join
       (write-string " INNER JOIN " *sql-stream*)
       (output-sql inner-join database))