X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-postgresql-socket%2Fpostgresql-socket-sql.lisp;h=1e29c070d6749dfac59dcc88dde53898c397aff0;hb=6c70be35cc348b559d8aa869ecd0e14e27d5edbc;hp=2ceb6798bcd83e27d4be61ae761ead66ed08d387;hpb=064bb338ef1375940085db10ec5a202d32e6b68b;p=clsql.git

diff --git a/db-postgresql-socket/postgresql-socket-sql.lisp b/db-postgresql-socket/postgresql-socket-sql.lisp
index 2ceb679..1e29c07 100644
--- a/db-postgresql-socket/postgresql-socket-sql.lisp
+++ b/db-postgresql-socket/postgresql-socket-sql.lisp
@@ -467,12 +467,7 @@ doesn't depend on UFFI."
                                    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))
 
 (when (clsql-base-sys:database-type-library-loaded :postgresql-socket)