Raymond Toy pushed to branch issue-367-count-octets-for-encoding at cmucl / cmucl
Commits:
-
aa6f0565
by Raymond Toy at 2025-01-12T13:49:52-08:00
2 changed files:
Changes:
| ... | ... | @@ -1456,7 +1456,8 @@ |
| 1456 | 1456 | (name
|
| 1457 | 1457 | '("STRING-TO-OCTETS" "OCTETS-TO-STRING" "*DEFAULT-EXTERNAL-FORMAT*"
|
| 1458 | 1458 | "STRING-ENCODE" "STRING-DECODE" "SET-SYSTEM-EXTERNAL-FORMAT"
|
| 1459 | - "LIST-ALL-EXTERNAL-FORMATS" "DESCRIBE-EXTERNAL-FORMAT"))
|
|
| 1459 | + "LIST-ALL-EXTERNAL-FORMATS" "DESCRIBE-EXTERNAL-FORMAT"
|
|
| 1460 | + "STRING-OCTET-COUNT"))
|
|
| 1460 | 1461 | (intern name "STREAM"))
|
| 1461 | 1462 | |
| 1462 | 1463 | (defpackage "EXTENSIONS"
|
| ... | ... | @@ -19,7 +19,8 @@ |
| 19 | 19 | string-encode string-decode set-system-external-format
|
| 20 | 20 | +replacement-character-code+
|
| 21 | 21 | list-all-external-formats
|
| 22 | - describe-external-format))
|
|
| 22 | + describe-external-format
|
|
| 23 | + string-octet-count))
|
|
| 23 | 24 | |
| 24 | 25 | (defvar *default-external-format*
|
| 25 | 26 | :utf-8
|