Как скомпилировать и запустить программу на Common Lisp из каталога файла .asd?

Вам нужно сообщить asdf, где найти ваш проект.

Вот соответствующая ссылка:

https://common-lisp.net/project/asdf/asdf/Configuring-ASDF-to-find-your-systems.html

Цитата из вышеуказанного ресурса:

Сначала создайте каталог ~/.config/common-lisp/source-registry.conf.d/; там создай файл с любым именем по вашему выбору, но с типом conf, например 50-luser-lisp.conf; в этом файле добавьте следующую строку, чтобы сообщить ASDF для рекурсивного сканирования всех подкаталогов в /home/luser/lisp/ на наличие Файлы .asd: (:дерево "/home/luser/lisp/")

Достаточно. Вы можете заменить /home/luser/lisp/ на любое другое место. для установки вашего исходного кода. На самом деле вам не нужно указывать ничего, если вы используете ~/common-lisp/ по умолчанию, как указано выше, и ваш реализация обеспечивает ASDF 3.1.2 или более позднюю версию. Если ваша реализация предоставляет более ранний вариант ASDF 3, вы можете указать (:tree (:home "common-lisp/")) для начальной загрузки, затем установите недавнее исходное дерево ASDF в ~/common-lisp/asdf/.

По ссылке еще много всего.

Это то, что я делаю, чтобы решить эту проблему. Возможно, это не совсем то, что вам нужно, но здесь могут быть идеи, которые могут помочь.

Для развития

Убедитесь, что существует только одна копия системы, которую вы пытаетесь построить. Поэтому, в частности, убедитесь, что нет установленной копии, которую может найти ASDF: см. ниже.

Тогда сработает вот это. Во-первых, убедитесь, что определение вашей системы ASDF допускает холодную загрузку, поэтому, в частности, убедитесь, что оно имеет правильное (in-package :asdf-user) вверху.

Тогда что будет работать для создания вашей системы:

$ cd .../my-project
$ sbcl
[...]
* (require :asdf) ;already loaded in my case by init files
nil
* (load "my-project.asd")
t
* (asdf:load-system "my-project")
; compiling file "/media/psf/share/tmp/my-project/package.lisp" (written 15 DEC 2020 09:06:54 AM):
; processing (defpackage :com.example ...)
[...]
*

А теперь ты в порядке. Итак, три трюка, которые я делаю:

• вообще не думайте о волосах исходного реестра, потому что, если вы будете слишком много думать об этом, что-то с щупальцами оторвет вам лицо (я это знаю, это случилось со мной, у меня теперь нет лица);
• убедитесь, что существует только одна копия системы, чтобы ASDF не мог использовать волоски исходного реестра, о которых я избегал думать, чтобы найти неправильный;
• явно загрузите файл системного определения — везде, где ASDF ищет, он, по крайней мере, будет искать в том же каталоге, что и этот.

Для производства

Ответ на это Quicklisp. Сделайте все необходимое, чтобы Quicklisp был установлен в вашем Lisp. Затем вам нужно знать, где находится его каталог установки: есть какой-то вариант по умолчанию, но я никогда не использую его, так как у меня есть свои представления о том, как должна выглядеть файловая система.

Тогда хитрость в том, что Quicklisp найдет, создаст и загрузит системы в своем каталоге local-projects (насколько я могу судить, Quicklisp полностью сделан из компетентности и магии). Так что если поставить туда систему, то Quicklisp просто и элегантно справится с ее попаданием в работающий образ.

Чтобы сделать эту установку... У меня есть make-файлы. Я знаю, что мне следует использовать инструменты Lisp, но я живу на платформах *nix, а make и install хорошо умеют копировать файлы.

Соответствующая часть Makefile (на самом деле это все) это:

# Where Quicklisp lives, and the name of this project using slashes
QUICKLISP = /local/tfb/packages/quicklisp
THIS      = org/tfeb/sample
FASLS     = *fasl *fsl

.PHONY: install uninstall clean

# To install the project make its directory, copy all the sources and
# the sysdcl into it, and then nuke Quicklisp's cache file so it searches
# next time
#
install:
    @mkdir -p "$(QUICKLISP)/local-projects/$(THIS)"
    @cd "$(QUICKLISP)/local-projects/$(THIS)" && rm -f $(FASLS)
    @install -C -v -m 444 *.lisp *.asd "$(QUICKLISP)/local-projects/$(THIS)"
    @rm -f "$(QUICKLISP)/local-projects/system-index.txt"

# To uninstall the project just nuke the directory and the cache
#
uninstall:
    @rm -rf "$(QUICKLISP)/local-projects/$(THIS)"
    @rm -f "$(QUICKLISP)/local-projects/system-index.txt"

clean:
    @rm -f $(FASLS) *~

Здесь есть четыре интересных вещи:

• Я просто использую make как машину для копирования файлов — она ничего не компилирует или что-то в этом роде, и было бы вполне возможно использовать скрипт;
• вам нужно удалить кэш-файл Quicklisp, чтобы он снова выполнял поиск при запуске;
• Я отключил выходные переводы ASDF, поэтому трачу время на сдувание скомпилированных файлов — после установки проект всегда нужно пересобирать с нуля;
• цель uninstall — это то, что вам нужно запустить перед разработкой — она уничтожит установленную версию, поэтому ASDF не найдет ее.

Как только вы запустите подходящий make install в каталоге вашего проекта, (ql:quickload :org.tfeb.sample) просто скомпилирует и загрузит его для вас.

Обратите внимание, что альтернативный подход (предложенный Ehvince в комментарии) заключается в том, чтобы оставить символическую ссылку в каталоге Quicklisp local-projects на каноническую версию кода. Я так не делаю, но это будет работать нормально, а может быть, и лучше в некоторых отношениях.

Я обнаружил, что можно сделать следующее:

$ sbcl
* (require "asdf")
* (asdf:load-asd (merge-pathnames "my-project.asd" (uiop:getcwd)))
* (asdf:load-system :my-project)

Примечание:

• (require "asdf") — рекомендуемый способ загрузки ASDF в соответствии с разделом «Загрузка ASDF» руководства ASDF.

  NB: все реализации, кроме GNU CLISP, также принимают (require "ASDF"), (require 'asdf) и (require :asdf). Для переносимости вы должны использовать (require "asdf").

• asdf:load-asd должен быть абсолютным путем и не может привести к ошибке, если указанный путь неверен (!), поэтому убедитесь, что данный абсолютный путь верен.

• Использование cl:load вместо asdf:load-asd также может работать, но руководство ASDF прямо предостерегает от такой практики:

  Действительно, ASDF не загружает файлы .asd просто с помощью cl:load, и вы не должны этого делать. Вы должны разрешить ASDF находить и загружать их при работе с системами. Если вам каким-то образом необходимо загрузить файл .asd, используйте ту же функцию asdf:load-asd, которую использует ASDF. Среди прочего, он уже связывает *package* с asdf-user. Последние версии SLIME (2013-02 и более поздние версии) умеют делать это, когда вы C-c C-k когда используете slime-asdf contrib.

Я делаю что-то подобное, как вы узнали. Суть в том, чтобы --load .asd.

Предпосылки

my-project.asd начинается с (require "asdf").

(require "asdf")
(asdf:defsystem "my-project"
  :version "0.0"
  …)

Когда я нахожусь в Slime, я могу C-c C-k (скомпилировать и загрузить) этот файл.

Я не уверен, что/почему это требуется для "--load".

Один лайнер

Я могу собрать проект одним вызовом компилятора Lisp:

sbcl --load my-project.asd --eval '(asdf:load-system "my-project")'

Это загружает его и дает мне REPL. Я мог бы добавить --eval (uiop:quit), чтобы бросить курить.

Примечание. Я слышал, что люди говорят, что лучше всего использовать asdf:load-asd.

С Quicklisp - необходимо, когда у вас есть зависимости

Вместо asdf:load-system я использую Quicklisp, потому что он загружает зависимости моего проекта.

sbcl --load my-project.asd --eval '(ql:quickload "my-project")'

(Обратите внимание, что я не копировал свой проект в локальные проекты Quicklisp. Если бы я это сделал, мне не нужно было бы загружать здесь .asd)

С Makefile

Этот однострочный код можно превратить в простой Makefile.

LISP ?= sbcl
build:
    $(LISP) --load my-project.asd \
         --eval '(ql:quickload :my-project)' \
         # more rules here
         --eval '(quit)'

Упрощение с помощью файла lisp, чтобы запустить их все

Мы должны:

1- загрузить .asd

2- быстро загрузить зависимости

3- запускаем наш скрипт

Мы также можем сделать это из файла lisp.

run.lisp:

(load "my-project.asd")  ;; relative path: we must be in the same directory
(ql:quickload "my-project")  ;; I installed Quicklisp and my ~/.sbclrc has the Quicklisp-initialization snippet

(my-project::main)  ;; whatever function acts as the entrypoint
(uiop:quit)         ;; portable way to quit.

Создание двоичного файла

Я использую asdf:make, как описано здесь: https://lispcookbook.github.io/cl-cookbook/scripting.html#with-asdf