Changeset 6554

Timestamp:

May 14, 2007, 5:49:01 PM (18 years ago)

Author:

Gary Byers

Message:

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

File:

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

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

@@ -81 +81 @@
   length-of-vector-encoding-function    ;(VECTOR START END) 
 
-  ;; Returns the number of (full) characters encoded in memort at (+ POINTER START)
+  ;; Returns the number of (full) characters encoded in memory at (+ POINTER START)
   ;; and the number of octets used to encode them.  (The second value may be less
   ;; than NOCTETS.)
@@ -4362 +4362 @@
    (lambda (string pointer idx start end)
      (declare (fixnum idx))
-     (when (> end start)
-       (setf (%get-unsigned-long pointer idx)
-             byte-order-mark-char-code)
-       (incf idx 4))
+
      (do* ((i start (1+ i)))
           ((>= i end) idx)