X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fexternal-formats%2Fenc-ucs.lisp;h=0cdcfff456837489395f2fd2958c4a8c913e4ea5;hb=d720bc359f03734ccb9baf66cb45dc01d623f369;hp=6fecf6b1a38fbf9650a8d7dc4087dc60b0ca7a9d;hpb=99a8f9e012fd2b5edc9a0927edfc537332081997;p=sbcl.git

diff --git a/src/code/external-formats/enc-ucs.lisp b/src/code/external-formats/enc-ucs.lisp
index 6fecf6b..0cdcfff 100644
--- a/src/code/external-formats/enc-ucs.lisp
+++ b/src/code/external-formats/enc-ucs.lisp
@@ -56,7 +56,7 @@
   #!-(or x86 x86-64)
   (dpb (sap-ref-8 sap (+ offset 3)) (byte 8 24)
        (dpb (sap-ref-8 sap (+ offset 2)) (byte 8 16)
-            (sap-ref-16 sap offset))))
+            (sap-ref-16le sap offset))))
 
 (defun (setf sap-ref-32le) (value sap offset)
   #!+(or x86 x86-64)
@@ -428,7 +428,7 @@
   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)