From 2af16ae71f1ee1a51afea064e173d6072b15d8d4 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 25 Mar 2002 14:26:23 +0000 Subject: [PATCH] r1658: *** empty log message *** --- interfaces/mysql/mysql-package.cl | 3 ++- interfaces/mysql/mysql-sql.cl | 9 ++++----- 2 files changed, 6 insertions(+), 6 deletions(-) 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 -- 2.34.1