r10262: add missing package name to mysql::flags

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index c87da8699df6835c8693bd704e349070b25adabf..2945258de5f292f1f668a278a7f446e038d78d91 100644 (file)
--- 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