0.9.17.3:

[sbcl.git] / tests / clos.impure.lisp

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index a5b1085..0bef77f 100644 (file)
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -1393,9 +1393,8 @@
     (loop until (null x)
           do (incf result) (setq x (slot-value x 'cdroid)))
     result))
-(with-test (:name ((:setq :method-parameter) slot-value) :fails-on :sbcl)
+(with-test (:name ((:setq :method-parameter) slot-value))
   (assert (= (lengthoid (make-instance 'listoid)) 1))
-  (error "the failure mode is an infinite loop")
   (assert (= (lengthoid
               (make-instance 'listoid :cdroid
                              (make-instance 'listoid :cdroid