[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
^G while inside UNWIND-PROTECT
- To: (BUG LISP) at MIT-MC
- Subject: ^G while inside UNWIND-PROTECT
- From: RLB at MIT-MC (Richard L. Bryan)
- Date: Fri, 12 Jan 79 15:42:00 GMT
- Original-date: 12 JAN 1979 1042-EST
Well, maybe the situation is well defined, but I still get MPV and sometimes
PURPG traps when I attempt the quit. Specifically, type at a bare Lisp,
(defun x ()
(*catch 'foo (unwind-protect (+ 0 0.0)
(*throw 'foo 'foo))))))
Just run (X) and at the ;WRNG-TYPE-ARG type ^G.
Obviously, $P never wins. Sometimes $G wins, sometimes 100$G wins,
and sometimes even 100$G loses. I haven't figured out just how
to reproduce all these.
JONL, you said someone was pushing an extra word on INTPDL?