(defvar *allow-with-interrupts* t)
;;; This is to support signal handlers that want to return to the
;;; interrupted context without leaving anything extra on the stack. A
(defvar *allow-with-interrupts* t)
;;; This is to support signal handlers that want to return to the
;;; interrupted context without leaving anything extra on the stack. A
(receive-pending-interrupt)))
(locally ,@with-forms))))
(let ((*interrupts-enabled* nil)
(receive-pending-interrupt)))
(locally ,@with-forms))))
(let ((*interrupts-enabled* nil)
;; another WITHOUT-INTERRUPTS, the pending interrupt will be
;; handled immediately upon exit from said
;; WITHOUT-INTERRUPTS, so it is as if nothing has happened.
;; another WITHOUT-INTERRUPTS, the pending interrupt will be
;; handled immediately upon exit from said
;; WITHOUT-INTERRUPTS, so it is as if nothing has happened.
(receive-pending-interrupt)))
(,without-interrupts-body)))))
(receive-pending-interrupt)))
(,without-interrupts-body)))))
(when *unblock-deferrables-on-enabling-interrupts-p*
(setq *unblock-deferrables-on-enabling-interrupts-p* nil)
(sb!unix::unblock-deferrable-signals))
(when *unblock-deferrables-on-enabling-interrupts-p*
(setq *unblock-deferrables-on-enabling-interrupts-p* nil)
(sb!unix::unblock-deferrable-signals))
(defun %check-interrupts ()
;; Here we check for pending interrupts first, because reading a
;; special is faster then binding it!
(defun %check-interrupts ()
;; Here we check for pending interrupts first, because reading a
;; special is faster then binding it!