From 6bf69ed2c616ea75e5402bd95853adee5551743b Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Fri, 21 Aug 2009 16:30:40 -0400 Subject: [PATCH] made clsql emit double quoted table names --- sql/expressions.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.34.1