X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fgeneric-postgresql.lisp;h=55d3a9082b8c6984781a58ed84cd3aef8662c979;hb=4881f86240f3da99ae537238cfccd61ac9c91f8f;hp=45ad1fb5b58a0c1581af93f3b0e4b2ed42b02356;hpb=9242af658c4978cba02cdfde02d5337a04788978;p=clsql.git

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 45ad1fb..55d3a90 100644
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -1,7 +1,7 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id: $
+;;;; $Id$
 ;;;;
 ;;;; Generic postgresql layer, used by db-postgresql and db-postgresql-socket
 ;;;;
@@ -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