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

[no subject]

(SETQ X 3)
(LET ((X (*FUNCTION (LAMBDA () X))))
  (UNWIND-PROTECT () (FUNCALL X)))
PURPG; AL5AB+3>>HRROM AR1,(A)  AR1/ 0 IN777/ 0

I believe that *FUNCTION is trying to restore th binding context of
the previous binding of X and has to restore +INTERNAL-WITHOUT-INTERRUPTS
along the way and is dying. If that's the case, it should be careful when it 
restores that binding. In fact, I would not care if it did not restore the
proper state of that variable as I believe that 
 (WITHOUT-INTERRUPTS (WITH-INTERRUPTS ...))
is an ill-formed notion.
-kmp