;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: mysql-sql.cl,v 1.2 2002/09/30 01:57:32 kevin Exp $
+;;;; $Id: mysql-sql.cl,v 1.3 2002/09/30 02:07:42 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
(dotimes (i num-fields)
(declare (fixnum i))
(let* ( (field (mysql-fetch-field-direct res-ptr i))
- #+ignore (field (uffi:deref-array field-vec '(* mysql-field) i))
+ #+ignore (field (uffi:deref-array field-vec '(:array mysql-field) i))
(type (uffi:get-slot-value field 'mysql-field 'type)))
(push
(case type
(loop for i from 0 below num-fields
collect
(convert-raw-field
- (uffi:deref-array row '(* (* :unsigned-char)) i)
+ (uffi:deref-array row '(:array (* :unsigned-char)) i)
types i)))
(mysql-free-result res-ptr)))
(error 'clsql-sql-error
do
(setf (car rest)
(convert-raw-field
- (uffi:deref-array row '(* (* :unsigned-char)) i)
+ (uffi:deref-array row '(:array (* :unsigned-char)) i)
types
i)))
list)))