X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftable.lisp;h=bc68a814dbbf0058803f6c6ebb96b310bdddcb51;hp=67b474d2a2f1c65a0e42ff982bd7351c7a5380b6;hb=21ae7203d719886a1f044992e463d5f463727ac0;hpb=62547c6f6925d82c6fbc46801700b9256cf2c253

diff --git a/sql/table.lisp b/sql/table.lisp
index 67b474d..bc68a81 100644
--- a/sql/table.lisp
+++ b/sql/table.lisp
@@ -22,12 +22,11 @@
 
 (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 
@@ -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))
-                       (string (sql-expression :attribute (make-symbol name)))
+                       (string (sql-expression :attribute name))
                        (sql-ident name)))
          (stmt (make-instance 'sql-create-table
                               :name table-name
@@ -72,9 +71,9 @@ an error is signalled if IF-DOES-NOT-EXIST is :error."
     (let ((expr (concatenate 'string "DROP TABLE " table-name)))
       (when (and (find-package 'clsql-oracle)
 		 (eq :oracle (database-type database))
-		 (eql 9 (slot-value database 
-				    (intern (symbol-name '#:major-version-number)
-					    (symbol-name '#:clsql-oracle)))))
+		 (eql 10 (slot-value database 
+				     (intern (symbol-name '#:major-server-version)
+					     (symbol-name '#:clsql-oracle)))))
 	(setq expr (concatenate 'string expr " PURGE")))
 
       (execute-command expr :database database))))