X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fexternal-formats%2Fenc-ucs.lisp;fp=src%2Fcode%2Fexternal-formats%2Fenc-ucs.lisp;h=0cdcfff456837489395f2fd2958c4a8c913e4ea5;hb=94023958a1013881e38745f443240f905c1b4a0b;hp=ca87c76010ed7978ad40951811adbb45700c630c;hpb=87d8bad92787a7d5d51d1cb49b4306b8425154dc;p=sbcl.git

diff --git a/src/code/external-formats/enc-ucs.lisp b/src/code/external-formats/enc-ucs.lisp
index ca87c76..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)