| author | Camm Maguire <camm@debian.org> | 2014年09月13日 13:22:09 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年09月13日 13:22:09 -0400 |
| commit | 6207d25f369899453b6e090356fb7173435de6fe (patch) | |
| tree | 797d43d99cf5d36ed6017ee19f292bcfeccf86e0 | |
| parent | cec1dc4946afdbbfd2d2708d84e9d0d8abbb63a9 (diff) | |
| download | gcl-6207d25f369899453b6e090356fb7173435de6fe.tar.gz | |
| -rwxr-xr-x | gcl/clcs/gcl_clcs_top_patches.lisp | 5 |
diff --git a/gcl/clcs/gcl_clcs_top_patches.lisp b/gcl/clcs/gcl_clcs_top_patches.lisp index 9dd57aa4a..c5b4e99f4 100755 --- a/gcl/clcs/gcl_clcs_top_patches.lisp +++ b/gcl/clcs/gcl_clcs_top_patches.lisp @@ -180,3 +180,8 @@ Low level commands: ") (values) ) + +(defmacro without-interrupts (&rest forms) + `(let (*quit-tag* conditions::*restart-clusters*) + ,@forms)) + |