--- slime-2012-05-25_orig/slime.el	2012-06-04 23:25:57.000000000 +0530

+++ slime-2012-05-25/slime.el	2012-07-25 13:18:46.164677071 +0530

@@ -97,7 +97,8 @@

   (when (member 'lisp-mode slime-lisp-modes)

     (add-hook 'lisp-mode-hook 'slime-lisp-mode-hook))

   (setq slime-setup-contribs contribs)

-  (slime-setup-contribs))

+  (slime-setup-contribs)

+  (add-to-list 'load-path "/usr/share/common-lisp/source/slime/"))

 (defun slime-setup-contribs ()

   "Load and initialize contribs."

@@ -119,7 +120,7 @@

     "Return the datestring of the latest entry in the ChangeLog file.

 Return nil if the ChangeLog file cannot be found."

     (interactive "p")

-    (let ((changelog (concat slime-path "ChangeLog"))

+    (let ((changelog "/usr/share/doc/emacs-slime-3.0/Changelog")

           (date nil))

       (when (file-exists-p changelog)

         (with-temp-buffer 

@@ -131,8 +132,7 @@

       date)))

 (defvar slime-protocol-version nil)

-(setq slime-protocol-version

-      (eval-when-compile (slime-changelog-date)))

+(setq slime-protocol-version (slime-changelog-date))

 ;;;; Customize groups

@@ -171,7 +171,7 @@

   :prefix "slime-"

   :group 'slime)

-(defcustom slime-backend "swank-loader.lisp"

+(defcustom slime-backend "/usr/share/common-lisp/source/slime/swank-loader.lisp"

   "The name of the Lisp file that loads the Swank server.

 This name is interpreted relative to the directory containing

 slime.el, but could also be set to an absolute filename."