(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)
(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)