r9456: relax type for server-version

[clsql.git] / sql / table.lisp

diff --git a/sql/table.lisp b/sql/table.lisp
index a49ed2adb6d405d0b1e4c0c868f0bd0b57f6a3cf..bc68a814dbbf0058803f6c6ebb96b310bdddcb51 100644 (file)
--- a/sql/table.lisp
+++ b/sql/table.lisp
@@ -22,12 +22,11 @@
 
 (defun database-identifier (name database)
   (sql-escape (etypecase name
 
 (defun database-identifier (name database)
   (sql-escape (etypecase name

-                (string
-                 (convert-to-db-default-case name database))
-                (sql-ident
-                 (sql-output name database))
-                (symbol
-                 (sql-output name database)))))
+               ;; honor case of strings
+                (string name
+                       #+nil (convert-to-db-default-case name database))
+                (sql-ident (sql-output name database))
+                (symbol (sql-output name database)))))

 
 
 ;; Tables 
 
 
 ;; Tables 


@@ -45,7 +44,7 @@ databases, if TRANSACTIONS is t an InnoDB table is created which
 supports transactions."
   (let* ((table-name (etypecase name 
                        (symbol (sql-expression :attribute name))
 supports transactions."
   (let* ((table-name (etypecase name 
                        (symbol (sql-expression :attribute name))

-                       (string (sql-expression :attribute (make-symbol name)))
+                       (string (sql-expression :attribute name))

                        (sql-ident name)))
          (stmt (make-instance 'sql-create-table
                               :name table-name
                        (sql-ident name)))
          (stmt (make-instance 'sql-create-table
                               :name table-name