Emacs common lisp setup

commonlisp.el

;; roswellをデフォルトのCommon Lisp処理系に設定
;; qlotを動作させてローカルquicklispを動作させる
;; TODO: qlotがないときはros -Q run
(setq inferior-lisp-program "qlot exec ros -S . run")
;; ~/.emacs.d/slimeをload-pathに追加
(add-to-list 'load-path (expand-file-name "~/.emacs.d/slime"))
;; SLIMEのロード
(load (expand-file-name "~/.roswell/helper.el"))
(require 'slime-autoloads)
(setq slime-contribs '(slime-repl slime-asdf slime-fancy slime-banner slime-indentation))
;; SLIMEからの入力をUTF-8に設定
(setq slime-net-coding-system 'utf-8-unix)

;; **ローカルレポジトリを読み込むようにする**
(defun enable-local-repository ()
  (slime-repl-eval-string "(setf asdf:*central-registry* '(*default-pathname-defaults*))"))
  
(add-hook 'slime-mode-hook 'slime-company-init)
(add-hook 'slime-connected-hook 'enable-local-repository)
(add-hook 'slime-repl-mode-hook 'slime-company-init)