rely on nil si::*quit-tags* to enforce without-interrupts - gcl.git - GNU Common Lisp

diff --git a/gcl/clcs/gcl_clcs_restart.lisp b/gcl/clcs/gcl_clcs_restart.lisp
index 49f16e824..1ff3d6e17 100755
--- a/gcl/clcs/gcl_clcs_restart.lisp
+++ b/gcl/clcs/gcl_clcs_restart.lisp

@@ -88,7 +88,8 @@

*kcl-top-restarts*)))))

(defun kcl-top-restarts ()

- (let* ((old-tags (ldiff si::*quit-tags* (member nil si::*quit-tags* :key 'cdr)))

+ (let* (;(old-tags (ldiff si::*quit-tags* (member nil si::*quit-tags* :key 'cdr)))

+ (old-tags si::*quit-tags*)

(old-tags (mapcan #'(lambda (e) (when (cdr e) (list (cdr e)))) old-tags))

(tags (if si::*quit-tag* (cons si::*quit-tag* old-tags) old-tags))

(restarts (mapcar #'find-kcl-top-restart tags)))

diff --git a/gcl/clcs/gcl_clcs_top_patches.lisp b/gcl/clcs/gcl_clcs_top_patches.lisp
index a318509c4..e758c79d1 100755
--- a/gcl/clcs/gcl_clcs_top_patches.lisp
+++ b/gcl/clcs/gcl_clcs_top_patches.lisp

@@ -191,6 +191,6 @@ Low level commands:

)

(defmacro without-interrupts (&rest forms)

- `(let (*quit-tag* conditions::*restart-clusters*)

+ `(let* (*quit-tag* *quit-tags* conditions::*restart-clusters*)

,@forms))