LISP警告-未声明的可用变量

Question

当我在函数定义中引用全局变量时，会从编译器收到“未声明的自由变量”警告。

(setf *foo* 1)

(defun bar ()
  (format t "~a" *foo*))

对我来说，使用上述代码编译文件会产生此警告。 （代码按预期运行）是什么意思/代码应该是什么样？