From 17549068584747af68735b4d022067ad94d42e3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Mon, 4 Jan 2016 12:08:45 +0100
Subject: [PATCH] tests: add a regression test for a MOP bug #203

---
 .../regressions/tests/metaobject-protocol.lsp | 21 +++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/src/tests/regressions/tests/metaobject-protocol.lsp b/src/tests/regressions/tests/metaobject-protocol.lsp
index d4c5554e7..e767a344f 100644
--- a/src/tests/regressions/tests/metaobject-protocol.lsp
+++ b/src/tests/regressions/tests/metaobject-protocol.lsp
@@ -2,6 +2,7 @@
 ;;;; vim: set filetype=lisp tabstop=8 shiftwidth=2 expandtab:
 
 ;;;; Author:   Juan Jose Garcia-Ripoll
+;;;; Author:   Daniel Kochmański
 ;;;; Created:  Fri Apr 14 11:13:17 CEST 2006
 ;;;; Contains: Metaobject Protocol tests
 
@@ -613,4 +614,24 @@
            (progn (foo 1.0) (= *mop-dispatch-used* 2))))
   t)
 
+;;; From: Pascal Costanza
+;;; Description:
+;;;
+;;;     sort-applicable-methods is invoked by two methods and one
+;;;     invocation triggers a disambiguation error:
+;;;
+;;;       Condition of type: SIMPLE-ERROR
+;;;       The type specifiers #<The STANDARD-CLASS COMMON-LISP-USER::B> and #<The STANDARD-CLASS COMMON-LISP-USER::A> can not be disambiguated with respect to the argument specializer: #<The STANDARD-CLASS STANDARD-CLASS>
+(deftest mop-compute-applicable-methods-disambiguation.0001
+    (ext:with-clean-symbols (a b c f)
+      (defclass a () ())
+      (defclass b () ())
+      (defclass c (a b) ())
+      (defmethod f ((o a)))
+      (defmethod f ((o b)))
+      (compute-applicable-methods-using-classes
+       #'f (list (find-class 'c)))
+      T)
+  T)
+