そういうわけで試した結果これでどう？
指定したクラスのアクセサ関数（リーダ関数だけを見てるのでもうちょっとリファイン必要）を全部exportする。
(defun export-slot-accessors (cls)
　(loop for a in (loop for s in (moptilities:slot-names cls)
　　　　nconc (destructuring-bind (&key readers &allow-other-keys)
　　　　　　　 (moptilities:slot-properties 'a s) readers))
　 do (export a)))
しかしなあ主にパッケージ使う側の人間から言わしてもらうとあれこれエクスポートするパッケージは使いにくいぞな