Changeset 7424 for branches/working-0710


Ignore:
Timestamp:
Oct 12, 2007, 3:58:43 PM (12 years ago)
Author:
wws
Message:

Restore Palter's change to decode-string-from-octets that makes it work on non-simple vectors

File:
1 edited

Legend:

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

    r7407 r7424  
    44654465                                         (string nil string-p))
    44664466  (setq end (check-sequence-bounds vector start end))
     4467  (unless (= (typecode vector) target::subtag-u8-vector)
     4468    (multiple-value-bind (array offset)
     4469        (array-data-and-offset vector)
     4470      (unless (= (typecode array) target::subtag-u8-vector)
     4471        (report-bad-arg vector '(array (unsgigned-byte 8) (*))))
     4472      (setq vector array
     4473            start (+ start offset)
     4474            end (+ end offset))))
    44674475  (let* ((encoding (get-character-encoding
    44684476                    (external-format-character-encoding
Note: See TracChangeset for help on using the changeset viewer.