Changeset 10017


Ignore:
Timestamp:
Jul 13, 2008, 12:56:33 AM (11 years ago)
Author:
gb
Message:

In SOURCE-NOTE-STRING-AND-OFFSET, check for vector of (unsigned-byte 8),
not small unsigned integer.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-reader.lisp

    r10011 r10017  
    30843084  (when (source-note-p note)
    30853085    (let ((source (source-note-source note)))
    3086       (cond ((typep source '(unsigned-byte 8))
     3086      (cond ((typep source '(simple-array (unsigned-byte 8) (*)))
    30873087             (assert (<= (source-note-length note) (length source)))
    30883088             (values (%fast-uncompact source) 0))
Note: See TracChangeset for help on using the changeset viewer.