(formatt"~&NOTE: Without-interrupts is deprecated in multiprocessing Lisp - replace usage with something else in glisp:w-o-interrupts.~%")
#-(orallegrolispworkscmusbclcclabcl)(error"Need implementation for without-interrupts for currently running lisp.~%")
`(#+allegroexcl:without-interrupts
#+lispworksprogn
#+cclprogn
#+abclprogn
#+eclprogn
(formatt"~&NOTE: from glisp:w-o-interrupts: without-interrupts is deprecated in multiprocessing Lisp - using progn - replace usage with something else e.g. process-locks.~%")
#-(orallegrolispworkscmusbclcclabclclisp)
(error"Need implementation for without-interrupts for currently running lisp.~%")
`(#+allegroprogn;; excl:without-interrupts
#+(orlispworkscclabcleclclisp)progn
#+cmusystem:without-interrupts
#+sbclsb-sys:without-interrupts
,@body))
...
...
@@ -328,11 +339,6 @@
#+lispworkscompiler:*produce-xref-info*
t))
#-(orallegrolispworkssbclcclabclecl)(error"need with-definition-unit for currently running lisp.~%")