Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.
> * Bruno Haible <unvoyr@...> [2004-10-28 12:57:27 +0000]:
> +;; Check that after a Ctrl-D (EOF), assert without places is not retried.
> +(let ((done nil))
> + (block test
> + (sys::driver
> + #'(lambda ()
> + (when done (return-from test nil))
> + (setq done t)
> + (let ((*debug-io*
> + (make-two-way-stream (make-string-input-stream "")
> + *terminal-io*)))
> + (assert (= 1 2)))))))
this abruptly terminates the check process.
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
Bus error -- please leave by the rear door.