lisp, scheme: Avoid invalid memory access
* format-lisp.c (make_intersected_list): Don't dereference
potentially released memory. 'append_repeated_to_initial' may
release the LIST->element. Spotted by clang-analyzer.
* format-scheme.c (make_intersected_list): Likewise.