Recognize v6 of MySQL client library

diff --git a/ChangeLog b/ChangeLog
index b9dc6067f0b4ee5c0343ae990c4ae9d96ccb4c37..cafdc63091264220dce21b45ac832df3e8d4719f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-01  Kevin Rosenberg <kevin@rosenberg.net>
+       * db-mysql/mysql-client-info.lisp: Add recognition of
+       version 6 of MySQL client library.
+
 2011-03-30  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 5.3.1
        * sql/metaclasses.lisp: Fix previous patch to work

diff --git a/db-mysql/mysql-client-info.lisp b/db-mysql/mysql-client-info.lisp
index d27c7589a48dfb5dfde0c880ab50e7d62e58362f..9b791df2302962c26be50f2035cf0de2a747f8be 100644 (file)
--- a/db-mysql/mysql-client-info.lisp
+++ b/db-mysql/mysql-client-info.lisp
@@ -44,6 +44,8 @@
        (when (and (>= (length *mysql-client-info*) 3)
                   (string-equal "5.1" *mysql-client-info* :end2 3))
          (pushnew :mysql-client-v5.1 cl:*features*)))
+      ((eql (schar *mysql-client-info* 0) #\6)
+       (pushnew :mysql-client-v6 cl:*features*))
       (t
        (error "Unknown mysql client version '~A'." *mysql-client-info*)))))