Optimize FOLD

* In SBCL 1.0.57, REDUCE is rather slow
Optimize array joins