Use pcase instead of cl-destructuring-bind and manual destructuring