;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/ide/my-slime.el
;;;   https://dataswamp.org/~incal/emacs-init/ide/my-slime.el

(require 'slime)
(require 'slime-autoloads)
(require 'slime-presentations)
(require 'slime-repl)
(require 'super)

;; CL

(defvar inferior-lisp-program)
(setq inferior-lisp-program "/usr/bin/sbcl --noinform")

;; slime

(add-to-list
 'load-path
 (directory-file-name "~/.emacs.d/elpa/slime-20170921.1000") )
(add-to-list 'slime-contribs 'slime-fancy)

;; faster Swank load with SBCL

(setq slime-lisp-implementations
      '((sbcl ("sbcl" "--core" "/home/incal/sbcl.core-for-slime"))))

(let ((the-map slime-repl-mode-map))
  (disable-super-global-keys the-map)
  (define-key the-map "\C-\M-n" #'slime-repl-next-input)
  (define-key the-map "\C-\M-p" #'slime-repl-previous-input) )