r9479: * sql/generic-postgresql.lisp: (string n) => (CHAR n)

diff --git a/ChangeLog b/ChangeLog
index 782203eeb7998e108a8e9deef08fc8a156449566..34cece571dc30686bd4d2b148ee2c97a886746d7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -8,6 +8,7 @@
        * sql/metaclasses.lisp: Convert specified type VARCHAR and (VARCHAR n) to Lisp
        type string. Convert specified-type (CHAR n) to string. Convert specified-type
        CHAR to lisp type character.
+       * sql/generic-postgresql.lisp: (string n) => (CHAR n)
        
 25 May 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 2.11.1 released: Much simpler Oracle client library loading.

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 6716d14eabac8673c7dabebbc0135d81c03eac6d..55d3a9082b8c6984781a58ed84cd3aef8662c979 100644 (file)
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -27,25 +27,11 @@
   (declare (ignore type args database))
   "VARCHAR")
 
-(defmethod database-get-type-specifier ((type (eql 'simple-base-string)) args database
-                                       (db-type (eql :postgresql)))
-  (declare (ignore database))
-  (if args
-      (format nil "VARCHAR(~A)" (car args))
-      "VARCHAR"))
-
-(defmethod database-get-type-specifier ((type (eql 'simple-string)) args database
-                                       (db-type (eql :postgresql)))
-  (declare (ignore database))
-  (if args
-      (format nil "VARCHAR(~A)" (car args))
-      "VARCHAR"))
-
 (defmethod database-get-type-specifier ((type (eql 'string)) args database
                                        (db-type (eql :postgresql)))
   (declare (ignore database))
   (if args
-      (format nil "VARCHAR(~A)" (car args))
+      (format nil "CHAR(~A)" (car args))
       "VARCHAR"))
 
 (defmethod database-get-type-specifier ((type (eql 'wall-time)) args database