X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=interfaces%2Fmysql%2Fmysql-usql.cl;fp=interfaces%2Fmysql%2Fmysql-usql.cl;h=13d3b2f147c1593d994809e201751e57fd1b4dd8;hb=3926d72ba0021044cc122c9ed9aa60607cf9c42d;hp=64e16cb4d7145388bc2bc6e89b9e7b351eb36630;hpb=95f40554edd65fffc81b5595a8abdf669e5dccad;p=clsql.git

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)