Changing CommonLisp to cl