Changeset 6554


Ignore:
Timestamp:
May 15, 2007, 12:49:01 AM (15 years ago)
Author:
gb
Message:

:utf-32 memory-encode function: don't write a BOM here.

File:
1 edited

Legend:

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

    r6538 r6554  
    8181  length-of-vector-encoding-function    ;(VECTOR START END)
    8282
    83   ;; Returns the number of (full) characters encoded in memort at (+ POINTER START)
     83  ;; Returns the number of (full) characters encoded in memory at (+ POINTER START)
    8484  ;; and the number of octets used to encode them.  (The second value may be less
    8585  ;; than NOCTETS.)
     
    43624362   (lambda (string pointer idx start end)
    43634363     (declare (fixnum idx))
    4364      (when (> end start)
    4365        (setf (%get-unsigned-long pointer idx)
    4366              byte-order-mark-char-code)
    4367        (incf idx 4))
     4364
    43684365     (do* ((i start (1+ i)))
    43694366          ((>= i end) idx)
Note: See TracChangeset for help on using the changeset viewer.