X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcharacter.pure.lisp;fp=tests%2Fcharacter.pure.lisp;h=95c583362053d863b5075c2cb3c8fb23c3cd9057;hb=adc09c3bd72bf86b1435cc5569682af00f3db348;hp=cfa1d2bd6646c08b29180f635822b4a36ddc2a3e;hpb=4de15256dd6387e52c8b9f5588c08044b68f6817;p=sbcl.git

diff --git a/tests/character.pure.lisp b/tests/character.pure.lisp
index cfa1d2b..95c5833 100644
--- 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)))))