Changeset 13069


Ignore:
Timestamp:
Oct 21, 2009, 11:36:36 PM (10 years ago)
Author:
gz
Message:

r13065 from trunk (range change in make-heap-ivector)

File:
1 edited

Legend:

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

    r12971 r13069  
    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.