Method on (SETF SICL-ENV:COMPILER-MACRO-FUNCTION).
Removed useless PROGN.