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