X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure-cload.lisp;fp=tests%2Fclos.impure-cload.lisp;h=beaa4ee4530a4b1545092152ea68f95d83fcd1e8;hb=ded2af78dc3f04e6b0c41817a712516aa4caf62d;hp=121e0dbd30d37eaff6afb5813085b558e3c673c4;hpb=3b83d0a2bdd4c57656efda93e01de5bdf47e28a8;p=sbcl.git

diff --git a/tests/clos.impure-cload.lisp b/tests/clos.impure-cload.lisp
index 121e0db..beaa4ee 100644
--- a/tests/clos.impure-cload.lisp
+++ b/tests/clos.impure-cload.lisp
@@ -55,13 +55,13 @@
 (assert (= (class-allocation-reader) 4))
 
 ;;; 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))
 
 ;;; success
 (sb-ext:quit :unix-status 104)
\ No newline at end of file