array-total-size-limit, bug?

Hello,

It seems that the value of array-total-size-limit constant is actualy the value of ARRAY-DIMENSION-LIMIT (see below). If it's a bug, is there a patch for this? (want array-total-size-limit to really be 536870911).

Can someone tell me the value of ARRAY-TOTAL-SIZE-LIMIT for 64-bit LWw?

Thank you,

Francis

USER 48 > (let* ((dim0 500)
                 (dim1 (* 1000 1000))
                 (total-size (* dim0 dim1)))
            (format t "~& ~d ~d ~a" total-size array-total-size-limit (< total-size array-total-size-limit))
            (make-array (list dim0 dim1) :initial-element 0)
            (values))

 500000000 536870911 t
Error: Bad total size 500000000 for array, should be in the inclusive range 0 to 134216673.
  1 (abort) Return to level 0.
  2 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed,  or :? for other options

USER 49 : 1 > ARRAY-DIMENSION-LIMIT
134216674