Changed (loop for i integer ...) to (loop for i of-type integer ...); CCL was OK with the former, but not LispWorks.