Changed the contract for function FUNCTION-TYPE.
Changed the contract for function FUNCTION-TYPE.

vtomole/SICL,vtomole/SICL,clasp-developers/SICL,clasp-developers/SICL,clasp-developers/SICL,vtomole/SICL,clasp-developers/SICL,vtomole/SICL