Changeset 8700


Ignore:
Timestamp:
Mar 10, 2008, 12:30:17 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
  • trunk/source/level-1/l1-unicode.lisp

    r8573 r8700  
    42404240
    42414241(defun (setf %little-endian-u8-ref-u32) (val u8-vector idx)
    4242   (declare (type (unsigned-byte 16) val)
     4242  (declare (type (unsigned-byte 32) val)
    42434243           (type (simple-array (unsigned-byte 8) (*)) u8-vector)
    42444244           (fixnum idx))
     
    42514251
    42524252;;; UTF-32/UCS-4, native byte order
    4253 (define-character-encoding #+big-endian-target :utf-32be #-big-endian-target :utf32-le
     4253(define-character-encoding #+big-endian-target :utf-32be #-big-endian-target :utf32le
    42544254  #+big-endian-target
    42554255  "A 32-bit, fixed-length encoding in which all Unicode characters
Note: See TracChangeset for help on using the changeset viewer.