Author: hhubner Date: Sat Feb 16 07:43:24 2008 New Revision: 2512 Modified: branches/trunk-reorg/thirdparty/uffi-1.6.0/tests/structs.lisp Log: Add unit test that verifies pointer-to-pointer structure fields. Modified: branches/trunk-reorg/thirdparty/uffi-1.6.0/tests/structs.lisp ============================================================================== --- branches/trunk-reorg/thirdparty/uffi-1.6.0/tests/structs.lisp (original) +++ branches/trunk-reorg/thirdparty/uffi-1.6.0/tests/structs.lisp Sat Feb 16 07:43:24 2008 @@ -19,7 +19,8 @@ (uffi:def-struct foo - (bar :pointer-self)) + (bar :pointer-self) + (pointer-pointer (* (* :unsigned-char)))) (uffi:def-foreign-type foo-ptr (* foo))