X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-mysql%2Ftesting%2Fmysql-struct-size.lisp;h=3aac6f9008b0af28a3a7e9d3badf59a5e6d80eee;hp=60dfd9205d3418bf60e5eb3d061adac1085a8c2a;hb=refs%2Ftags%2Fv3.8.6;hpb=215ec41559dda52d46539d48a0aa390811c2423c diff --git a/db-mysql/testing/mysql-struct-size.lisp b/db-mysql/testing/mysql-struct-size.lisp index 60dfd92..3aac6f9 100644 --- a/db-mysql/testing/mysql-struct-size.lisp +++ b/db-mysql/testing/mysql-struct-size.lisp @@ -1,10 +1,10 @@ (in-package :mysql) -#+lispworks +#+lispworks (progn (setq c (fli:allocate-foreign-object :type 'mysql-mysql)) (format t "~&Size MYSQL structure: ~d" (fli:pointer-element-size c))) -#+allegro +#+allegro (progn (setq c (ff:allocate-fobject 'mysql-mysql :foreign)) (format t "~&Size MYSQL structure: ~A" c))