Changeset 6115


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

Takehiko Abe's fix to %IOBLOCK-WRITE-U16-ENCODED-CHAR.

File:
1 edited

Legend:

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

    r6019 r6115  
    19061906  (when (ioblock-pending-byte-order-mark ioblock)
    19071907    (setf (ioblock-pending-byte-order-mark ioblock) nil)
    1908     (%ioblock-write-u16-code-unit ioblock byte-order-mark))
     1908    (%ioblock-write-u16-code-unit ioblock byte-order-mark-char-code))
    19091909  (if (eq char #\linefeed)
    19101910    (setf (ioblock-charpos ioblock) 0)
Note: See TracChangeset for help on using the changeset viewer.