X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=interfaces%2Fmysql%2Fmysql-sql.cl;fp=interfaces%2Fmysql%2Fmysql-sql.cl;h=79bf774ea6a327928eed1357901d43646df8b1c6;hb=225df4af8fb41057b7a0e80c3cf1912880ca620b;hp=32db9b64bac4131353610db423c632b55a8250d5;hpb=e04478ee7c288f9011ab5b04a5f9001654cc7481;p=clsql.git

diff --git a/interfaces/mysql/mysql-sql.cl b/interfaces/mysql/mysql-sql.cl
index 32db9b6..79bf774 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.11 2002/03/27 00:25:03 kevin Exp $
+;;;; $Id: mysql-sql.cl,v 1.12 2002/03/27 04:33:19 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -187,8 +187,9 @@
 			      collect
 			      (loop for i from 0 below num-fields
 				    collect
-				    (uffi:convert-from-foreign-string
-				     (uffi:deref-array row 'mysql-row i))))
+				    (convert-raw-field
+				     (uffi:deref-array row 'mysql-row i)
+				     types i)))
 		     (mysql-free-result res-ptr)))
 	       (error 'clsql-sql-error
 		      :database database