X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=clsql-mysql%2Ftesting%2Fmysql-struct-size.cl;fp=clsql-mysql%2Ftesting%2Fmysql-struct-size.cl;h=0000000000000000000000000000000000000000;hb=7b296f477e74a6db6e319e6cb6dff16be44e6a60;hp=60dfd9205d3418bf60e5eb3d061adac1085a8c2a;hpb=b0770ce015dd263398ea13f1df810173574a6752;p=clsql.git

diff --git a/clsql-mysql/testing/mysql-struct-size.cl b/clsql-mysql/testing/mysql-struct-size.cl
deleted file mode 100644
index 60dfd92..0000000
--- a/clsql-mysql/testing/mysql-struct-size.cl
+++ /dev/null
@@ -1,11 +0,0 @@
-(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))
-