summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
8a19ff5)
The test "character.pure.lisp / :case-insensitive-char-comparisons
:exhaustive" was marked as an expected failure as the unicode
implementation is not yet complete, but on a non-unicode build it
actually already succeeds.
(assert (char-equal (code-char 201) (code-char 233))))
(with-test (:name (:case-insensitive-char-comparisons :exhaustive)
(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))
(dotimes (i char-code-limit)
(let* ((char (code-char i))
(down (char-downcase char))