(handler-case
    (destructuring-bind (a b &key c) object
      (handler-case
          (body a b c object)
        (error (err)
          (format *error-output* "~&Detected error in body: ~A~%"))))
  (error (err)
    (format *error-output* "~&Detected error in destructuring-bind: ~A~%")))