From 4e598a5e04818207730914f609f953dac439c566 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 10 Jan 2005 08:18:57 +0000 Subject: [PATCH] r10262: add missing package name to mysql::flags --- db-mysql/mysql-sql.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp index c87da86..2945258 100644 --- a/db-mysql/mysql-sql.lisp +++ b/db-mysql/mysql-sql.lisp @@ -41,7 +41,7 @@ (dotimes (i num-fields) (declare (fixnum i)) (let* ((field (uffi:deref-array field-vec '(:array mysql-field) i)) - (flags (uffi:get-slot-value field 'mysql-field 'flags)) + (flags (uffi:get-slot-value field 'mysql-field 'mysql::flags)) (unsigned (plusp (logand flags 32))) (type (uffi:get-slot-value field 'mysql-field 'type))) (push -- 2.34.1