are there any amcros that play well with destructuring bind of define-type's ? I just want to check to see if there's a pre-existing solution before re-inventing my own.<br><br>I find myself writing way too much code of the form:<br>
<br>(define-type foo a b)<br>(define-type bar c d)<br><br>(lambda (x)<br>  (let ((c (bar-c x) (d (bar-d x)))<br>    (let ((a (foo-a a) (b (foo-b b)) ...<br><br>Thanks!<br>