projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
lazy *STACK-TOP-HINT*s
[sbcl.git]
/
src
/
code
/
external-formats
/
mb-util.lisp
diff --git
a/src/code/external-formats/mb-util.lisp
b/src/code/external-formats/mb-util.lisp
index
9a82d45
..
5569a9f
100644
(file)
--- a/
src/code/external-formats/mb-util.lisp
+++ b/
src/code/external-formats/mb-util.lisp
@@
-254,7
+254,9
@@
;; replacement character, so we hardcode the preferred
;; replacement here.
#\?
;; replacement character, so we hardcode the preferred
;; replacement here.
#\?
- (mb-char-len (or (,ucs-to-mb (char-code byte)) -1))
+ (block size
+ (mb-char-len (or (,ucs-to-mb (char-code byte))
+ (return-from size 0))))
(let ((mb (,ucs-to-mb bits)))
(if (null mb)
(external-format-encoding-error stream byte)
(let ((mb (,ucs-to-mb bits)))
(if (null mb)
(external-format-encoding-error stream byte)