> * 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)))))))
> +nil
> +
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/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
Bus error -- please leave by the rear door.
|