Changeset 13065

Timestamp:

Oct 20, 2009, 8:06:14 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• trunk/source/level-1/l1-streams.lisp (modified) (1 diff)

trunk/source/level-1/l1-streams.lisp

@@ -225 +225 @@
 
 (defun make-heap-ivector (element-count element-type)
+  (require-type element-count `(unsigned-byte ,(- target::nbits-in-word
+                                                  target::num-subtag-bits)))
   (let* ((subtag (ccl::element-type-subtype element-type)))
     (unless