# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1597115725 14400
# Node ID 6823350d3792b403e1e86fa697f01877c33d7345
# Parent  4c59ba2362d86d3e0070a9f202e5ab1f3c32372c
Use unicode characters CCL is happy with

diff -r 4c59ba2362d8 -r 6823350d3792 test/tests.lisp
--- a/test/tests.lisp	Mon Aug 10 22:54:14 2020 -0400
+++ b/test/tests.lisp	Mon Aug 10 23:15:25 2020 -0400
@@ -94,7 +94,7 @@
   ((format nil "foo~Abar" #\tab) "'foo\\tbar'")
   ((format nil "u: ~A" (code-char #x1234)) "'u: \\u1234'")
   ((format nil "(~A)" (code-char #xCAFE)) "'(\\uCaFe)'")
-  ((format nil "~A~A" (code-char #xDEAD) (code-char #xBEEF)) "'\\uDEAD\\ubeef'"))
+  ((format nil "~A~A" (code-char #xABCD) (code-char #xBEEF)) "'\\uABCD\\ubeef'"))
 
 (define-basic-tests vectors
   (#() "[]")