;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: April 2004
;;;;
-;;;; $Id$
-;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2004 by Kevin M. Rosenberg
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
(setf *mysql-client-info* (uffi:convert-from-cstring (mysql-get-client-info)))
+
(when (and (stringp *mysql-client-info*)
- (plusp (length *mysql-client-info*)))
+ (plusp (length *mysql-client-info*)))
(cond
((eql (schar *mysql-client-info* 0) #\3)
(pushnew :mysql-client-v3 cl:*features*))
((eql (schar *mysql-client-info* 0) #\4)
(pushnew :mysql-client-v4 cl:*features*)
(when (and (>= (length *mysql-client-info*) 3)
- (string-equal "4.1" *mysql-client-info* :end2 3))
- (pushnew :mysql-client-v4.1 cl:*features*)))
+ (string-equal "4.1" *mysql-client-info* :end2 3))
+ (pushnew :mysql-client-v4.1 cl:*features*)))
+ ((eql (schar *mysql-client-info* 0) #\5)
+ (pushnew :mysql-client-v5 cl:*features*)
+ (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*)))))