From c77672f2a8cac3dbda2c3ecaa6d04c9a91c1ec71 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 9 Sep 1990 20:37:56 +0000 Subject: [PATCH] Removed {with,without}-interrupts 'cause better (i.e. working) versions exist in signal.lisp. --- code/sysmacs.lisp | 24 ------------------------ 1 file changed, 24 deletions(-) diff --git a/code/sysmacs.lisp b/code/sysmacs.lisp index c50a45d52..61c3c2f8b 100644 --- a/code/sysmacs.lisp +++ b/code/sysmacs.lisp @@ -49,30 +49,6 @@ (maybe-gc nil)))) -(defmacro with-interrupts (&body body) - `(let ((iin %sp-interrupts-inhibited)) - (setq %sp-interrupts-inhibited NIL) - (when (consp iin) - (dolist (x iin) - (let ((f (svref *software-interrupt-vector* (car x)))) - (when f (apply f x))))) - (unwind-protect - (progn ,@body) - (if iin (setq %sp-interrupts-inhibited T))))) - -(defmacro without-interrupts (&rest body) - "Evaluates the forms in the Body without allowing interrupts." - `(let* ((old-interrupts-inhibited %sp-interrupts-inhibited) - (%sp-interrupts-inhibited (or %sp-interrupts-inhibited T))) - (multiple-value-prog1 - (progn ,@body) - (when (and (null old-interrupts-inhibited) - (consp %sp-interrupts-inhibited)) - (dolist (x %sp-interrupts-inhibited) - (let ((f (svref *software-interrupt-vector* (car x)))) - (when f (apply f x)))))))) - - (defmacro with-enabled-interrupts (interrupt-list &body body) "With-enabled-interrupts ({(interrupt function [character])}*) {form}* Establish function as a handler for the Unix signal interrupt which -- GitLab