(defmethod provide-mopp-symbol ((symbol symbol) (implementation (eql :cmu))) (when (find-symbol (string symbol) :pcl) (import-to-mopp (find-symbol (string symbol) :pcl))))