projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9020: more odbc improvements on sbcl/cmu
[clsql.git]
/
db-postgresql-socket
/
postgresql-socket-sql.lisp
diff --git
a/db-postgresql-socket/postgresql-socket-sql.lisp
b/db-postgresql-socket/postgresql-socket-sql.lisp
index 2ceb6798bcd83e27d4be61ae761ead66ed08d387..1e29c070d6749dfac59dcc88dde53898c397aff0 100644
(file)
--- 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"
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)
database :auto))
(when (clsql-base-sys:database-type-library-loaded :postgresql-socket)