Changeset 415


Ignore:
Timestamp:
Jan 26, 2004, 5:18:12 PM (21 years ago)
Author:
Gary Byers
Message:

SUBSEQ: Array-headers aren't sequences; vector headers are.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/lib/sequences.lisp

    r386 r415  
    238238       (let* ((typecode (typecode sequence)))
    239239         (declare (fixnum typecode))
    240          (when (= typecode target::subtag-arrayH)
     240         (when (= typecode target::subtag-vectorH)
    241241           (multiple-value-bind (data offset)
    242242               (array-data-and-offset sequence)
Note: See TracChangeset for help on using the changeset viewer.