Function Execute-Protected

Part of:

package cl-perec
( execute-protected < init > < body > < cleanup > )