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

Source

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