projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.33.16: implement UTF external formats
[sbcl.git]
/
src
/
code
/
external-formats
/
enc-ucs.lisp
diff --git
a/src/code/external-formats/enc-ucs.lisp
b/src/code/external-formats/enc-ucs.lisp
index
6fecf6b
..
ca87c76
100644
(file)
--- a/
src/code/external-formats/enc-ucs.lisp
+++ b/
src/code/external-formats/enc-ucs.lisp
@@
-428,7
+428,7
@@
ucs-4le->string-aref
string->ucs-4le)
ucs-4le->string-aref
string->ucs-4le)
-(define-external-format/variable-width (:ucs-4be :ucs4be) t
+(define-external-format/variable-width (:ucs-4be :ucs4be) nil
(code-char #xfffd)
4
(setf (sap-ref-32be sap tail) bits)
(code-char #xfffd)
4
(setf (sap-ref-32be sap tail) bits)