| author | Camm Maguire <camm@debian.org> | 2014年09月13日 13:14:42 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年09月13日 13:14:42 -0400 |
| commit | cec1dc4946afdbbfd2d2708d84e9d0d8abbb63a9 (patch) | |
| tree | d558f35d10ac6547f93a5023e632299ecc7c466e | |
| parent | e6df343661c954b7064e941f7fb1c9ccb6b1997b (diff) | |
| download | gcl-cec1dc4946afdbbfd2d2708d84e9d0d8abbb63a9.tar.gz | |
| -rwxr-xr-x | gcl/clcs/gcl_clcs_restart.lisp | 4 |
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)) |