Практическое руководство. Использование систем, которые я создаю с помощью ASDF?

Question

Системы-A и System-B - это системы, созданные с использованием ASDF. Они оба имеют определения системы в файлах .asd и определяют пакеты, :system-a и :system-b, соответственно.

Я хочу, чтобы System-A был :use Пакет System-B в свою корзину. Я хочу, чтобы я мог использовать символы System-B в System-A, не обращаясь к пакету System-B. В частности, я хочу использовать symbol, а не system-b:symbol.

В настоящее время в определении пакета System-A я пытаюсь использовать :use :system-b. Это работает с библиотеками-экземплярами, которые я импортировал с помощью QuickLisp, но не для моих собственных систем.

Как я могу :use :system-b, чтобы я ставил символы в пакете System-A?

Answer 1

Здесь я покажу решения я нашел:

---

Первый экспортировать символы в определении пакета. Используя мой пример, в определении пакета System-Б

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

И в определении пакета System-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, в определении вашей системы вы можете загрузить последний файл, содержащий эти строки, чтобы экспортировать все символы без необходимости их вручную определять.

---

Третий вариант экспорта символов является cl-annot, которая, среди прочего, позволяет префикс функции с @export экспортировать его. Например,

@export 
(defun foobar() 
    ...) 

эквивалентно

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