made clsql emit double quoted table names

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 16e967bee67d2a4f07e66f0a22a22955a6b275e0..80fffc5277f66d8c8673abc4f56d99d694032508 100644 (file)
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -110,6 +110,7 @@
     `(make-instance 'sql-ident :name ',name)))
 
 (defmethod output-sql ((expr sql-ident) database)
+  
   (with-slots (name) expr
     (write-string
      (etypecase name
@@ -169,10 +170,10 @@
               (when qualifier
                 (typecase qualifier
                   (string (format nil "~s" qualifier))
-                  (t (sql-escape qualifier))))
+                  (t (format nil "~s" (sql-escape qualifier)))))
               (typecase name
                 (string (format nil "~s" (sql-escape name)))
-                (t (sql-escape name)))))
+                (t (format nil "~s" (sql-escape name))))))
     t))
 
 (defmethod output-sql-hash-key ((expr sql-ident-attribute) database)