gistfile1.el

(defun reset-swank ()
  "Because changing swank-clojure-extra-classpaths is not enough
to force a new instance of slime to use it."
  (interactive)
  (setq slime-lisp-implementations
        (assq-delete-all 'clojure slime-lisp-implementations))
  (add-to-list 'slime-lisp-implementations
               `(clojure ,(swank-clojure-cmd) :init swank-clojure-
init) t))

(defun run-slime (dir)
  (interactive "DProject directory: ")
  (cd dir)
  (when (file-directory-p "~/.clojure") (directory-files "~/.clojure" t ".jar$")) 
    (make-directory "classes"))
  (setq swank-clojure-extra-classpaths '("src" "classes" "lib/*" ""))
  (reset-swank)
  (slime))