projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10190: 06 Dec 2004 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git]
/
sql
/
generic-postgresql.lisp
diff --git
a/sql/generic-postgresql.lisp
b/sql/generic-postgresql.lisp
index 5149bb08a6db516621c89870892825fb292b90c7..ac01e7ba073ecdfe4d2dcb91039c12796f8d3706 100644
(file)
--- a/
sql/generic-postgresql.lisp
+++ b/
sql/generic-postgresql.lisp
@@
-115,7
+115,7
@@
(result
(mapcar #'car
(database-query
(result
(mapcar #'car
(database-query
- (format nil "SELECT attname FROM pg_class,pg_attribute WHERE pg_class.oid=attrelid AND relname='~A'~A"
+ (format nil "SELECT attname FROM pg_class,pg_attribute WHERE pg_class.oid=attrelid AND
attisdropped = FALSE AND
relname='~A'~A"
(string-downcase table)
owner-clause)
database nil nil))))
(string-downcase table)
owner-clause)
database nil nil))))