15 lines
427 B
Plaintext
15 lines
427 B
Plaintext
;;; woz 4/27/87 test for CMLCHARACTER - 7801
|
|
;;; bill said to use the short form
|
|
;; This test is slow, since it applies to all 2^16 characters.
|
|
;; Almost as good to replace (1+ char-code-limit) with something smaller, say #x2323
|
|
(do-test "name-char and char-name are inverses"
|
|
(dotimes (i #x2323 t)
|
|
(let ((char (code-char i)))
|
|
(or (graphic-char-p char)
|
|
(char= (name-char (char-name char)) char)
|
|
(return nil))))
|
|
)
|
|
|
|
stop
|
|
|