Comment 1 for bug 309076

I can't reproduce this.

CL-USER> (defclass foo (standard-class) ()
           (:metaclass sb-mop:funcallable-standard-class))
#<SB-MOP:FUNCALLABLE-STANDARD-CLASS FOO>
CL-USER> (sb-mop:finalize-inheritance (find-class 'foo))
; Evaluation aborted on #<SB-PCL::CPL-PROTOCOL-VIOLATION {5A6C15C9}>.
CL-USER> (defclass bar (standard-class) ())
#<STANDARD-CLASS BAR>
CL-USER> (make-instance 'bar)
#<BAR NIL {5A9B4B21}>
CL-USER>
; No value
CL-USER>
; No value
CL-USER> (defclass prioritized-dispatcher ()
               ((dependents :type list :initform nil)))
#<STANDARD-CLASS PRIORITIZED-DISPATCHER>
CL-USER> (defmethod sb-pcl:validate-superclass ((c1 sb-pcl:funcallable-standard-class)
                                                (c2 (eql (find-class 'prioritized-dispatcher))))
           t)
; Evaluation aborted on #<SB-PCL::CPL-PROTOCOL-VIOLATION {5AB846C9}>.
CL-USER> (defclass prioritized-generic-function (prioritized-dispatcher standard-generic-function)
           ()
           (:metaclass sb-pcl:funcallable-standard-class))
#<SB-MOP:FUNCALLABLE-STANDARD-CLASS PRIORITIZED-GENERIC-FUNCTION>
CL-USER> (defclass typechecking-reader-class (standard-class)
           ())
#<STANDARD-CLASS TYPECHECKING-READER-CLASS>
CL-USER> (lisp-implementation-version)
"1.1.6.14-76e4485-dirty"
CL-USER>