From: Russ Tyndall <russ@acceleration.net>
Date: Fri, 21 Aug 2009 20:30:40 +0000 (-0400)
Subject: made clsql emit double quoted table names
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=6bf69ed2c616ea75e5402bd95853adee5551743b

made clsql emit double quoted table names
---

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 16e967b..80fffc5 100644
--- 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)