diff --git a/ansi-tests/compute-restarts.lsp b/ansi-tests/compute-restarts.lsp index 21e5bd8fd06b3df6479818f8716d63e430de535a..04a6b2eeb25713fd9f36cfab9de55e4f01760561 100644 --- a/ansi-tests/compute-restarts.lsp +++ b/ansi-tests/compute-restarts.lsp @@ -100,6 +100,9 @@ (foo () 'also-bad))))) nil nil) +;;; This test is disabled until I figure out how to fix +;;; it. See sbcl-devel mailing list, Oct 2005 +#| (deftest compute-restarts.10 (let ((c2 (make-condition 'error))) (block done @@ -121,6 +124,7 @@ (foo () :test (lambda (c) (or (null c) (not (eq c c2)))) 'also-bad))))) nil nil) +|# diff --git a/ansi-tests/restart-bind.lsp b/ansi-tests/restart-bind.lsp index e6cbeaf8458f624bf6808b45ca59fb49474b0537..c8af54a7a75986872ac8a2509def9b17abf704c8 100644 --- a/ansi-tests/restart-bind.lsp +++ b/ansi-tests/restart-bind.lsp @@ -146,6 +146,9 @@ ;;; Using the :test-function to associate a restart with a condition +;;; This test is disabled until I figure out how to fix +;;; it. See sbcl-devel mailing list, Oct 2005 +#| (deftest restart-bind.20 (let ((c (make-condition 'error))) (restart-bind @@ -156,6 +159,7 @@ (eq c c2))))) (invoke-restart (find-restart 'foo c)))) good) +|# (deftest restart-bind.21 (let ((c (make-condition 'error)))