0.7.12.28

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

diff --git a/tests/mop.impure.lisp b/tests/mop.impure.lisp
index e038b6c..6735c81 100644 (file)
--- a/tests/mop.impure.lisp
+++ b/tests/mop.impure.lisp
@@ -87,5 +87,13 @@
 (make-instance 'finalization-test-2)
 (assert (= (get-count) 3))
 \f
+;;; Bits of FUNCALLABLE-STANDARD-CLASS are easy to break; make sure
+;;; that it is at least possible to define classes with that as a
+;;; metaclass.
+(defclass gf-class (standard-generic-function) ()
+  (:metaclass sb-pcl::funcallable-standard-class))
+(defgeneric g (a b c)
+  (:generic-function-class gf-class))
+\f
 ;;;; success
 (sb-ext:quit :unix-status 104)