From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 25 Mar 2002 14:26:23 +0000 (+0000)
Subject: r1658: *** empty log message ***
X-Git-Tag: v3.8.6~1218
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=2af16ae71f1ee1a51afea064e173d6072b15d8d4

r1658: *** empty log message ***
---

diff --git a/interfaces/mysql/mysql-package.cl b/interfaces/mysql/mysql-package.cl
index 666bf5d..618ab3e 100644
--- 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 65f2f6f..d8b674c 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.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