Changeset 6113

Timestamp:

Apr 2, 2007, 8:30:39 PM (18 years ago)

Author:

Gary Byers

Message:

Takehiko Abe's fixes (missing "stream" arg in utf-16 encode, missing
#x in little-endian bom-marker definition.)

File:

• trunk/ccl/level-1/l1-unicode.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-unicode.lisp

@@ -3028 +3028 @@
       (progn
         (funcall write-function stream (logior #xd800 (the fixnum (ash highbits -10))))
-        (funcall write-function (logior #xdc00 (the fixnum (logand highbits #x3ff))))
+        (funcall write-function stream (logior #xdc00 (the fixnum (logand highbits #x3ff))))
         2))))
 
@@ -3649 +3649 @@
   #+big-endian-target :utf-16le
   #+little-endian-target :utf-16be
-  :bom-encoding #+big-endian-target #(#xfe #xff) #+little-endian-target #(#xff fe)
+  :bom-encoding #+big-endian-target #(#xfe #xff) #+little-endian-target #(#xff #xfe)
   )