Removed spaces before newlines.
Shadow CATCH to avoid clash with the CL package.
Defined function UNWIND-PROTECT to be called when an UNWIND-PROTECT  is established.