X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql%2Fpostgresql-sql.lisp;h=ae3c18ef936cf097ae5325b929ead2a73dbe14a3;hp=5758730e07f19486a79086b364456f3277a8a080;hb=6c70be35cc348b559d8aa869ecd0e14e27d5edbc;hpb=cd64aa8907160d3a2c2d0e531c831f1db44c7a61

diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp
index 5758730..ae3c18e 100644
--- 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)