changed one statement to let from setf. Not good with this functional programming thing