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