Changeset 8698


Ignore:
Timestamp:
Mar 10, 2008, 12:27:20 PM (11 years ago)
Author:
gb
Message:

Fix type declaration in (setf %little-endian-u8-ref-u32), in case
we run on a little-endian 32-bit machine someday soon.

Native UTF-32/UCS-4 encoding: fix name in little-endian case.

File:
1 edited

Legend:

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

    r8572 r8698  
    40894089
    40904090
    4091 (declaim (inline (setf %big-endian-u8-ref-32) (setf %little-endian-u8-ref-u32)))
     4091(declaim (inline ((setf %big-endian-u8-ref-32) (setf %little-endian-u8-ref-u32)))
    40924092(defun (setf %big-endian-u8-ref-u32) (val u8-vector idx)
    40934093  (declare (type (unsigned-byte 32) val)
     
    41014101
    41024102(defun (setf %little-endian-u8-ref-u32) (val u8-vector idx)
    4103   (declare (type (unsigned-byte 16) val)
     4103  (declare (type (unsigned-byte 32) val)
    41044104           (type (simple-array (unsigned-byte 8) (*)) u8-vector)
    41054105           (fixnum idx))
     
    41124112
    41134113;;; UTF-32/UCS-4, native byte order
    4114 (define-character-encoding #+big-endian-target :utf-32be #-big-endian-target :utf32-le
     4114(define-character-encoding #+big-endian-target :utf-32be #-big-endian-target :utf32le
    41154115  #+big-endian-target
    41164116  "A 32-bit, fixed-length encoding in which all Unicode characters
Note: See TracChangeset for help on using the changeset viewer.