From: Lutz Euler <lutz.euler@freenet.de>
Date: Thu, 7 Jun 2012 21:21:47 +0000 (+0200)
Subject: Fix test character.pure.lisp / BUG-994487 on non-unicode.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=adc09c3bd72bf86b1435cc5569682af00f3db348;p=sbcl.git

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
--- 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)))))