X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fexternal-formats%2Fenc-ucs.lisp;h=0cdcfff456837489395f2fd2958c4a8c913e4ea5;hb=8ea7b1a452fc87f91273c96bead8aa862bbc8b98;hp=ca87c76010ed7978ad40951811adbb45700c630c;hpb=77d7fddb855305e783c100bfe9b6b46bdb05e4b6;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)