projects
/
clsql.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
r2166: *** empty log message ***
[clsql.git]
/
interfaces
/
mysql
/
testing
/
mysql-struct-size.cl
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