From: Kevin M. Rosenberg Date: Wed, 3 Apr 2002 04:54:17 +0000 (+0000) Subject: r1730: *** empty log message *** X-Git-Tag: v3.8.6~1177 X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;ds=sidebyside;h=3926d72ba0021044cc122c9ed9aa60607cf9c42d;p=clsql.git r1730: *** empty log message *** --- diff --git a/interfaces/mysql/Makefile b/interfaces/mysql/Makefile index 6e63e03..c674ebb 100644 --- a/interfaces/mysql/Makefile +++ b/interfaces/mysql/Makefile @@ -7,7 +7,7 @@ # Programer: Kevin M. Rosenberg # Date Started: Mar 2002 # -# CVS Id: $Id: Makefile,v 1.4 2002/04/03 04:06:05 kevin Exp $ +# CVS Id: $Id: Makefile,v 1.5 2002/04/03 04:54:17 kevin Exp $ # # This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg # @@ -21,7 +21,7 @@ CC=gcc SHARED_CC_OPT=-fPIC -DPIC -#SHARED_LD_OPT=-r # For FreeBSD and Solaris (CMUCL) +#SHARED_LD_OPT=-r -Bdynamic -whole-archive # For FreeBSD and Solaris (CMUCL) SHARED_LD_OPT=-Bshareable -Bdynamic # For Linux (ALL) and FreeBSD (ACL) # Use these for Sun's C compiler and Solaris (ACL) diff --git a/interfaces/mysql/mysql-usql.cl b/interfaces/mysql/mysql-usql.cl index 64e16cb..13d3b2f 100644 --- a/interfaces/mysql/mysql-usql.cl +++ b/interfaces/mysql/mysql-usql.cl @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg and onShore Development Inc ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: mysql-usql.cl,v 1.1 2002/04/01 05:27:55 kevin Exp $ +;;;; $Id: mysql-usql.cl,v 1.2 2002/04/03 04:54:17 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and by onShore Development Inc. @@ -86,7 +86,7 @@ (concatenate 'string "UPDATE " (%sequence-name-to-table sequence-name) " SET id=LAST_INSERT_ID(id+1)") database) - (mysql:mysql-insert-id (mysql::database-mysql-ptr database))) + (mysql:mysql-insert-id (clsql-mysql::database-mysql-ptr database))) #+ignore (defmethod database-output-sql ((expr clsql-sys::sql-typecast-exp)