Compute the block name as the HyperSpec says.
The variable *GLOBAL-ENVIRONMENT* is in the package named SICL-ENV.
Load the definition of (SETF CL:FDEFINITION).
Removed manual definition of (SETF CL:FDEFINITION), now loaded from a file.