db-mysql/testing/mysql-struct-size.lisp

   1 (in-package :mysql)
   2
   3 #+lispworks
   4 (progn
   5   (setq c (fli:allocate-foreign-object :type 'mysql-mysql))
   6   (format t "~&Size MYSQL structure: ~d" (fli:pointer-element-size c)))
   7 #+allegro
   8 (progn
   9   (setq c (ff:allocate-fobject 'mysql-mysql :foreign))
  10   (format t "~&Size MYSQL structure: ~A" c))
  11