方法：ASDFで作成したシステムを使用しますか？

Question

システムAおよびシステムBは、ASDFを使用して作成されたシステムです。それらは両方とも.asdファイルにシステム定義を持ち、パッケージを定義するとそれぞれ:system-aと:system-bです。

私はSystem-Aのパッケージ定義にSystem-Bのパッケージを:useにします。 System-Bのパッケージを参照することなくSystem-AのSystem-Bのシンボルを使用できるようにしたい。具体的には、system-b:symbolではなくsymbolを使用します。

現在、システムAのパッケージ定義では、:use :system-bを試しています。これは、自分のシステムではなく、QuickLispを使ってインポートしたライブラリをインターンにするために働きます。

:use :system-b私はSystem-Aのパッケージ内のシンボルをインターンすることができますか？

Answer 1

ここで私は私が見つけた解決策が表示されます：

---

最初はパッケージ定義でシンボルをエクスポートすることです。私の例を使用して、システム-Bのパッケージ定義で

(defpackage :system-b 
    (:use :cl) 
    (:export :symbol1 
      :symbol2 
      ...)) 

およびシステムAのパッケージ定義で

(defpackage :system-a 
    (:use :cl 
     :system-b)) 

次に、あなたが(in-package :system-a)ているときは、System-Bのエクスポートされたシンボルへのアクセス権を持っています。

---

第二に、あなたは（ユーティリティパッケージを作る）エクスポートするシンボルの多くを持っている場合は、以下を使用することができますが、hereを発見しました。

(let ((package (find-package :foo))) 
    (do-all-symbols (symbol package) 
    (when (eql (symbol-package symbol) package) 
     (export symbol)))) 

すべてのシンボルが作成された後にこのコードを入力してください。 ASDFを使用する場合は、システム定義で最後にロードされたファイルにこれらの行を含めて、手動で定義することなくすべてのシンボルをエクスポートすることができます。

---

シンボルをエクスポートする第三の選択肢は、他のもののうち、あなたがそれをエクスポートする@exportを関数の接頭辞として指定することを可能にする、cl-annotです。例えば、

@export 
(defun foobar() 
    ...) 

が

(progn 
    (export 'foobar) 
    (defun foobar() 
    ...))