struct.lisp: Add struct :free special method

To free struct allocated via :allocate special constructor.
gir-test.lisp: Add test case for struct :free