;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;;
-;;;; $Id: $
+;;;; $Id$
;;;;
;;;; Generic postgresql layer, used by db-postgresql and db-postgresql-socket
;;;;
(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