X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=interfaces%2Fmysql%2Fmysql-sql.cl;h=d608d8be3408f97d8ced5d29b79614afad2f845f;hb=cdd84f18473361ae5220666bbe0526fa565bc060;hp=ca8225b33660f5dd1cb436367c235bff4ba02da7;hpb=f5bdcb40391f85e8078e20c9f9776589acb5e420;p=clsql.git diff --git a/interfaces/mysql/mysql-sql.cl b/interfaces/mysql/mysql-sql.cl index ca8225b..d608d8b 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.20 2002/05/14 16:29:53 kevin Exp $ +;;;; $Id: mysql-sql.cl,v 1.21 2002/05/25 15:57:28 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai @@ -99,7 +99,6 @@ (declare (ignore password)) (concatenate 'string host "/" db "/" user))) - (defmethod database-connect (connection-spec (database-type (eql :mysql))) (check-connection-spec connection-spec database-type (host db user password)) (destructuring-bind (host db user password) connection-spec