Skip to content
Snippets Groups Projects
Commit cdcf76ff authored by rtoy's avatar rtoy
Browse files

Fix a bug in compute-restarts failing to compute the correct

restarts.  Bug reported by Helmut Eller, cmucl-imp, 2005-02-27.
Solution by Nikodemus Siivola, cmucl-imp, 2005-10-12.
parent a0509522
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.80 2005/09/09 19:36:34 pmai Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.81 2005/10/14 16:06:23 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -114,7 +114,8 @@ ...@@ -114,7 +114,8 @@
(when (and (or (not condition) (when (and (or (not condition)
(member restart associated) (member restart associated)
(not (member restart other))) (not (member restart other)))
(funcall (restart-test-function restart) condition)) (or (not condition)
(funcall (restart-test-function restart) condition)))
(res restart)))) (res restart))))
(res)))) (res))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment