SLIME

なぜ今日はこんなにほげほげしているのか.
今日はSLIMEのまぬあるを読んだので, .emacsの該当部分をさらしあげ.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;; LISP ENVIRONMENT ;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq inferior-lisp-program "/usr/local/bin/sbcl --noinform") ;;cmulispなら/usr/local/bin/lisp
(add-hook 'lisp-mode-hook
	  (lambda ()
	    (define-key lisp-mode-map "\C-c\C-i" 'comment-region)
	    (define-key lisp-mode-map "\C-c\C-o" 'uncomment-region)
	    (setq lisp-indent-function 'common-lisp-indent-function)
	    ))
(add-hook 'inferior-lisp-mode-hook
	  (lambda ()
	    (setq lisp-indent-function 'common-lisp-indent-function)
	    ))

;; Additional definitions by Pierpaolo Bernardi.
(defun cl-indent (sym indent)
  (put sym 'common-lisp-indent-function
       (if (symbolp indent)
       (get indent 'common-lisp-indent-function)
     indent)))

(cl-indent 'if '1)
(cl-indent 'generic-flet 'flet)
(cl-indent 'generic-labels 'labels)
(cl-indent 'with-accessors 'multiple-value-bind)
(cl-indent 'with-added-methods '((1 4 ((&whole 1))) (2 &body)))
(cl-indent 'with-condition-restarts '((1 4 ((&whole 1))) (2 &body)))
(cl-indent 'with-simple-restart '((1 4 ((&whole 1))) (2 &body)))

;; ;;SLIME setup
(add-to-list 'load-path "/home/wiz/elisp/slime")
(require 'slime)
(slime-setup)
(add-hook 'slime-mode-hook
	  (lambda ()
	    (unless (slime-connected-p)
	      (save-excursion (slime)))
	    (define-key slime-mode-map "\C-c\C-i" 'comment-region)
	    (define-key slime-mode-map "\C-c\C-o" 'uncomment-region)
	    (define-key slime-mode-map "\C-c\C-c" 'slime-hyperspec-lookup)))
(setq slime-net-coding-system 'utf-8-unix) ;日本語の為 SBCL仕様
(setq slime-truncate-lines nil)
(setq slime-complete-symbol-function 'slime-complete-symbol*)
(setq slime-autodoc-delay 1.5)
(slime-autodoc-mode)

SLIMEでも日本語が使えるとはー! (setq slime-net-coding-system 'utf-8-unix)は偉大だ.

CL-USER> '(日本語 で おk)
(日本語 で おK)

シンボルもかよ!