Comment 13 for bug 2020119

(defun get-file (filename)
  (with-open-file (stream filename)
                  (loop for line = (read-line stream nil)
                        while line
                        collect line)))
(loop for j from 0 below 30
      do (defparameter a (get-file (pathname "/home/mahmooz/brain/notes/data/2c/cba5d6-f153-454d-9e49-004b56167fbb/mnist_train.csv"))))

use the above code, the file is 105mb, start sbcl with 4GB memory using --dynamic-space-size 4GB, after some iterations sbcl crashes, if it doesnt happen for you, then idk