Changeset 6113


Ignore:
Timestamp:
Apr 3, 2007, 3:30:39 AM (12 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-unicode.lisp

    r5571 r6113  
    30283028      (progn
    30293029        (funcall write-function stream (logior #xd800 (the fixnum (ash highbits -10))))
    3030         (funcall write-function (logior #xdc00 (the fixnum (logand highbits #x3ff))))
     3030        (funcall write-function stream (logior #xdc00 (the fixnum (logand highbits #x3ff))))
    30313031        2))))
    30323032
     
    36493649  #+big-endian-target :utf-16le
    36503650  #+little-endian-target :utf-16be
    3651   :bom-encoding #+big-endian-target #(#xfe #xff) #+little-endian-target #(#xff fe)
     3651  :bom-encoding #+big-endian-target #(#xfe #xff) #+little-endian-target #(#xff #xfe)
    36523652  )
    36533653
Note: See TracChangeset for help on using the changeset viewer.