0.pre8.9:

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

diff --git a/tests/clos.impure-cload.lisp b/tests/clos.impure-cload.lisp
index 121e0db..beaa4ee 100644 (file)
--- a/tests/clos.impure-cload.lisp
+++ b/tests/clos.impure-cload.lisp
@@ -55,13 +55,13 @@
 (assert (= (class-allocation-reader) 4))
 \f
 ;;; from James Anderson via Gerd Moellmann: defining methods with
-;;; forward-referenced specializers used not to work (FIXME: and also
-;;; calling said method with an instance of something else
-;;; [SPECIALIZER1, here] should work -- patch forthcoming)
+;;; specializers with forward-referenced superclasses used not to
+;;; work.
 (defclass specializer1 () ())
 (defclass specializer2 (forward-ref1) ())
 (defmethod baz ((x specializer2)) x)
 (defmethod baz ((x specializer1)) x)
+(assert (typep (baz (make-instance 'specializer1)) 'specializer1))
 \f
 ;;; success
 (sb-ext:quit :unix-status 104)
\ No newline at end of file