[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv1865

Modified Files:
	ChangeLog swank-allegro.lisp swank-lispworks.lisp 
Log Message:
Use Unix-EOL convention even on Windows.

* swank-allegro.lisp (string-to-utf8, utf8-to-string): Use
excl:crlf-base-ef.
* swank-lispworks.lisp (string-to-utf8,  utf8-to-string): Use
'(:utf-8 :eol-style :lf)

--- /project/slime/cvsroot/slime/ChangeLog	2012/03/06 22:04:21	1.2300
+++ /project/slime/cvsroot/slime/ChangeLog	2012/03/14 17:13:26	1.2301
@@ -1,3 +1,12 @@
+2012-03-14  Paulo Madeira <acelent at gmail.com>
+
+	Use Unix-EOL convention even on Windows.
+
+	* swank-allegro.lisp (string-to-utf8, utf8-to-string): Use
+	excl:crlf-base-ef.
+	* swank-lispworks.lisp (string-to-utf8,  utf8-to-string): Use
+	'(:utf-8 :eol-style :lf)
+
 2012-03-06  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-ccl.lisp: If 'xref is not provided warn about it but
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2012/01/06 09:02:43	1.150
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2012/03/14 17:13:26	1.151
@@ -29,13 +29,16 @@
 
 ;;;; UTF8
 
+(define-symbol-macro utf8-ef 
+    (load-time-value 
+     (excl:crlf-base-ef (excl:find-external-format :utf-8))
+     t))
+
 (defimplementation string-to-utf8 (s)
-  (let ((ef (load-time-value (excl:find-external-format :utf-8) t)))
-    (excl:string-to-octets s :external-format ef)))
+  (excl:string-to-octets s :external-format utf8-ef))
 
 (defimplementation utf8-to-string (u)
-  (let ((ef (load-time-value (excl:find-external-format :utf-8) t)))
-    (excl:octets-to-string u :external-format ef)))
+  (excl:octets-to-string u :external-format utf8-ef))
 
 
 ;;;; TCP Server
--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2012/02/07 15:48:14	1.148
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2012/03/14 17:13:26	1.149
@@ -65,10 +65,10 @@
 ;;; UTF8
 
 (defimplementation string-to-utf8 (string)
-  (ef:encode-lisp-string string :utf-8))
+  (ef:encode-lisp-string string '(:utf-8 :eol-style :lf)))
 
 (defimplementation utf8-to-string (octets)
-  (ef:decode-external-string octets :utf-8))
+  (ef:decode-external-string octets '(:utf-8 :eol-style :lf)))
 
 ;;; TCP server