[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: (BUG LISP) at MIT-MC, (BUG COMPLR) at MIT-MC
- From: KMP at MIT-MC (Kent M. Pitman)
- Date: Fri, 15 Feb 80 12:16:00 GMT
- Original-date: 15 FEB 1980 0716-EST
### Sorry for half-finished message before -- ^C key doubled ###
The following code:
(EVAL-WHEN (EVAL COMPILE) (LOAD'LIBLSP/;IOTA))
(DEFUN SMART-PROBEF (FILE)
(AND (ERRSET (IOTA ((STREAM FILE '(IN NODEFAULT))) T) NIL) T))
when used with a non-existent file -- eg,
(SMART-PROBEF '((DSK FOO) BAR BAZ))
-- returns NIL but leaves interrupts turned off(?) ... doing
<Control-G> T<space> (NOINTERRUPT T) (NOINTERRUPT NIL)
should illustrate the state of the world after this has been done.
This is buggy in both compiled and interpreted code.