用最新版本的 Emacs、SLIME和CCL来打造自己的 LispBox-0.8
用最新版本的 Emacs、SLIME和CCL来打造自己的 LispBox-0.8
首先得弄清楚 Lispbox 的启动顺序，以及各个部分（emacs、slime 、CCL 、quicklisp）如何被调用，大致描述如下：
1、执行 lispbox.bat ，实际上运行了如下命令
runemacs.exe --no-init-file --no-site-file --eval=="(progn (load \"lispbox.el\") (slime))"
2、上面的命令相当于由 emacs 加载了 emacs-24.2\site-lisp\ 目录下的 lispbox.el 文件，然后再执行 slime ，具体的lispbox.el 的内容如下：
(require 'cl)
(defun lispbox-list-to-filename (list)
(apply
#'concat
(maplist
#'(lambda (cons)
(if (cdr cons) (file-name-as-directory (car cons)) (car cons)))
list)))
(defun lispbox-file (rest)
(concat
(file-name-as-directory
(expand-file-name
(or (getenv "LISPBOX_HOME")
(file-name-directory load-file-name))))
rest))
(defun lispbox-find-lisps ()
(dolist (file (file-expand-wildcards (lispbox-file "*/lispbox-register.el")))
(load file)))
(defun lispbox-install-lisp-license (license-path lisp-name)
(let ((license (concat (file-name-directory load-file-name) (lispbox-list-to-filename license-path))))
(if (not (file-exists-p license))
(let* ((prompt (format "Need to install license for %s . Please enter name of file where you saved it: " lisp-name))
(to-install (read-file-name prompt)))
(copy-file (expand-file-name to-install) license)))))
(global-font-lock-mode t)
(setq load-path (cons (lispbox-file "slime-2012-11-13") load-path))
;(setenv "SBCL_HOME" (lispbox-file "sbcl-1.0.42/lib/sbcl"))
(setenv "SBCL_HOME" (lispbox-file "Steel-Bank-Common-Lisp"))
(setenv "CCL_DEFAULT_DIRECTORY" (lispbox-file "ccl-1.8-windowsx86"))
;(require :aserve)
(require 'slime)
(setq locale-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(prefer-coding-system 'utf-8)
(setq slime-net-coding-system 'utf-8-unix)
(slime-setup '(slime-fancy slime-asdf slime-banner))
(lispbox-find-lisps)
(provide 'lispbox)
主要关注这几条：
;; 寻找 lispbox-register.el ，找到后加载 lispbox-register.el
(defun lispbox-find-lisps ()
(dolist (file (file-expand-wildcards (lispbox-file "*/lispbox-register.el")))
(load file)))
;; 设置 slime 的路径
(setq load-path (cons (lispbox-file "slime-2012-11-13") load-path))
;; 设置 SBCL 的路径
(setenv "SBCL_HOME" (lispbox-file "Steel-Bank-Common-Lisp"))
;; 设置 CCL 路径
(setenv "CCL_DEFAULT_DIRECTORY" (lispbox-file "ccl-1.8-windowsx86"))
(require 'slime)
(setq slime-net-coding-system 'utf-8-unix)
(slime-setup '(slime-fancy slime-asdf slime-banner))
;; 在上述路径中执行查找 lispbox-register.el 文件，找到后加载它
(lispbox-find-lisps)
(provide 'lispbox)
3、从上述的 lispbox.el 中发现，下一个要加载的文件是 lispbox-register.el ，这个文件放在对应的 Lisp 编译器目录下，比如这里我使用了两种编译器 SBCL 和 CCL，那么就要在相应的目录下准备好这个文件。
CCL 下的 lispbox-register.el 内容为：
(push (list 'clozurecl (list (lispbox-list-to-filename (list (file-name-directory load-file-name) (if (getenv "PROGRAMW6432") "wx86cl64.exe" "wx86cl.exe"))))) slime-lisp-implementations)
SBCL 下的 lispbox-register.el 内容为：
(push (list 'sbcl (list (lispbox-list-to-filename (list (file-name-directory load-file-name) (if (getenv "PROGRAMW6432") "sbcl.exe" "sbcl.exe"))))) slime-lisp-implementations)
4、这样最终通过 runemacs.exe 先后加载了 slime 和 CCL（或SBCL）
集成在 lispbox 中的 CCL-1.6 和单独的 CCL-1.8 的区别：
1、lispbox 的 ccl-1.6-windowsx86 目录下有一个 lispbox-register.el 的文件，单独的 ccl-1.8-windowsx86 目录下没有此文件，该文件如下语句来设置：
(setq load-path (cons (lispbox-file "slime-2012-11-13") load-path)) (setenv "SBCL_HOME" (lispbox-file "sbcl-1.0.42/lib/sbcl")) (setenv "CCL_DEFAULT_DIRECTORY" (lispbox-file "ccl-1.8-windowsx86"))
2、ccl-1.6-windowsx86\tools\asdf.lisp 文件不同，直接把 ccl-1.8-windowsx86 文件夹拷贝过去后执行lispbox.bat EMACS启动后会有如下提示：
;Compiler warnings for "f:/LISPBO~1.8/ccl-1.8-windowsx86/tools/asdf.lisp" :
; In ASDF::CCL-FASL-VERSION: Undefined function CCL::TARGET-FASL-VERSION
检查后发现emacs显示同时调用了1.6和1.8的CCL，把1.6的lispbox-register.el 改个名字就不再显示上面的错误了，但是又出现了很多新的警告提示，如下：
(progn (load "f:/LISPBO~1.8/slime-2012-11-13/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank-loader:init")) (funcall (read-from-string "swank:start-server") "c:/Users/admin/AppData/Local/Temp/slime.5360")) Welcome to Clozure Common Lisp Version 1.8-r15286M (WindowsX8632)! ? ;Loading #P"f:/LISPBO~1.8/slime-2012-11-13/swank-loader.lisp"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/swank-backend.lisp"... ;Compiler warnings for "f:/LISPBO~1.8/slime-2012-11-13/swank-backend.lisp" : ; In an anonymous lambda form at position 47772: Unused lexical variable THREAD ; In an anonymous lambda form at position 48339: Unused lexical variable NAME ;Loading #P"C:/Users/admin/.slime/fasl/2012-11-12/clozure-version_1.8-r15286m__(windowsx8632)-windows-x86/swank-backend.wx32fsl"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/metering.lisp"... ;Loading #P"C:/Users/admin/.slime/fasl/2012-11-12/clozure-version_1.8-r15286m__(windowsx8632)-windows-x86/metering.wx32fsl"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/swank-ccl.lisp"... ;Loading #P"C:/Users/admin/.slime/fasl/2012-11-12/clozure-version_1.8-r15286m__(windowsx8632)-windows-x86/swank-ccl.wx32fsl"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/swank-gray.lisp"... ;Loading #P"C:/Users/admin/.slime/fasl/2012-11-12/clozure-version_1.8-r15286m__(windowsx8632)-windows-x86/swank-gray.wx32fsl"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/swank-match.lisp"... ;Loading #P"C:/Users/admin/.slime/fasl/2012-11-12/clozure-version_1.8-r15286m__(windowsx8632)-windows-x86/swank-match.wx32fsl"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/swank-rpc.lisp"... ;Loading #P"C:/Users/admin/.slime/fasl/2012-11-12/clozure-version_1.8-r15286m__(windowsx8632)-windows-x86/swank-rpc.wx32fsl"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/swank.lisp"... ;Compiler warnings for "f:/LISPBO~1.8/slime-2012-11-13/swank.lisp" : ; In SWANK::THREAD-FOR-EVALUATION: Undefined function SWANK::FIND-REPL-THREAD ; In SWANK::THREAD-FOR-EVALUATION: Undefined function SWANK::FIND-REPL-THREAD ;Loading #P"C:/Users/admin/.slime/fasl/2012-11-12/clozure-version_1.8-r15286m__(windowsx8632)-windows-x86/swank.wx32fsl"... ; Warning: These Swank interfaces are unimplemented: ; (ACTIVATE-STEPPING ADD-FD-HANDLER ADD-SIGIO-HANDLER ; BACKGROUND-SAVE-IMAGE DUP EXEC-IMAGE MAKE-FD-STREAM ; REMOVE-FD-HANDLERS REMOVE-SIGIO-HANDLERS SLDB-BREAK-AT-START ; SLDB-BREAK-ON-RETURN SLDB-STEP-INTO SLDB-STEP-NEXT SLDB-STEP-OUT ; WAIT-FOR-INPUT) ; While executing: SWANK-BACKEND::WARN-UNIMPLEMENTED-INTERFACES, in process listener(1). ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-util.lisp"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-repl.lisp"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-c-p-c.lisp"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-arglists.lisp"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-fuzzy.lisp"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-fancy-inspector.lisp"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-presentations.lisp"... ;Compiler warnings for "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-presentations.lisp" : ; In an anonymous lambda form at position 8124: Undeclared free variable *SEND-REPL-RESULTS-FUNCTION* ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-presentation-streams.lisp"... ;Compiler warnings for "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-presentation-streams.lisp" : ; In an anonymous lambda form at position 12203: Undeclared free variable *SEND-REPL-RESULTS-FUNCTION* ;Compiler warnings for "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-presentation-streams.lisp" : ; In CCL::CLEAR-PRESENTATIONS inside an anonymous lambda form: Undefined function SWANK::CLEAR-PRESENTATION-TABLES ; In SWANK::PRESENTING-OBJECT-1: Undefined function SWANK::SAVE-PRESENTED-OBJECT ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-package-fu.lisp"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-hyperdoc.lisp"... ;Compiling "f:/LISPBO~1.8/slime-2012-11-13/contrib/swank-mrepl.lisp"... ;; Swank started at port: 50050. 50050 ? ; Warning: Test failed: (&KEY #'#'+) => "(&key (function (function +)))" ; Expected: "(&key (function #'+))" ; While executing: (:INTERNAL TEST TEST-PRINT-ARGLIST), in process worker(8).