Raymond Toy pushed to branch issue-316-support-roundtrip-char-casing at cmucl / cmucl
Commits:
-
834b3092
by Raymond Toy at 2024-05-16T16:48:00-07:00
1 changed file:
Changes:
| ... | ... | @@ -642,9 +642,13 @@ |
| 642 | 642 | (when wide (incf index))
|
| 643 | 643 | ;; Handle ASCII specially because this is called early in
|
| 644 | 644 | ;; initialization, before unidata is available.
|
| 645 | + #+nil
|
|
| 645 | 646 | (cond ((< 96 code 123) (decf code 32))
|
| 646 | 647 | #+unicode
|
| 647 | 648 | ((> code 127) (setq code (unicode-upper code))))
|
| 649 | + (if wide
|
|
| 650 | + (setq code (unicode-upper code))
|
|
| 651 | + (setf code (char-code (char-upcase (code-char code)))))
|
|
| 648 | 652 | ;;@@ WARNING: this may, in theory, need to extend newstring
|
| 649 | 653 | ;; but that never actually occurs as of Unicode 5.1.0,
|
| 650 | 654 | ;; so I'm just going to ignore it for now...
|
| ... | ... | @@ -684,8 +688,12 @@ |
| 684 | 688 | (when wide (incf index))
|
| 685 | 689 | ;; Handle ASCII specially because this is called early in
|
| 686 | 690 | ;; initialization, before unidata is available.
|
| 691 | + #+nil
|
|
| 687 | 692 | (cond ((< 64 code 91) (incf code 32))
|
| 688 | 693 | ((> code 127) (setq code (unicode-lower code))))
|
| 694 | + (if wide
|
|
| 695 | + (setq code (unicode-lower code))
|
|
| 696 | + (setq code (char-code (char-downcase (code-char code)))))
|
|
| 689 | 697 | ;;@@ WARNING: this may, in theory, need to extend newstring
|
| 690 | 698 | ;; but that never actually occurs as of Unicode 5.1.0,
|
| 691 | 699 | ;; so I'm just going to ignore it for now...
|