[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (def-slime-test utf-8-source): Remove literal Unicode
characters in the form of \xFFFF, it causes problems for some
people.


--- /project/slime/cvsroot/slime/ChangeLog	2012/04/07 10:23:38	1.2312
+++ /project/slime/cvsroot/slime/ChangeLog	2012/04/09 13:50:04	1.2313
@@ -1,3 +1,9 @@
+2012-04-09  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (def-slime-test utf-8-source): Remove literal Unicode
+	characters in the form of \xFFFF, it causes problems for some
+	people.
+
 2012-04-07  Helmut Eller  <heller at common-lisp.net>
 
 	Fix long lines.
--- /project/slime/cvsroot/slime/slime.el	2012/04/07 08:19:32	1.1396
+++ /project/slime/cvsroot/slime/slime.el	2012/04/09 13:50:04	1.1397
@@ -8022,8 +8022,10 @@
 (def-slime-test utf-8-source
     (input output)
     "Source code containing utf-8 should work"
-    '(("(defun cl-user::foo () \"\x304a\x306f\x3088\x3046\")"
-       "\x304a\x306f\x3088\x3046"))
+    `((,(format "(defun cl-user::foo () \"%c%c%c%c\")"
+                #x304a #x306f #x3088 #x3046)
+        ,(format "%c%c%c%c"
+                #x304a #x306f #x3088 #x3046)))
   (slime-eval `(cl:eval (cl:read-from-string ,input)))
   (slime-test-expect "Eval result correct"
                      output (slime-eval '(cl-user::foo)))