(defmethod provide-mopp-symbol ((symbol (eql 'mopp:slot-definition-documentation)) (implementation (eql :allegro))) t)