Fix test character.pure.lisp / BUG-994487 on non-unicode.

Replace a literal 1114111 with (1- CHAR-CODE-LIMIT) so that the test
works on #-sb-unicode, too.

diff --git a/tests/character.pure.lisp b/tests/character.pure.lisp
index cfa1d2b..95c5833 100644 (file)
--- a/tests/character.pure.lisp
+++ b/tests/character.pure.lisp
@@ -122,6 +122,7 @@
 (with-test (:name :bug-994487)
   (let ((f (compile nil `(lambda (char)
                            (code-char (1+ (char-code char)))))))
-    (assert (equal `(function (t) (values (sb-kernel:character-set ((1 . 1114111)))
+    (assert (equal `(function (t) (values (sb-kernel:character-set
+                                           ((1 . ,(1- char-code-limit))))
                                           &optional))
                    (sb-impl::%fun-type f)))))