r2261: *** empty log message ***

[clsql.git] / interfaces / mysql / mysql-package.cl

diff --git a/interfaces/mysql/mysql-package.cl b/interfaces/mysql/mysql-package.cl
index 450efc287acee8022a001ab596531dc9fddca50a..afacc6216270bcd075df0ec51df37b4f1985659e 100644 (file)
--- a/interfaces/mysql/mysql-package.cl
+++ b/interfaces/mysql/mysql-package.cl
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: mysql-package.cl,v 1.1 2002/03/23 14:04:52 kevin Exp $
+;;;; $Id: mysql-package.cl,v 1.7 2002/03/27 08:09:25 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -20,8 +20,10 @@
 (in-package :cl-user)
 
 (defpackage :mysql
-    (:use :common-lisp)
+    (:use :common-lisp :clsql-uffi)
     (:export 
+     #:database-library-loaded
+     
      #:mysql-socket
      #:mysql-book
      #:mysql-byte
@@ -59,6 +61,7 @@
      #:mysql-row
      #:mysql-field-offset
      #:mysql-row-offset
+     #:mysql-field-vector
      #:mysql-data
      #:mysql-options
      #:mysql-mysql-option
@@ -108,6 +111,8 @@
      #:mysql-fetch-row
      #:mysql-fetch-lengths
      #:mysql-fetch-field
+     #:mysql-fetch-fields
+     #:mysql-fetch-field-direct
      #:mysql-escape-string
      #:mysql-debug
      #:mysql-num-rows
@@ -121,5 +126,7 @@
      #:mysql-info
      #:mysql-info-string
      #:mysql-data-seek
+     
+     #:make-64-bit-integer
      )
     (:documentation "This is the low-level interface MySQL."))