r10376: 03 Apr 2005 Kevin Rosenberg <kevin@rosenberg.net>

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

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 43a92012532c85bfdc51098c00bfb95e8e18601b..ac01e7ba073ecdfe4d2dcb91039c12796f8d3706 100644 (file)
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -34,6 +34,11 @@
       (format nil "CHAR(~A)" (car args))
     "VARCHAR"))
 
+(defmethod database-get-type-specifier ((type (eql 'tinyint)) args database
+                                       (db-type (eql :postgresql)))
+  (declare (ignore args database))
+  "INT2")
+
 (defmethod database-get-type-specifier ((type (eql 'smallint)) args database
                                        (db-type (eql :postgresql)))
   (declare (ignore args database))
@@ -110,7 +115,7 @@
          (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))))