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:

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