Use unicode characters CCL is happy with
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Mon, 10 Aug 2020 23:15:25 -0400 |
| parents |
4c59ba2362d8
|
| children |
88008e9aeac3
|
| branches/tags |
(none) |
| files |
test/tests.lisp |
Changes
--- 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
(#() "[]")