[slime-devel] Fix for missing find-coding-system

[Nathan Froyd]

On Mon, Apr 04, 2005 at 01:40:43AM +0200, Helmut Eller wrote:
> > 	I've tested with ACL & SBCL on OS X 10.3.8, and things started up
> > and minimally worked without trouble.
> 
> Thank you.  I added something similar, but didn't test it. 
> Holler if I've botched it.

I need to tweak slime.el a bit to get things to work.  Diff attached
versus current CVS.  Thanks for adding this!
-- 
Nathan | From Man's effeminate slackness it begins.  --Paradise Lost

The last good thing written in C was Franz Schubert's Symphony Number 9.
                                               --Erwin Dieterich
-------------- next part --------------
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 , at 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 , at 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)