gcl.git - GNU Common Lisp

diff --git a/gcl/clcs/gcl_clcs_restart.lisp b/gcl/clcs/gcl_clcs_restart.lisp
index de4a3398a..05e135f6e 100755
--- a/gcl/clcs/gcl_clcs_restart.lisp
+++ b/gcl/clcs/gcl_clcs_restart.lisp

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

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

(defun kcl-top-restarts ()

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

- si::*quit-tags*))

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

+ (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)))

(setq *kcl-top-restarts* (mapcar #'cons tags restarts))