used CLOS and fixed for ClozureCL