;;; SLIME
(setq inferior-lisp-program "/usr/bin/sbcl")
(setq common-lisp-hyperspec-root "/usr/share/doc/hyperspec/")
(add-hook 'lisp-mode-hook 'slime-mode)
(add-hook 'lisp-mode-hook
	  #'(lambda ()
	      (set (make-local-variable 'lisp-indent-function)
		   'common-lisp-indent-function)))

(setq slime-enable-evaluate-in-emacs t)
(setq slime-repl-return-behaviour :send-if-complete)

(define-key slime-repl-mode-map [(shift meta ?s)]
  #'slime-repl-next-matching-input)
(define-key slime-repl-mode-map [(shift meta ?r)]
  #'slime-repl-previous-matching-input)

(require 'js-expander)

; (setq slime-filename-translations nil)