> (let ((lhs-quad (cffi:foreign-slot-value lhs '(:struct liblmdb:val)
> 'liblmdb:mv-data))
> (rhs-quad (cffi:foreign-slot-value rhs '(:struct liblmdb:val)
> 'liblmdb:mv-data)))
> (declare (dynamic-extent lhs-quad rhs-quad))
> (%compare-quad lhs-quad rhs-quad)))
try to use (cffi:with-foreign-object (lhs :pointer) ...)
--
• attila lendvai
• PGP: 963F 5D5F 45C7 DFCD 0A39
--
“There is one thing stronger than all the armies in the world, and
that is an idea whose time has come.”
— Victor Hugo (1802–1885)
