X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fclasses.lisp;h=4c11dbea69b0a235882046e0776c5b50157761f9;hb=5990bfce392a05c10237d4f97b008c4f828028e5;hp=b7cd0c6b95f16157ecfba0748f1d973c372edab8;hpb=1751e5245c270bd1ee854a98dfe6caa665abe34e;p=clsql.git

diff --git a/sql/classes.lisp b/sql/classes.lisp
index b7cd0c6..4c11dbe 100644
--- a/sql/classes.lisp
+++ b/sql/classes.lisp
@@ -13,7 +13,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-(in-package #:clsql-sys)
+(in-package #:clsql)
 
 (defvar +empty-string+ "''")
 
@@ -149,12 +149,19 @@
     (if (and (not qualifier) (not type))
 	(write-string (sql-escape (convert-to-db-default-case 
 				   (symbol-name name) database)) *sql-stream*)
+	;;; KMR: The TYPE field is used by CommonSQL for type conversion -- it
+      ;;; should not be output in SQL statements
+      #+ignore
       (format *sql-stream* "~@[~A.~]~A~@[ ~A~]"
 	      (when qualifier
-		  (convert-to-db-default-case (sql-escape qualifier) database))
+		(convert-to-db-default-case (sql-escape qualifier) database))
 	      (sql-escape (convert-to-db-default-case name database))
 	      (when type
-		  (convert-to-db-default-case (symbol-name type) database))))
+		(convert-to-db-default-case (symbol-name type) database)))
+      (format *sql-stream* "~@[~A.~]~A"
+	      (when qualifier
+		(convert-to-db-default-case (sql-escape qualifier) database))
+	      (sql-escape (convert-to-db-default-case name database))))
     t))
 
 (defmethod output-sql-hash-key ((expr sql-ident-attribute) database)