X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=db-mysql%2Ftesting%2Fmysql-struct-size.lisp;fp=db-mysql%2Ftesting%2Fmysql-struct-size.lisp;h=60dfd9205d3418bf60e5eb3d061adac1085a8c2a;hb=7d50938ba2db52a713498e49aa1679deae6f0b6b;hp=0000000000000000000000000000000000000000;hpb=998937376fa6f9ce29bd3c7954fb0ebca91c37d7;p=clsql.git

diff --git a/db-mysql/testing/mysql-struct-size.lisp b/db-mysql/testing/mysql-struct-size.lisp
new file mode 100644
index 0000000..60dfd92
--- /dev/null
+++ b/db-mysql/testing/mysql-struct-size.lisp
@@ -0,0 +1,11 @@
+(in-package :mysql)
+
+#+lispworks 
+(progn
+  (setq c (fli:allocate-foreign-object :type 'mysql-mysql))
+  (format t "~&Size MYSQL structure: ~d" (fli:pointer-element-size c)))
+#+allegro 
+(progn
+  (setq c (ff:allocate-fobject 'mysql-mysql :foreign))
+  (format t "~&Size MYSQL structure: ~A" c))
+