(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)))))
+
+(with-test (:name (:case-insensitive-char-comparisons :eacute))
+ (assert (char-equal (code-char 201) (code-char 233))))
+
+(with-test (:name (:case-insensitive-char-comparisons :exhaustive))
+ (dotimes (i char-code-limit)
+ (let* ((char (code-char i))
+ (down (char-downcase char))
+ (up (char-upcase char)))
+ (assert (char-equal char char))
+ (when (char/= char down)
+ (assert (char-equal char down)))
+ (when (char/= char up)
+ (assert (char-equal char up))))))