mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

The code for disabling interrupts was outdated in clx (src/clx/dependent)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-02 22:03:53 +01:00
parent dc0ce4b7ab
commit b37ee19177
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/clx/dependent.lisp
View file

@ -1347,10 +1347,7 @@
#+ecl
(defmacro without-interrupts (&body body)
#+threads
`(mp:without-interrupts ,@body)
#-threads
`(let ((ext:*interrupt-enable* nil)) ,@body))
`(mp:without-interrupts ,@body))
#+sbcl
(defvar *without-interrupts-sic-lock*