struct.lisp: Add struct :free special method

To free struct allocated via :allocate special constructor.

v2: avoid double free.