Replace case with cl-case