Skip to content
Snippets Groups Projects
Commit 6c6786ee authored by pfdietz's avatar pfdietz
Browse files

Disabled two disputed tests

parent b4342bb8
No related branches found
No related tags found
No related merge requests found
......@@ -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)
|#
......
......@@ -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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment