Comment 3 for bug 1424031

New test-case:
(format t "~a~%" (sb-unix:unix-getpid))

(defun do-something (x)
  (sb-sys:without-gcing
    (copy-seq x)))

(defun test ()
  (mapc #'sb-thread:join-thread
        (loop repeat 8
              collect
              (sb-thread:make-thread
               (lambda ()
                 (dotimes (i 100000000)
                   (let ((vector (make-array 1000)))
                     (loop for i to 1000
                           do
                           (do-something vector)))))))))

(test)