Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.479
diff -u -r1.479 slime.el
--- slime.el	3 Apr 2005 23:26:50 -0000	1.479
+++ slime.el	4 Apr 2005 16:48:21 -0000
@@ -1489,6 +1489,17 @@
   "List of functions called when a slime network connection closes.
 The functions are called with the process as their argument.")
 
+(eval-when (compile eval)
+  (defmacro slime-defun-if-undefined (name &rest rest)
+    `(unless (fboundp ',name)
+       (defun ,name ,@rest))))
+
+(put 'slime-defun-if-undefined 'lisp-indent-function 2)
+
+(slime-defun-if-undefined find-coding-system (coding-system)
+  (if (eq coding-system 'binary)
+      'binary))
+
 (defvar slime-net-coding-system
   (find-if (if (featurep 'xemacs) #'find-coding-system #'coding-system-p)
            '(iso-latin-1-unix iso-8859-1-unix binary))
@@ -8695,13 +8706,6 @@
     (defalias 'string-make-unibyte #'identity))
   )
 
-(eval-when (compile eval)
-  (defmacro slime-defun-if-undefined (name &rest rest)
-    `(unless (fboundp ',name)
-       (defun ,name ,@rest))))
-
-(put 'slime-defun-if-undefined 'lisp-indent-function 2)
-
 (slime-defun-if-undefined next-single-char-property-change
     (position prop &optional object limit)
   (let ((limit (typecase limit
@@ -8892,10 +8896,6 @@
            file)
           (t 
            (error "Not a directory: %s" file)))))
-
-(slime-defun-if-undefined find-coding-system (coding-system)
-  (if (eq coding-system 'binary)
-      'binary))
 
 (slime-defun-if-undefined check-coding-system (coding-system)
   (or (find-coding-system coding-system)