Raymond Toy pushed to branch issue-318-add-concrete-standard-char-type at cmucl / cmucl Commits: fc703c66 by Raymond Toy at 2026-05-04T08:25:40-07:00 Reduce range of chars for etypecase test Randomly generating a character from all possible values means we'll almost never test a standard-char. Thus, simplify the test and just do the ASCII chars which covers both standard-char and others. - - - - - 1 changed file: - tests/standard-char.lisp Changes: ===================================== tests/standard-char.lisp ===================================== @@ -237,7 +237,7 @@ ;; characters. To make this repeatable, use a fixed random-state, ;; otherwise, it becomes hard to debug (dotimes (k 200) - (let* ((ch (code-char (random char-code-limit))) + (let* ((ch (code-char (random 128))) (expected (if (standard-char-p ch) :is-standard :is-other)) (actual (handler-case View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/fc703c66b54af4e8e5b0cff7... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/fc703c66b54af4e8e5b0cff7... You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help