r8963: pre 2.6.4

[clsql.git] / db-postgresql / postgresql-sql.lisp

diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp
index 5758730e07f19486a79086b364456f3277a8a080..ae3c18ef936cf097ae5325b929ead2a73dbe14a3 100644 (file)
--- a/db-postgresql/postgresql-sql.lisp
+++ b/db-postgresql/postgresql-sql.lisp
@@ -536,12 +536,7 @@
                                    and a.attnum > 0
                                    and a.attrelid = c.oid
                                    and a.atttypid = t.oid"
-           (sql-escape (string-downcase 
-                       (etypecase table
-                         (string table)
-                         (clsql-base-sys::sql-create-table
-                          (symbol-name 
-                           (slot-value table 'clsql-base-sys::name)))))))
+           (sql-escape (string-downcase table)))
    database :auto))
 
 (defun %pg-database-connection (connection-spec)