use cl-destructuring-bind