Resolve mapcar-and-reduce.lsp