+;;; 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