From 4881f86240f3da99ae537238cfccd61ac9c91f8f Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 25 May 2004 11:31:26 +0000 Subject: [PATCH] r9479: * sql/generic-postgresql.lisp: (string n) => (CHAR n) --- ChangeLog | 1 + sql/generic-postgresql.lisp | 16 +--------------- 2 files changed, 2 insertions(+), 15 deletions(-) diff --git a/ChangeLog b/ChangeLog index 782203e..34cece5 100644 --- 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 * Version 2.11.1 released: Much simpler Oracle client library loading. diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp index 6716d14..55d3a90 100644 --- 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 -- 2.34.1