diff --git a/pcl/cmu-low.lisp b/pcl/cmu-low.lisp index 22d391bc52e3c6b2f9d07073596cbb4a34a107fa..a8f3c9163be494b9cb493cb9474260e62989e175 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)