Remove PROGNATE-BODY temporarily
Simplify PCL:HANDLER-CASE