0.7.6.21:

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

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 1e70590..ab0e2b4 100644 (file)
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -212,6 +212,20 @@
 (assert (eq (ffin *cod*) 'almost-triang-fin))
 (assert (equalp #((:before cod) (cod)) *clos-dispatch-side-fx*))
 \f
+;;; Until sbcl-0.7.6.21, the long form of DEFINE-METHOD-COMBINATION
+;;; ignored its options; Gerd Moellmann found and fixed the problem
+;;; for cmucl (cmucl-imp 2002-06-18).
+(define-method-combination test-mc (x)
+  ;; X above being a method-group-specifier
+  ((primary () :required t))
+  `(call-method ,(first primary)))
+
+(defgeneric gf (obj)
+  (:method-combination test-mc 1))
+
+(defmethod gf (obj)
+  obj)
+\f
 ;;;; success
 
 (sb-ext:quit :unix-status 104)