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

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)