Hi Jon,

> right now, but if you try this ...
> (ifwarnfile "lib/form.l")

Yes, it hangs.

I traced 'read' and 'ifwarn' and found the reason to be line 1267:

   (mapc 'set> G ((: put) D I) '(T .)) )

'(T .) is a circular list, and 'mapcar' will loop infinitely.

BTW, 'mapcar' builds a list which is not used, so 'mapc' might be more

> And thanks a lot for mentioning the 'who' function. I'll try it.

'who' by itself is not so very useful. I mostly call it like

   : (more (who 'something) pp)

to pretty-print the functions one by one.

   Software Lab. Alexander Burger
   Bahnhofstr. 24a, D-86462 Langweid
   [EMAIL PROTECTED], www.software-lab.de, +49 8230 5060

Reply via email to