Method: (PROVIDE-MOPP-SYMBOL SYMBOL (EQL SBCL))

Source

(defmethod provide-mopp-symbol ((symbol symbol)
                                (implementation (eql :sbcl)))
  (when (find-symbol (string symbol) :sb-mop)
    (import-to-mopp (find-symbol (string symbol) :sb-mop))))