suspend

[dr at MIT-MC (David M. Raitzin)]

I think there is something wrong with the "suspend" function.  Here is a 
function that I wrote:

(defun reduce-dump ()
        (gc)
        (sstatus gctime 0)
	(suspend '|:pdump reduce;ts reduce/
:$all done$/
|)
	(begin))

When I try to run it, I get an error that i/o is in progress and that I
can't suspend, even though the only i/o that is in progress is to the tty.
Either it's a bug, or suspend should allow i/o to the tty.