(progn
(setq c (fli:allocate-foreign-object :type 'mysql-mysql))
(format t "~&Size MYSQL structure: ~d" (fli:pointer-element-size c)))
(progn
(setq c (fli:allocate-foreign-object :type 'mysql-mysql))
(format t "~&Size MYSQL structure: ~d" (fli:pointer-element-size c)))