r1658: *** empty log message ***

diff --git a/interfaces/mysql/mysql-package.cl b/interfaces/mysql/mysql-package.cl
index 666bf5de736a06db162650e749abffd12f4e64fd..618ab3ee6405fd0948e9121690404da77e5999e6 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.4 2002/03/25 14:13:41 kevin Exp $
+;;;; $Id: mysql-package.cl,v 1.5 2002/03/25 14:26:23 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -61,6 +61,7 @@
      #:mysql-row
      #:mysql-field-offset
      #:mysql-row-offset
+     #:mysql-field-vector
      #:mysql-data
      #:mysql-options
      #:mysql-mysql-option

diff --git a/interfaces/mysql/mysql-sql.cl b/interfaces/mysql/mysql-sql.cl
index 65f2f6ff994051d0ab3c8f793d767eb21b95f7cc..d8b674c8e0aac0d3acb23f01c7d9a875e94f38b7 100644 (file)
--- 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.8 2002/03/25 14:13:41 kevin Exp $
+;;;; $Id: mysql-sql.cl,v 1.9 2002/03/25 14:26:23 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -63,10 +63,9 @@
          #+ignore (field-vec (mysql-fetch-fields res-ptr)))
       (dotimes (i num-fields)
        (declare (fixnum i))
-       (let* ((field (mysql-fetch-field-direct res-ptr i))
-              #+ignore
-              (field-test (uffi:deref-array field-vec 'mysql-field-vector i))
-              (type (uffi:get-slot-value field 'mysql-field 'type)))
+       (let* ( (field (mysql-fetch-field-direct res-ptr i))
+               #+ignore (field (uffi:deref-array field-vec 'mysql-field-vector i))
+               (type (uffi:get-slot-value field 'mysql-field 'type)))
          (push
           (case type
             ((#.mysql-field-types#tiny