;;From www.cliki.net/SLIME-HOWTO
;;Didn't work as "http://www.gigamonkeys.com/book/lather-rinse-repeat-a-tour-of-the-repl.html" indicated.
;(add-to-list 'load-path "/the/path/to/slime")
;(require 'slime)
;(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
;(add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
;;; Optionally, specify the lisp program you are using. Default is "lisp"
;(setq inferior-lisp-program "yourlisp") 


;;From slime user manual
;;Didn't work as "http://www.gigamonkeys.com/book/lather-rinse-repeat-a-tour-of-the-repl.html" indicated.
;;Should have read further into the manual...
;(setq inferior-lisp-program "/usr/bin/sbcl") ; your Lisp system
;(add-to-list 'load-path "~/my-slime-sandbox/slime/") ; your SLIME directory
;(require 'slime-autoloads)
;(slime-setup)

;;Merged mess from above
;;Didn't work as "http://www.gigamonkeys.com/book/lather-rinse-repeat-a-tour-of-the-repl.html" indicated.
;(add-to-list 'load-path "~/my-slime-sandbox/slime/") ; your SLIME directory
;(require 'slime-autoloads)
;(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
;(add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
;(setq inferior-lisp-program "/usr/bin/sbcl") ; your Lisp system


(add-to-list 'load-path "~/my-slime-sandbox/slime/") ; your SLIME directory

;;Stuff from http://archgeek.wordpress.com/2009/02/07/setting-up-slime-emacs-and-sbcl/
;;This seems to work after adding the "(add-to-list..." above
(eval-after-load "slime"
'(progn
(setq slime-lisp-implementations
'(
  (sbcl ("/usr/bin/sbcl"))
; (cmucl ("/opt/cmucl-20c/bin/lisp"))  ;Just testing (too picky and compiler messages don't show up in slime)
; (clisp ("/usr/bin/clisp"))  ;Don't really want it
 )
 common-lisp-hyperspec-root "~/my-slime-sandbox/hyperspec-7-0/HyperSpec/")
(slime-setup '(
;slime-banner  ;added this to see what it looked like
;slime-asdf   ;Leave out until I know more about its consequences
slime-autodoc
slime-editing-commands
slime-fancy-inspector
slime-fontifying-fu
slime-fuzzy
slime-indentation
slime-mdot-fu
slime-package-fu
slime-references
slime-repl
slime-sbcl-exts   ;Not with cmucl??
slime-scratch
slime-xref-browser))
(slime-autodoc-mode)
(setq slime-complete-symbol*-fancy t)
(setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)
(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))))

(require 'slime)
