[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
- To: GLS at MIT-AI
- To: (BUG LISP) at MIT-MC
- Subject:
- From: JONL@MIT-MC
- From: KMP at MIT-MC (Kent M. Pitman)
- Date: Thu, 23 Feb 79 00:55:54 GMT
- Date: Thu, 22 Feb 79 07:21:00 GMT
- Cc: (BUG LISP) at MIT-MC
- Cc: KEN at MIT-MC, RWK at MIT-MC, (FILE [KMP;DSK:KMP XMAIL]) at MIT-MC
- Original-date: 02/22/79 20:55:54 EDT
- Original-date: 22 FEB 1979 0221-EST
(DEFUN (PI MACRO) (FORM)
(LET ((TEMP (GENSYM)))
`((LAMBDA (,TEMP)
(UNWIND-PROTECT ()
(NOINTERRUPT ,TEMP)
,@ (CDR FORM)))
(NOINTERRUPT (SETQ ,TEMP (NOINTERRUPT T))))))
(NOINTERRUPT NIL)
NIL
(PI (TYI) (TYI))<Control-G><Control-G>
NIL
(NOINTERRUPT NIL)
NIL
(PI (TYI) (TYI))QUIT
The QUIT is the <Control-G> quits taking effect. Why didn't they
happen when the (NOINTERRUPT ()) was done?