[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (def-slime-test utf-8-source): Another try at fixing
utf8 literals in code.


--- /project/slime/cvsroot/slime/ChangeLog	2012/04/09 13:50:04	1.2313
+++ /project/slime/cvsroot/slime/ChangeLog	2012/04/10 11:33:28	1.2314
@@ -1,3 +1,8 @@
+2012-04-10  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (def-slime-test utf-8-source): Another try at fixing
+	utf8 literals in code.
+
 2012-04-09  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (def-slime-test utf-8-source): Remove literal Unicode
--- /project/slime/cvsroot/slime/slime.el	2012/04/09 13:50:04	1.1397
+++ /project/slime/cvsroot/slime/slime.el	2012/04/10 11:33:28	1.1398
@@ -8022,9 +8022,9 @@
 (def-slime-test utf-8-source
     (input output)
     "Source code containing utf-8 should work"
-    `((,(format "(defun cl-user::foo () \"%c%c%c%c\")"
+  (list (list (format "(defun cl-user::foo () \"%c%c%c%c\")"
                 #x304a #x306f #x3088 #x3046)
-        ,(format "%c%c%c%c"
+               (format "%c%c%c%c"
                 #x304a #x306f #x3088 #x3046)))
   (slime-eval `(cl:eval (cl:read-from-string ,input)))
   (slime-test-expect "Eval result correct"