(when (and (>= (length *mysql-client-info*) 3)
(string-equal "5.1" *mysql-client-info* :end2 3))
(pushnew :mysql-client-v5.1 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*)))