From 0d3991c882c571bbbf0738fde4a65ad1eef0ae16 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 4 Dec 1990 15:29:21 +0000
Subject: [PATCH] Added WITHOUT-INTERRUPTS. Maybe it should do without-gcing
 too...

---
 pcl/cmu-low.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/pcl/cmu-low.lisp b/pcl/cmu-low.lisp
index 22d391bc5..a8f3c9163 100644
--- a/pcl/cmu-low.lisp
+++ b/pcl/cmu-low.lisp
@@ -30,6 +30,13 @@
 (in-package 'pcl)
 
 
+;;; Just use our without-interrupts.  We don't have the INTERRUPTS-ON/OFF local
+;;; macros spec'ed in low.lisp, but they aren't used.
+;;;
+(defmacro without-interrupts (&rest stuff)
+  `(sys:without-interrupts ,@stuff))
+
+
 ;;; Print the object addr in default printers.
 ;;;
 (defun printing-random-thing-internal (thing stream)
-- 
GitLab