在快板-CL免费版中安装quicklisp库

Question

在Ubuntu的Emacs上..。我在Emacs中加载了SBCL，因为我一直在使用它。我输入(ql:quickload "ieee-floats")以在emacs中新安装的ACL上加载我的第一个库，然后输入my粘液加载ACL并获得以下错误：

 While searching for system "ieee-floats":
    #P"/home/b/quicklisp/dists/quicklisp/software/c2ffi/README"
    evaluated to
    #P"/home/b/quicklisp/dists/quicklisp/software/c2ffi/README"
 which is
    not a directory.

我的ACL asdf:central-registry的前几行是：

  (#P"/home/w/quicklisp/quicklisp/"
   #P"/home/w/quicklisp/dists/quicklisp/software/c2ffi/README"
   #P"/home/w/quicklisp/dists/quicklisp/software/c2ffi/autoclean"
   #P"/home/w/quicklisp/dists/quicklisp/software/c2ffi/config.h"
   #P"/home/w/quicklisp/dists/quicklisp/software/c2ffi/configure.ac"  

所以acl只是查看第一个文件并停止。也是在asdf:中心注册表中，它列出根目录中的所有文件以及文件夹，但在SBCL中，它只列出了quicklisp/dist/software中的所有根文件夹，SBCL用于安装quicklisp库i/e。

ACL列出所有根文件夹文件

  #P"/home/w/quicklisp/dists/quicklisp/software/trivial-features-20130312-git/SPEC"
  #P"/home/w/quicklisp/dists/quicklisp/software/trivial-features-20130312-git/README"
  #P"/home/w/quicklisp/dists/quicklisp/software/trivial-features-20130312-git/trivial-features.asd"
  #P"/home/w/quicklisp/dists/quicklisp/software/trivial-features-20130312-git/tests"
  #P"/home/w/quicklisp/dists/quicklisp/software/trivial-features-20130312-git/COPYRIGHT"
  #P"/home/w/quicklisp/dists/quicklisp/software/trivial-features-20130312-git/trivial-features-tests.asd"
  #P"/home/w/quicklisp/dists/quicklisp/software/trivial-features-20130312-git/src"
  #P"/home/w/quicklisp/dists/quicklisp/software/trivial-features-20130312-git/release.sh"

SBCL的列表只是根文件夹

  #P"/home/w/quicklisp/dists/quicklisp/software/trivial-features-20130312-git/"

而sbcl和acl init文件包含相同的内容：

 (require :asdf)
 ;put all subdirectories of quicklisp\software into asdf:*central-registry*
  (dolist (dir (directory "/home/w/quicklisp/dists/quicklisp/software/*/"))
  (pushnew dir asdf:*central-registry* :test #'equal))

 ;;; The following lines added by ql:add-to-init-file:
 #-quicklisp
 (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
                                        (user-homedir-pathname))))
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))

Answer 1

那个*central-registry*搞砸了。init文件中的;put all subdirectories位导致了问题。删除它，您就可以使用ql:quickload加载库，例如(ql:quickload :vecto)。