X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop.impure.lisp;h=d5116f999bca40a8a6d59e87d26a0acebbce8449;hb=d4e550ede8beccef4312e621a644b89f9d76f74d;hp=e010957d9260da0b2a239e99c465aaad572c449e;hpb=2e4a94905d6e70d0e1c45ad86c3b29c1b36c96fc;p=sbcl.git

diff --git a/tests/mop.impure.lisp b/tests/mop.impure.lisp
index e010957..d5116f9 100644
--- a/tests/mop.impure.lisp
+++ b/tests/mop.impure.lisp
@@ -161,5 +161,14 @@
 ;;; 2003-04-17
 (assert (> *compute-effective-slot-definition-count* 0))
 
+;;; this used to cause a nasty uncaught metacircularity in PCL.
+(defclass substandard-method (standard-method) ())
+(defgeneric substandard-defgeneric (x y)
+  (:method-class substandard-method)
+  (:method ((x number) (y number)) (+ x y))
+  (:method ((x string) (y string)) (concatenate 'string x y)))
+(assert (= (substandard-defgeneric 1 2) 3))
+(assert (string= (substandard-defgeneric "1" "2") "12"))
+
 ;;;; success
 (sb-ext:quit :unix-status 104)