--- slime-1.0.cvs20050218.orig/slime.el
+++ slime-1.0.cvs20050218/slime.el
@@ -82,15 +82,19 @@
   (when slime-use-autodoc-mode
     (slime-autodoc-mode 1)))
 
-(eval-and-compile 
+;;; Modified for Debian since byte-compiled files are in a separate
+;;; area to the source files this variable expects to locate
+(eval-and-compile
   (defvar slime-path
-    (let ((path (or (locate-library "slime") load-file-name)))
-      (and path (file-name-directory path)))
+    "/usr/share/emacs/site-lisp/slime/"
+;    (let ((path (or (locate-library "slime") load-file-name)))
+;      (and path (file-name-directory path)))
     "Directory containing the Slime package.
 This is used to load the supporting Common Lisp library, Swank.
 The default value is automatically computed from the location of the
 Emacs Lisp package."))
 
+
 
 ;;;; Customize groups
 ;;
@@ -1313,13 +1317,17 @@
            (slime-net-close conn))
          (get-buffer-process buffername))))
 
+
+;;; Modified for Debian
 (defun slime-init-command ()
   "Return a string to initialize Lisp."
-  (let ((swank (slime-to-lisp-filename (if (file-name-absolute-p slime-backend)
-                                           slime-backend
-                                         (concat slime-path slime-backend))))
-        (mp (if slime-multiprocessing "(swank:startup-multiprocessing)\n" "")))
-    (format "(load %S :verbose t)\n%s" swank mp)))
+  (format "(clc:clc-require :swank)\n%s"
+          (if slime-multiprocessing "(swank:startup-multiprocessing)\n" "")))
+;;   (let ((swank (slime-to-lisp-filename (if (file-name-absolute-p slime-backend)
+;;                                            slime-backend
+;;                                          (concat slime-path slime-backend))))
+;;         (mp (if slime-multiprocessing "(swank:startup-multiprocessing)\n" "")))
+;;     (format "(load %S :verbose t)\n%s" swank mp)))
 
 (defun slime-start-lisp (command buffername init-string)
   "Start Lisp with COMMAND in BUFFERNAME and send INIT-STRING to it.
--- slime-1.0.cvs20050218.orig/swank.asd
+++ slime-1.0.cvs20050218/swank.asd
@@ -17,5 +17,25 @@
 ;; use `M-x slime-connect' to connect Emacs to it.
 
 (asdf:defsystem :swank
-    :components ((:file "swank-loader")))
+  :name "SWANK"
+  :serial t
+  :components ((:file "swank-backend")
+	       (:file "nregex")
+	       #+cmu (:file "swank-source-path-parser")
+	       #+clisp (:file "xref")
+	       #+(or openmcl clisp) (:file "metering")
+	       #+sbcl (:file #+sbcl "swank-sbcl")
+	       #+(or sbcl cmu) (:file "swank-source-path-parser")
+	       #+cmu (:file "swank-cmucl")
+	       #+openmcl (:file "swank-openmcl")
+	       #+lispworks (:file "swank-lispworks")
+	       #+allegro (:file "swank-allegro")
+	       #+clisp (:file "swank-clisp")
+	       #+armedbear (:file "swank-abcl")
+	       #+(or sbcl openmcl lispworks allegro clisp)
+	       (:file "swank-gray")
+	       (:file "swank")))
+	       
+	       
+;    :components ((:file "swank-loader")))