Получение переменной foo не привязано, пытаясь использовать краткое руководство по проекту

Question

Я выполнил следующие инструкции: http://xach.livejournal.com/278047.html и заставил их работать.Я вызвал проект test, поэтому у меня есть файл test.lisp, который выглядит так:

родовое слово

Когда я запускаю (ql: quickload "test"), я получаю: The variable FOO is unbound. Если я закомментирую строку (in-package #: test), то при загрузке foo больше не будет не привязан.Это говорит мне, что функция foo синтаксически нормальна.

Что я делаю не так?Почему foo не привязан при использовании (ql: quickload "test ')?

Вот мой пакетный файл:

родовое слово

И мой файл test.asd:

родовое слово

Answer 1

Ваш тестовый пакет не использует пакет CL, поэтому ваш DEFUN - это TEST :: DEFUN (не CL: DEFUN).Для TEST :: DEFUN нет определения макроса, поэтому система продолжает оценку, используя правила вызова функции, которые должны оценивать каждую подчиненную форму по порядку, а затем применять функцию к значениям аргументов.Первая подчиненная форма - это TEST :: FOO, которая является поиском переменной, и в вашем изображении нет такой переменной, как TEST :: FOO.