[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (swank-compile-string): For reader errors
return nil not (values nil nil t).

--- /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:06:08	1.2234
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:06:19	1.2235
@@ -1,5 +1,10 @@
 2011-11-06  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-allegro.lisp (swank-compile-string): For reader errors
+	return nil not (values nil nil t).
+
+2011-11-06  Helmut Eller  <heller at common-lisp.net>
+
 	New wire format.
 
 	Switch from character streams to binary streams.  Counting
@@ -26,6 +31,7 @@
 	(slime-unibyte-string, slime-handle-net-read-error): New.
 	(featurep): Require 'un-define for XEmacs.
 	([test] break): Longer timeouts.
+	(slime-run-test): Renamed from slime-run-one-test.
 
 	* swank-sbcl.lisp (input-ready-p): Use sb-sys:wait-until-fd-usable.
 
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2011/11/06 17:04:21	1.146
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2011/11/06 17:06:20	1.147
@@ -30,10 +30,12 @@
 ;;;; UTF8
 
 (defimplementation string-to-utf8 (s)
-  (excl:string-to-octets s :external-format :utf8))
+  (let ((ef (load-time-value (excl:find-external-format :utf-8) t)))
+    (excl:string-to-octets s :external-format ef)))
 
 (defimplementation utf8-to-string (u)
-  (excl:octets-to-string u :external-format :utf8))
+  (let ((ef (load-time-value (excl:find-external-format :utf-8) t)))
+    (excl:octets-to-string u :external-format ef)))
 
 
 ;;;; TCP Server
@@ -471,7 +473,7 @@
                    (merge-pathnames (pathname filename))
                    *default-pathname-defaults*)))
           (compile-from-temp-file string buffer position filename)))
-    (reader-error () (values nil nil t))))
+    (reader-error () nil)))
 
 ;;;; Definition Finding