From 225df4af8fb41057b7a0e80c3cf1912880ca620b Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 27 Mar 2002 04:33:19 +0000 Subject: [PATCH] r1668: :types improvement --- interfaces/mysql/mysql-sql.cl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 -- 2.34.1