From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 10 Jan 2005 08:18:57 +0000 (+0000)
Subject: r10262: add missing package name to mysql::flags
X-Git-Tag: v3.8.6~190
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=4e598a5e04818207730914f609f953dac439c566

r10262: add missing package name to mysql::flags
---

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