Ignore:
Timestamp:
May 12, 2008, 5:03:36 PM (11 years ago)
Author:
gb
Message:

Fix typos in utf-16-length-of-vector-encoding.

File:
1 edited

Legend:

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

    r9287 r9454  
    37673767                      (t #+little-endian-target t)))))
    37683768       (do* ((i start)
    3769              (j (+ 2 i) (+ 2 i))
     3769             (j (+ 2 i) (+ 2 j))
    37703770             (nchars 0))
    37713771            ((> j end)
    3772              (if (= i end) (values nchars i))
    3773              (let* ((code (if swap
    3774                             (%reversed-u8-ref-u16 vector i)
    3775                             (%native-u8-ref-u16 vector i)))
    3776                     (nexti (+ i (if (or (< code #xd800)
    3777                                         (>= code #xdc00))
    3778                                   2
    3779                                   4))))
    3780                (declare (type (unsigned-byte 16) code)
    3781                         (fixnum nexti))
    3782                (if (> nexti end)
    3783                  (return (values nchars i))
    3784                  (setq i nexti nchars (1+ nchars)))))))))
     3772             (if (= i end) (values nchars i)))
     3773         (let* ((code (if swap
     3774                        (%reversed-u8-ref-u16 vector i)
     3775                        (%native-u8-ref-u16 vector i)))
     3776                (nexti (+ i (if (or (< code #xd800)
     3777                                    (>= code #xdc00))
     3778                              2
     3779                              4))))
     3780           (declare (type (unsigned-byte 16) code)
     3781                    (fixnum nexti))
     3782           (if (> nexti end)
     3783             (return (values nchars i))
     3784             (setq i nexti nchars (1+ nchars))))))))
    37853785  :length-of-memory-encoding-function
    37863786  (nfunction
Note: See TracChangeset for help on using the changeset viewer.