Simplified code by using a simple list in combination with `destructuring-bind' instead of an alist.