Changeset 7307


Ignore:
Timestamp:
Sep 26, 2007, 7:13:09 PM (12 years ago)
Author:
palter
Message:

Allow CCL::DECODE-STRING-FROM-OCTETS to work on non-simple vectors

File:
1 edited

Legend:

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

    r7306 r7307  
    45914591                                         external-format
    45924592                                         (string nil string-p))
     4593  (setq end (check-sequence-bounds vector start end))
    45934594  (unless (= (typecode vector) target::subtag-u8-vector)
    4594     (report-bad-arg vector '(simple-array (unsgigned-byte 8) (*))))
    4595   (setq end (check-sequence-bounds vector start end))
     4595    (multiple-value-bind (array offset)
     4596        (array-data-and-offset vector)
     4597      (unless (= (typecode array) target::subtag-u8-vector)
     4598        (report-bad-arg vector '(array (unsgigned-byte 8) (*))))
     4599      (setq vector array
     4600            start (+ start offset)
     4601            end (+ end offset))))
    45964602  (let* ((encoding (get-character-encoding
    45974603                    (external-format-character-encoding
Note: See TracChangeset for help on using the changeset viewer.