Question

我正在测试加载emacs init.el中的包（Emacs 24.3）。我跟着emacs prelude的作者fillna自动加载了包，并将代码复制到我的init.el中，如下图所示。但是，我收到有关loop函数/符号的错误消息，其中包含：

Symbol's function definition is void: loop

有人可以解释一下如何修复代码吗？

我在互联网上搜索过，似乎loop是cl-lib中的一个宏。我的猜测是loop的定义丢失，我试图通过添加(require 'cl-lib)来解决问题，如代码所示，但错误仍然存在。关于类似的错误消息还有其他SO问题，例如：a blog ，ELisp: cl-loop for "Symbol's value as variable is void"。但错误信息在缺少的内容上有所不同，答案主要是建议其他路线，例如使用较新版本的emacs。

- 代码 -

(require 'package)
(add-to-list 'package-archives
  '("melpa-stable" . "http://stable.melpa.org/packages/") t)
(package-initialize)

;;; check & load packages
(defvar prelude-packages
  '( haskell-mode )
  "A list of packages to ensure are installed at launch.")

;;(require 'cl-lib) ;debug
(defun prelude-packages-installed-p ()
  (loop for p in prelude-packages
        when (not (package-installed-p p)) do (return nil)
        finally (return t)))

(unless (prelude-packages-installed-p)
  ;; check for new packages (package versions)
  (message "%s" "Emacs Prelude is now refreshing its package database...")
  (package-refresh-contents)
  (message "%s" " done.")
  ;; install the missing packages
  (dolist (p prelude-packages)
    (when (not (package-installed-p p))
      (package-install p))))

(provide 'prelude-packages)
;;; end load packages

Answer 1

{E_cs}包中引入了cl-lib包，并提供了许多Common Lisp功能，所有功能都带有cl-前缀。在此之前，使用这些功能的唯一方法是要求cl库，并使用未加前缀的名称，例如loop代替cl-loop。但是，由于可能存在名称冲突，因此不建议这样做，并且如果可能，通常建议使用带前缀的名称。

由于您使用的是Emacs 24.3，解决此问题的“正确”方法是将loop替换为cl-loop，将return替换为cl-return：

(defun prelude-packages-installed-p ()
  (cl-loop for p in prelude-packages
           when (not (package-installed-p p)) do (cl-return nil)
           finally (cl-return t)))

（您不需要(require 'cl-lib)，因为cl-loop和cl-return是自动加载的。）

或者，您可以添加(require 'cl)以访问未加前缀的名称，并保持代码不变。这也适用于早期的Emacs版本。

我不禁注意到这个功能可以写得更简洁：

(defun prelude-packages-installed-p ()
  (cl-every 'package-installed-p prelude-packages))

关于cl-every加cl-lib与every加cl相同的问题适用。

emacs：Symbol的函数定义是void：loop

1 个答案: