Comment 0 for bug 326238

When executing the following code:

(defun foo (array x y) (aref array x y))

(let ((a (make-array '(128 128))))
  (dotimes (i 1000000)
    (handler-case
       (foo a -1 -1)
     (type-error () 0))))

Memory usage goes up quickly until exhausted. Follows a stream of mmap: Cannot allocate memory and sbcl finally crashes.

It repros on sbcl darwin x86 1.0.22.? 1.0.24.24 and 1.0.25.9. However the bug does not seem to affect linux builds.