Changeset 7307
- Timestamp:
- Sep 26, 2007, 7:13:09 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/level-1/l1-unicode.lisp
r7306 r7307 4591 4591 external-format 4592 4592 (string nil string-p)) 4593 (setq end (check-sequence-bounds vector start end)) 4593 4594 (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)))) 4596 4602 (let* ((encoding (get-character-encoding 4597 4603 (external-format-character-encoding
Note: See TracChangeset
for help on using the changeset viewer.