很多人写过 Scheme 开发环境的设置。但 Scheme 毕竟是一种 Lisp ，是 Lisp 就应该用 Slime。Chicken Scheme 有一个扩展叫 Chicken Slime, 安装非常简单，但功能极差。安装之后几乎没用。Slime本身带的，contrib目录下的swank-kawa.scm  swank-larceny.scm  swank-mit-scheme.scm 一个都不能用。好在这位先生修复了对Mit Scheme的支持。照他指导安装就可以用了。但他说 "也可以将修复过的swank.scm删掉最后一行直接替换Mit Scheme源代码里面的swank.scm，重新编译Mit Scheme。"我试过，不行。另外Slime的最新版也不行。我用2.4版才行。除了照他的指导设置 ~/.scheme.init 和 ~/.emacs 之外，再在 ~/.emacs 上添加以下内容增加Slime对Scheme的语法高亮和自动缩进：;; 因为修改过的swank与slime版本不匹配(setq slime-protocol-version ‘ignore);; 因为slime默认的语法高亮是用于 Common Lisp 的，而我们要的是 Scheme 的语法高亮;; 这是从 scheme.el 直接复制过来的。(defun scheme-mode-font-lock-setup ()  (interactive)  (setq local-abbrev-table scheme-mode-abbrev-table)  (set (make-local-variable ‘paragraph-start) (concat "$\\|" page-delimiter))  (set (make-local-variable ‘paragraph-separate) paragraph-start)  (set (make-local-variable ‘paragraph-ignore-fill-prefix) t)  (set (make-local-variable ‘fill-paragraph-function) ‘lisp-fill-paragraph)  ;; Adaptive fill mode gets in the way of auto-fill,  ;; and should make no difference for explicit fill  ;; because lisp-fill-paragraph should do the job.  (set (make-local-variable ‘adaptive-fill-mode) nil)  (set (make-local-variable ‘indent-line-function) ‘lisp-indent-line)  (set (make-local-variable ‘parse-sexp-ignore-comments) t)  (set (make-local-variable ‘outline-regexp) ";;; \\|(....")  (set (make-local-variable ‘comment-start) ";")  (set (make-local-variable ‘comment-add) 1)  ;; Look within the line for a ; following an even number of backslashes  ;; after either a non-backslash or the line beginning.  (set (make-local-variable ‘comment-start-skip)       "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+[ \t]*")  (set (make-local-variable ‘font-lock-comment-start-skip) ";+ *")  (set (make-local-variable ‘comment-column) 40)  (set (make-local-variable ‘parse-sexp-ignore-comments) t)  (set (make-local-variable ‘lisp-indent-function) ‘scheme-indent-function)  (setq mode-line-process ‘("" scheme-mode-line-process))  (set (make-local-variable ‘imenu-case-fold-search) t)  (setq imenu-generic-expression scheme-imenu-generic-expression)  (set (make-local-variable ‘imenu-syntax-alist)       ‘(("+-*/.<>=?!$%_&~^:" . "w")))  (setq  ;;(make-local-variable ‘font-lock-defaults)   font-lock-defaults   ‘((scheme-font-lock-keywords      scheme-font-lock-keywords-1 scheme-font-lock-keywords-2)     nil t (("+-*/.<>=!?$%_&~^:" . "w") (?#. "w 14"))     beginning-of-defun     (font-lock-mark-block-function . mark-defun)     (font-lock-syntactic-face-function      . scheme-font-lock-syntactic-face-function)     (parse-sexp-lookup-properties . t)     (font-lock-extra-managed-props syntax-table)))  (set (make-local-variable ‘lisp-doc-string-elt-property)       ‘scheme-doc-string-elt));; 把 slime-repl 的语法高亮设成 Scheme 的(add-hook ‘slime-repl-mode-hook           (lambda ()            (font-lock-mode nil)            (scheme-mode-font-lock-setup)            (font-lock-mode t)));; 把 slime-repl 的自动缩进设置成 Scheme 的(add-hook ‘slime-repl-mode-hook           (lambda ()            (setq lisp-indent-function ‘scheme-indent-function)))

slime for mit scheme