Changeset 13065 for trunk/source/level-1


Ignore:
Timestamp:
Oct 21, 2009, 3:06:14 AM (10 years ago)
Author:
rme
Message:

In MAKE-HEAP-IVECTOR, ensure that element-count is not too big.
(fixes ticket:611)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-streams.lisp

    r12882 r13065  
    225225
    226226(defun make-heap-ivector (element-count element-type)
     227  (require-type element-count `(unsigned-byte ,(- target::nbits-in-word
     228                                                  target::num-subtag-bits)))
    227229  (let* ((subtag (ccl::element-type-subtype element-type)))
    228230    (unless
Note: See TracChangeset for help on using the changeset viewer.