X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=interfaces%2Fmysql%2Fmysql-sql.cl;h=d8b674c8e0aac0d3acb23f01c7d9a875e94f38b7;hp=65f2f6ff994051d0ab3c8f793d767eb21b95f7cc;hb=2af16ae71f1ee1a51afea064e173d6072b15d8d4;hpb=33401393ccc0a9567da4104b3c2e7608956a8624

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