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

diff --git a/tests/clos.impure-cload.lisp b/tests/clos.impure-cload.lisp
index b5c96f0..121e0db 100644
--- a/tests/clos.impure-cload.lisp
+++ b/tests/clos.impure-cload.lisp
@@ -54,5 +54,14 @@
 (class-allocation-writer 4)
 (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)
+(defclass specializer1 () ())
+(defclass specializer2 (forward-ref1) ())
+(defmethod baz ((x specializer2)) x)
+(defmethod baz ((x specializer1)) x)
+
 ;;; success
 (sb-ext:quit :unix-status 104)
\ No newline at end of file