(let ((,args (basic-combination-args ,call)))
(when (= (length ,args) ,(length lambda-list))
(destructuring-bind ,lambda-list ,args
(let ((,args (basic-combination-args ,call)))
(when (= (length ,args) ,(length lambda-list))
(destructuring-bind ,lambda-list ,args