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

[no subject]



(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?