No you are ok...Its the help I asked for and at this point I will eat humble pie and say stick it in there for me if you would. I think it should go in the last while block so that my list is reduced by an element with every iteration. I have tried putting it where I think it should but no success.
... an infinity loop -- keeps writing to the file. Why is the while loop not terminating? ...
Based solely on that ^ comment I assume the problem is in the "write" loop:
(while (setq M_Line2 (car Listfile1))
(write-line M_Line2 conv)
)
Looking at it, the exit condition is
"when (setq M_Line2 (car Listfile1)) returns nil". Examining said loop, no code modifies Listfile1, therefore (setq M_Line2 (car Listfile1)) will always be non nil, ergo infinite loop. Clear as mud? PS: It's the only part of the proggy I looked at, other errors may abound.