[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]



### 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.
-kmp