Optimize loop and replace EQL by CHAR=.
Optimize loop and replace EQL by CHAR=.

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