Get slime, swank, clojure etc. working, including clojure-contrib. Phew.

init-clojure.el

@@ -1,8 +1,16 @@
-(require 'swank-clojure-autoload)
+(add-hook 'clojure-mode-hook 'pretty-lambdas)
+(add-hook 'clojure-mode-hook (lambda () (enable-paredit clojure-mode-map)))
+
 
 (setq clojure-src-root (expand-file-name "~/Projects/External"))
+
+(setq swank-clojure-jar-path (concat clojure-src-root "/clojure/clojure.jar")
+      swank-clojure-extra-classpaths (list (concat clojure-src-root "/clojure-contrib/clojure-contrib.jar")))
+
+(require 'swank-clojure-autoload)
 (eval-after-load 'clojure-mode '(clojure-slime-config))
 
+
 (defun slime-clojure ()
   "Fire up slime running the swank-clojure backend"
   (interactive)

init-common-lisp.el

@@ -1,7 +1,4 @@
 ;; See http://bc.tech.coop/blog/070927.html
-(setq slime-lisp-implementations
-      '((sbcl ("sbcl") :coding-system utf-8-unix)
-        (cmucl ("cmucl") :coding-system iso-latin-1-unix)))
 (require 'slime-autoloads)
 (add-auto-mode 'lisp-mode "\\.cl$")
 (global-set-key [f4] 'slime-selector)
@@ -12,13 +9,13 @@
 
 (eval-after-load "slime"
   '(progn
+     (add-to-list 'slime-lisp-implementations
+		  '((sbcl ("sbcl") :coding-system utf-8-unix)))
+     (add-to-list 'slime-lisp-implementations
+		  '((cmucl ("cmucl") :coding-system iso-latin-1-unix)))
      (add-to-list 'load-path (concat (directory-of-library "slime") "/contrib"))
-     (slime-setup '(slime-fancy slime-banner slime-asdf))
-     (setq slime-complete-symbol*-fancy t)
-     (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)
      (add-hook 'slime-mode-hook 'pretty-lambdas)
-     (add-hook 'slime-mode-hook (lambda () (enable-paredit slime-mode-map)))
-     (slime-setup)))
+     (add-hook 'slime-mode-hook (lambda () (enable-paredit slime-mode-map)))))
 
 ;; From http://bc.tech.coop/blog/070515.html
 (defun lispdoc ()