From 14e7eb14df86493ad043f11b2dd142d329e415be Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 30 Mar 2002 05:07:02 +0000 Subject: [PATCH] r1707: mysql-sql.cl --- interfaces/mysql/mysql-sql.cl | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/interfaces/mysql/mysql-sql.cl b/interfaces/mysql/mysql-sql.cl index 7bd3bb9..b88e054 100644 --- a/interfaces/mysql/mysql-sql.cl +++ b/interfaces/mysql/mysql-sql.cl @@ -8,7 +8,7 @@ ;;;; Original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: mysql-sql.cl,v 1.17 2002/03/29 14:03:27 kevin Exp $ +;;;; $Id: mysql-sql.cl,v 1.18 2002/03/30 05:07:02 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai @@ -72,13 +72,12 @@ nil (let ((auto-list (make-type-list-for-auto num-fields res-ptr))) (cond - ((listp types) - (canonicalize-type-list types auto-list)) - types) + ((listp types) + (canonicalize-type-list types auto-list)) ((eq types :auto) auto-list) (t - nil)))) + nil))))) (defmethod database-initialize-database-type ((database-type (eql :mysql))) t) -- 2.34.1